浏览代码

* fix range check error when compiling with 2.2.x

git-svn-id: trunk@9650 -
peter 17 年之前
父节点
当前提交
bbae08d0ef
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      compiler/nadd.pas

+ 8 - 0
compiler/nadd.pas

@@ -458,7 +458,11 @@ implementation
                    result := left.getcopy;
                    result := left.getcopy;
                 end;
                 end;
               end
               end
+{$ifdef VER2_2}
+            else if (tordconstnode(right).value.svalue = -1) and (tordconstnode(right).value.signed) then
+{$else}
             else if tordconstnode(right).value = -1 then
             else if tordconstnode(right).value = -1 then
+{$endif}
               begin
               begin
                 case nodetype of
                 case nodetype of
                   muln:
                   muln:
@@ -488,7 +492,11 @@ implementation
                    result := right.getcopy;
                    result := right.getcopy;
                 end;
                 end;
               end
               end
+{$ifdef VER2_2}
+            else if (tordconstnode(left).value.svalue = -1) and (tordconstnode(left).value.signed) then
+{$else}
             else if tordconstnode(left).value = -1 then
             else if tordconstnode(left).value = -1 then
+{$endif}
               begin
               begin
                 case nodetype of
                 case nodetype of
                   muln:
                   muln: