paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 10:50:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct casing of rposex - fix issue #39466

Browse Source 
(cherry picked from commit cbc2d0351c)
This commit is contained in:
Michaël Van Canneyt 2021-12-03 23:49:13 +01:00 committed by marcoonthegit
parent 1f883a23e1
commit 18d4d2cfc8
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

@ -3053,7 +3053,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;
@ -3116,7 +3116,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;
@ -3145,7 +3145,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;
@ -3207,7 +3207,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;