Parcourir la source

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

Pierre Muller il y a 2 mois
Parent
commit
fb04659eb9
1 fichiers modifiés avec 3 ajouts et 1 suppressions
  1. 3 1
      compiler/widestr.pas

+ 3 - 1
compiler/widestr.pas

@@ -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;