瀏覽代碼

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

git-svn-id: branches/fixes_2_2@7663 -
daniel 18 年之前
父節點
當前提交
edb715686d
共有 1 個文件被更改,包括 2 次插入2 次删除
  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