Browse Source

* PChar -> PansiChar

Michaël Van Canneyt 2 years ago
parent
commit
7493e04015
2 changed files with 4 additions and 4 deletions
  1. 2 2
      rtl/objpas/sysutils/syspch.inc
  2. 2 2
      rtl/objpas/sysutils/syspchh.inc

+ 2 - 2
rtl/objpas/sysutils/syspch.inc

@@ -70,7 +70,7 @@ end;
 
 {  StrPCopy copies the pascal string Source to Dest and returns Dest  }
 
-function StrPCopy(Dest: PAnsiChar; Const Source: string): PAnsiChar;overload;
+function StrPCopy(Dest: PAnsiChar; Const Source: RawByteString): PAnsiChar;overload;
 begin
   result := StrMove(Dest, PAnsiChar(Source), length(Source)+1);
 end ;
@@ -78,7 +78,7 @@ end ;
 {  StrPLCopy copies MaxLen or less characters from the pascal string
    Source to Dest and returns Dest  }
 
-function StrPLCopy(Dest: PAnsiChar; Const Source: string; MaxLen: SizeUInt): PAnsiChar;overload;
+function StrPLCopy(Dest: PAnsiChar; Const Source: RawByteString; MaxLen: SizeUInt): PAnsiChar;overload;
 var Count: SizeUInt;
 begin
 Result := Dest;

+ 2 - 2
rtl/objpas/sysutils/syspchh.inc

@@ -37,8 +37,8 @@ function StrNew(p : PAnsiChar) : PAnsiChar; overload;
 
 { Different from strings unit - ansistrings or different behaviour }
 function StrPas(Str: PAnsiChar): string;overload;
-function StrPCopy(Dest: PAnsiChar; Const Source: string): PAnsiChar;overload;
-function StrPLCopy(Dest: PAnsiChar; Const Source: string; MaxLen: SizeUInt): PAnsiChar;overload;
+function StrPCopy(Dest: PAnsiChar; Const Source: RawByteString): PAnsiChar;overload;
+function StrPLCopy(Dest: PAnsiChar; Const Source: RawByteString; MaxLen: SizeUInt): PAnsiChar;overload;
 function StrAlloc(Size: cardinal): PAnsiChar;
 procedure StrDispose(Str: PAnsiChar);
 function StrBufSize(Str: PAnsiChar): Cardinal;