paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 17:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: comments

Browse Source 
git-svn-id: trunk@41106 -
This commit is contained in:
mattias 2013-05-10 08:39:27 +00:00
parent 8598f94b91
commit 1a4a760dd8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,15 +9,20 @@ uses
{$IfDef FPC}
{$Define SkippedMacro}
const SkippedConst = 1;
{$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}