On 05 Dec 2007, at 10:23, Adriaan van Os wrote:
I didn't find an equivalent for FPC in delphi or objfpc mode. All I
can think of is
{$ifopt R+}
{$define local_RangeCheck}
{$endif}
{$R-}
i:= longword( -1)
{$ifdef local_RangeCheck}
{R+}
{$endif}
That's indeed the classic way to do it in TP/FPC/Delphi. I'm not
aware of any other way.
This is a bit ugly and not fully reliable, e.g. try
{$mode objfpc}
program TestLocal;
var i: longint;
begin
{$R+}
{$ifopt R+}
{$define local_RangeCheck}
{$R-}
{$endif}
i:= longword( -1);
{$ifdef local_RangeCheck}
{$R+}
{$endif}
end.
That's a bug in the scanner, please submit a bug report.
Jonas
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
