Explorar el Código

* do not turn on range/overflow checking, because several of the
statements cause range errors which should be ignored for Delphi
compatibility (e.g. assigning a variant which contains -10 to a
cardinal)

git-svn-id: trunk@6856 -

Jonas Maebe hace 18 años
padre
commit
18e0b6e98b
Se han modificado 1 ficheros con 0 adiciones y 13 borrados
  1. 0 13
      rtl/objpas/cvarutil.inc

+ 0 - 13
rtl/objpas/cvarutil.inc

@@ -13,15 +13,6 @@
 
  **********************************************************************}
 
-{$UNDEF RANGECHECKINGOFF}
-{$IFOPT R-} {$DEFINE RANGECHECKINGOFF}    {$ENDIF}
-{R+}
-
-{$UNDEF OVERFLOWCHECKINGOFF}
-{$IFOPT Q-} {$DEFINE OVERFLOWCHECKINGOFF} {$ENDIF}
-{Q+}
-
-
 Resourcestring
 
   SNoWidestrings = 'No widestrings supported';
@@ -1238,10 +1229,6 @@ begin
   Result:=VariantToAnsiString(VargSrc);
 end;
 
-{$IFDEF RANGECHECKINGOFF}    {R-} {$ENDIF}
-{$IFDEF OVERFLOWCHECKINGOFF} {Q-} {$ENDIF}
-
-
 { ---------------------------------------------------------------------
     Some debug routines
   ---------------------------------------------------------------------}