Explorar o código

+ Add uint64 check to prevent 1>high(qword) evaluating to true.

git-svn-id: branches/fixes_2_2@7663 -
daniel %!s(int64=18) %!d(string=hai) anos
pai
achega
edb715686d
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -221,8 +221,8 @@ implementation
         { both are int constants }
         if (
             (
-             is_constintnode(left) and
-             is_constintnode(right)
+             is_constintnode(left) and (Torddef(ld).ordtype<>u64bit) and
+             is_constintnode(right) and (Torddef(rd).ordtype<>u64bit)
             ) or
             (
              is_constboolnode(left) and