git-svn-id: trunk@14852 -
@@ -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}
+{$ifdef rangeon}
+{$R+}
+{$undef rangeon}
end
end;