Browse Source

* fix range error

git-svn-id: trunk@10424 -
peter 17 years ago
parent
commit
85e904cb36
1 changed files with 3 additions and 3 deletions
  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;