2
0
Эх сурвалжийг харах

* fix range check error

git-svn-id: trunk@14851 -
pierre 15 жил өмнө
parent
commit
0d098f2dba

+ 3 - 3
compiler/ninl.pas

@@ -1456,11 +1456,11 @@ implementation
                  32:
                  32:
                    mask:=$ffffffff;
                    mask:=$ffffffff;
                  64:
                  64:
-                   mask:=$ffffffffffffffff;
-                 else 
+                   mask:=qword($ffffffffffffffff);
+                 else
                    mask:=qword(1 shl bits)-1;
                    mask:=qword(1 shl bits)-1;
               end;
               end;
-              if shift=0 then 
+              if shift=0 then
                 result:=cordconstnode.create(vl2.svalue,def,false)
                 result:=cordconstnode.create(vl2.svalue,def,false)
               else if vl2.svalue<0 then
               else if vl2.svalue<0 then
                 result:=cordconstnode.create(((vl2.svalue shr shift) or (mask shl (bits-shift))) and mask,def,false)
                 result:=cordconstnode.create(((vl2.svalue shr shift) or (mask shl (bits-shift))) and mask,def,false)