Pārlūkot izejas kodu

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

Pierre Muller 4 mēneši atpakaļ
vecāks
revīzija
fb04659eb9
1 mainītis faili ar 3 papildinājumiem un 1 dzēšanām
  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;