Browse Source

* also disable range check where overflow check is disabled

git-svn-id: trunk@14852 -
pierre 15 years ago
parent
commit
bc407ef6d3
1 changed files with 8 additions and 0 deletions
  1. 8 0
      compiler/cgobj.pas

+ 8 - 0
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;