Răsfoiți Sursa

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

git-svn-id: branches/fixes_2_2@7663 -
daniel 18 ani în urmă
părinte
comite
edb715686d
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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