mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-07 17:12:39 +02:00
37 lines
453 B
ObjectPascal
37 lines
453 B
ObjectPascal
unit Directives1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
{$IfDef FPC}
|
|
{$Define SkippedMacro}
|
|
const SkippedConst = 1;
|
|
{$IFDEF Bla}
|
|
const BlaConst = 1;
|
|
{$ENDIF}
|
|
{$Else}
|
|
{$Define NotFPC}
|
|
const UsedConst = 2;
|
|
{$EndIf}
|
|
|
|
{$IfOpt R+}
|
|
{$Define RangeCheck}
|
|
{$R-}
|
|
const RangeCheckDisabledConst1 = Byte(300);
|
|
{$EndIf}
|
|
|
|
const RangeCheckDisabledConst2 = Word(-1);
|
|
|
|
{$IfDef RangeCheck}
|
|
{$R+}
|
|
{$EndIf}
|
|
|
|
implementation
|
|
|
|
end.
|
|
|