paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Correct casing of rposex - fix issue #39466

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-03 23:49:13 +01:00
parent 0b3fb55c6a
commit cbc2d0351c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl-objpas/src/inc/strutils.pp
View File

@ -3028,7 +3028,7 @@ begin
end;
end;
function RPosEX(C: char; const S: AnsiString; offs: cardinal): SizeInt;
function RPosEx(C: char; const S: AnsiString; offs: cardinal): SizeInt;
var I : SizeUInt;
p,p2: pChar;
@ -3091,7 +3091,7 @@ begin
end;
end;
function RPosex(const Substr: AnsiString; const Source: AnsiString; offs: cardinal): SizeInt;
function RPosEx(const Substr: AnsiString; const Source: AnsiString; offs: cardinal): SizeInt;
var
MaxLen,llen : SizeInt;
c : char;
@ -3120,7 +3120,7 @@ begin
end;
end;
function RPosEX(C: unicodechar; const S: UnicodeString; offs: cardinal): SizeInt;
function RPosEx(C: unicodechar; const S: UnicodeString; offs: cardinal): SizeInt;
var I : SizeUInt;
p,p2: PUnicodeChar;
@ -3182,7 +3182,7 @@ begin
end;
end;
function RPosex(const Substr: UnicodeString; const Source: UnicodeString; offs: cardinal): SizeInt;
function RPosEx(const Substr: UnicodeString; const Source: UnicodeString; offs: cardinal): SizeInt;
var
MaxLen,llen : SizeInt;
c : unicodechar;