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

* CompareStrAnsiStringProc is not necessarily assigned

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-26 11:30:00 +01:00 committed by Pierre Muller
parent 2e2cf215cb
commit 322555c7ce
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/fpwidestring.pp
View File

@ -727,14 +727,14 @@ function CompareStrAnsiString(const S1, S2: ansistring): PtrInt;
var
l1, l2 : PtrInt;
begin
if (current_Collation.DataPtr=nil) then
exit(OldManager.CompareStrAnsiStringProc(s1,s2));
if (current_Collation.DataPtr=nil) and Assigned(OldManager.CompareStrAnsiStringProc) then
Exit(OldManager.CompareStrAnsiStringProc(s1,s2));
if (Pointer(S1)=Pointer(S2)) then
exit(0);
Exit(0);
l1:=Length(S1);
l2:=Length(S2);
if (l1=0) or (l2=0) then
exit(l1-l2);
Exit(l1-l2);
Result := InternalCompareStrAnsiString(@S1[1],@S2[1],l1,l2);
end;