paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 22:47:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix previous commit 105382b8 by setting Temp to zero if maxi is zero

Browse Source
This commit is contained in:
Pierre Muller 2025-05-05 15:00:04 +00:00
parent 105382b8a1
commit fb04659eb9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/widestr.pas
View File

@ -169,7 +169,9 @@ unit widestr;
if maxi>temp then
maxi:=Temp;
if maxi>0 then
temp:=compareword(s1.data[0],s2.data[0],maxi);
temp:=compareword(s1.data[0],s2.data[0],maxi)
else
temp:=0;
if temp=0 then
temp:=s1.len-s2.len;
comparewidestrings:=temp;