From bc407ef6d3b8c844af128f32fde82b7309af3a6c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 3 Feb 2010 00:32:30 +0000
Subject: [PATCH]  * also disable range check where overflow check is disabled

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

diff --git a/compiler/cgobj.pas b/compiler/cgobj.pas
index f651068572..6167d2f33b 100644
--- a/compiler/cgobj.pas
+++ b/compiler/cgobj.pas
@@ -3459,6 +3459,10 @@ implementation
 {$ifopt Q+}
 {$define overflowon}
 {$Q-}
+{$endif}
+{$ifopt R+}
+{$define rangeon}
+{$R-}
 {$endif}
                 if to_signed then
                   begin
@@ -3481,6 +3485,10 @@ implementation
 {$ifdef overflowon}
 {$Q+}
 {$undef overflowon}
+{$endif}
+{$ifdef rangeon}
+{$R+}
+{$undef rangeon}
 {$endif}
               end
           end;