paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not turn on range/overflow checking, because several of the

Browse Source 
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 -
This commit is contained in:
Jonas Maebe 2007-03-14 19:47:32 +00:00
parent a2c3826281
commit 18e0b6e98b
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/cvarutil.inc
View File

@ -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
---------------------------------------------------------------------}