paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 03:01:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: directive example

Browse Source 
git-svn-id: trunk@41353 -
This commit is contained in:
mattias 2013-05-22 13:59:43 +00:00
parent 0fedbb9844
commit e4528ed2ea
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/examples/scanexamples/directives1.pas
View File

@ -10,6 +10,9 @@ uses
{$IfDef FPC} {$IfDef FPC}
{$Define SkippedMacro} {$Define SkippedMacro}
const SkippedConst = 1; const SkippedConst = 1;
{$IFDEF Bla}
const BlaConst = 1;
{$ENDIF}
{$Else} {$Else}
{$Define NotFPC} {$Define NotFPC}
const UsedConst = 2; const UsedConst = 2;