Explorar o código

* PChar -> PAnsiChar

Michael VAN CANNEYT %!s(int64=2) %!d(string=hai) anos
pai
achega
c2cb3f7919
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/rtl-extra/src/win/serial.pp

+ 1 - 1
packages/rtl-extra/src/win/serial.pp

@@ -186,7 +186,7 @@ begin
   securityAttributes.lpSecurityDescriptor := nil;
   securityAttributes.bInheritHandle := true;
   result := CreateFile(
-    PChar(DeviceName),
+    PAnsiChar(DeviceName),
     GENERIC_READ or GENERIC_WRITE,
     0,
     @securityAttributes,