paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:29:18 +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 Resourcestring
SNoWidestrings = 'No widestrings supported'; SNoWidestrings = 'No widestrings supported';
@ -1238,10 +1229,6 @@ begin
Result:=VariantToAnsiString(VargSrc); Result:=VariantToAnsiString(VargSrc);
end; end;
{$IFDEF RANGECHECKINGOFF} {R-} {$ENDIF}
{$IFDEF OVERFLOWCHECKINGOFF} {Q-} {$ENDIF}
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
Some debug routines Some debug routines
---------------------------------------------------------------------} ---------------------------------------------------------------------}