From 519b11dba7f7e3781ce3e7b689ee5352570ac367 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 29 Jan 2008 23:19:24 +0000
Subject: [PATCH]   * workaround for 2.2 rnagecheck

git-svn-id: trunk@10106 -
---
 compiler/ncnv.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 8eaad89b66..63024b68ae 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -1984,7 +1984,7 @@ implementation
               (tordconstnode(n).value<=high(cardinal))));
         end;
 
-    
+
       begin
         result:=false;
         if wasoriginallyuint32(n) then
@@ -2146,7 +2146,12 @@ implementation
                        if is_pasbool(resultdef) then
                          tordconstnode(left).value:=ord(tordconstnode(left).value<>0)
                        else
+{$ifdef VER2_2}
+                         tordconstnode(left).value:=ord(tordconstnode(left).value<>0);
+                         tordconstnode(left).value:=-tordconstnode(left).value;
+{$else}
                          tordconstnode(left).value:=-ord(tordconstnode(left).value<>0);
+{$endif VER2_2}
                      end
                    else
                      testrange(resultdef,tordconstnode(left).value,(nf_explicit in flags));
@@ -2184,7 +2189,7 @@ implementation
                 end;
             end;
         end;
-        
+
 {$ifndef cpu64bit}
         { must be done before code below, because we need the
           typeconversions for ordconstn's as well }