Explorar o código

* fix range error

git-svn-id: trunk@10424 -
peter %!s(int64=17) %!d(string=hai) anos
pai
achega
85e904cb36
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  1. 3 3
      compiler/ncnv.pas

+ 3 - 3
compiler/ncnv.pas

@@ -1983,7 +1983,7 @@ implementation
                (torddef(ttypeconvnode(n).left.resultdef).ordtype in [s32bit,u32bit])) or
              { or an ordconstnode which was/is a valid cardinal }
               ((n.nodetype=ordconstn) and
-               (tordconstnode(n).value>=low(longint)) and
+               (tordconstnode(n).value>=int64(low(longint))) and
                (tordconstnode(n).value<=high(cardinal)))) then
             begin
               if ((n.nodetype=typeconvn) and
@@ -1995,8 +1995,8 @@ implementation
             end;
           result:=false;
         end;
-  
-  
+
+
       function docheckremove64bittypeconvs(n: tnode): boolean;
         begin
           result:=false;