Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* PChar -> PAnsiChar

Michaël Van Canneyt 2 years ago
parent
62086bfc99
commit
9a7ec30db3
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/rtl-extra/src/win/serial.pp

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

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