paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PansiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-17 17:15:30 +01:00
parent fdd26e6fca
commit 7493e04015
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syspch.inc
View File

@ -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;

4
rtl/objpas/sysutils/syspchh.inc
View File

@ -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;