mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-08 02:32:43 +02:00
45 lines
641 B
ObjectPascal
45 lines
641 B
ObjectPascal
unit Directives1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$IFDEF WINCE} {$IFnDEF WinIME} {$DEFINE WithoutWinIME} {$ENDIF} {$ENDIF}
|
|
{$IFNDEF Windows}
|
|
{$IFDEF WithoutWinIME}
|
|
{$DEFINE WinIME}
|
|
{$DEFINE WinIMEFull}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
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.
|
|
|