paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 23:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix string type in AnsiLastChar declaration

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-14 10:23:34 +01:00
parent cb7a8dfea7
commit ea63bfb32f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysstr.inc
View File

@ -538,7 +538,7 @@ begin
AnsiSameStr:=AnsiCompareStr(S1,S2)=0;
end;
function AnsiLastChar(const S: string): PAnsiChar;
function AnsiLastChar(const S: AnsiString): PAnsiChar;
begin
//!! No multibyte yet, so we return the last one.

2
rtl/objpas/sysutils/sysstrh.inc
View File

@ -100,7 +100,7 @@ function AnsiStrLComp(S1, S2: PAnsiChar; MaxLen: SizeUInt): Integer;{$ifdef SYSU
function AnsiStrLIComp(S1, S2: PAnsiChar; MaxLen: SizeUInt): Integer;{$ifdef SYSUTILSINLINE}inline;{$endif}
function AnsiStrLower(Str: PAnsiChar): PAnsiChar;{$ifdef SYSUTILSINLINE}inline;{$endif}
function AnsiStrUpper(Str: PAnsiChar): PAnsiChar;{$ifdef SYSUTILSINLINE}inline;{$endif}
function AnsiLastChar(const S: string): PAnsiChar;
function AnsiLastChar(const S: AnsiString): PAnsiChar;
function AnsiStrLastChar(Str: PAnsiChar): PAnsiChar;
function Trim(const S: ansistring): ansistring;