2
0
Эх сурвалжийг харах

* fix range check error when compiling with 2.2.x

git-svn-id: trunk@9650 -
peter 17 жил өмнө
parent
commit
bbae08d0ef
1 өөрчлөгдсөн 8 нэмэгдсэн , 0 устгасан
  1. 8 0
      compiler/nadd.pas

+ 8 - 0
compiler/nadd.pas

@@ -458,7 +458,11 @@ implementation
                    result := left.getcopy;
                 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
+{$endif}
               begin
                 case nodetype of
                   muln:
@@ -488,7 +492,11 @@ implementation
                    result := right.getcopy;
                 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
+{$endif}
               begin
                 case nodetype of
                   muln: