From bbae08d0ef7d079a6e404c39a85e354bea37783d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 6 Jan 2008 12:45:26 +0000
Subject: [PATCH]   * fix range check error when compiling with 2.2.x

git-svn-id: trunk@9650 -
---
 compiler/nadd.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index cc500d3887..e36fef7e5c 100644
--- a/compiler/nadd.pas
+++ b/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: