paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 00:12:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: debug TLSDirectiveKind

Browse Source 
git-svn-id: trunk@41371 -
This commit is contained in:
mattias 2013-05-23 12:01:53 +00:00
parent d8e8cfc3d2
commit c9b89a44b3
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,14 @@ unit Directives1;
interface
{$IFDEF WINCE} {$IFnDEF WinIME} {$DEFINE WithoutWinIME} {$ENDIF} {$ENDIF}
{$IFNDEF Windows}
{$IFDEF WithoutWinIME}
{$DEFINE WinIME}
{$DEFINE WinIMEFull}
{$ENDIF}
{$ENDIF}
uses
Classes, SysUtils;

12
components/codetools/linkscanner.pas
View File

@ -233,8 +233,8 @@ type
// if
lsdkIf,
lsdkIfC,
lsdkIfdef,
lsdkIfndef,
lsdkIfDef,
lsdkIfNDef,
lsdkIfOpt,
// else
lsdkElIfC,
@ -260,7 +260,7 @@ type
);
TLSDirectiveKinds = set of TLSDirectiveKind;
const
lsdkAllIf = [lsdkIf,lsdkIfC,lsdkIfdef,lsdkIfndef,lsdkIfOpt];
lsdkAllIf = [lsdkIf,lsdkIfC,lsdkIfDef,lsdkIfNDef,lsdkIfOpt];
lsdkAllElse = [lsdkElIfC,lsdkElse,lsdkElseC,lsdkElseIf];
lsdkAllEnd = [lsdkEndC,lsdkEndif,lsdkIfEnd];
@ -738,6 +738,7 @@ function dbgs(r: TLinkScannerRange): string; overload;
function dbgs(const ModeSwitches: TCompilerModeSwitches): string; overload;
function dbgs(k: TSourceLinkKind): string; overload;
function dbgs(s: TLSDirectiveState): string; overload;
function dbgs(s: TLSDirectiveKind): string; overload;
implementation
@ -824,6 +825,11 @@ begin
end;
end;
function dbgs(s: TLSDirectiveKind): string;
begin
WriteStr(Result,s);
end;
procedure AddCodeToUniqueList(ACode: Pointer; UniqueSortedCodeList: TFPList);
var l,m,r: integer;
begin