瀏覽代碼

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

Pierre Muller 3 月之前
父節點
當前提交
fb04659eb9
共有 1 個文件被更改,包括 3 次插入1 次删除
  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;