소스 검색

+ 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