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

IDE: fixed parsing IDEDirectives with flags

Browse Source 
git-svn-id: trunk@14942 -
This commit is contained in:
mattias 2008-04-23 15:49:36 +00:00
parent 1d9a456c64
commit a87a738d15
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/buildfiledlg.pas
View File

@ -268,8 +268,11 @@ begin
exit;
end;
case DirectiveValue[ReadPos] of
'+': CurValue:=true;
'-': CurValue:=false;
'+','-':
begin
CurValue:=DirectiveValue[ReadPos]='+';
inc(ReadPos);
end;
' ':
begin
if not ReadNextWord(ReadPos,ValueStart,ValueEnd) then exit;

1
ide/main.pp
View File

@ -9676,6 +9676,7 @@ begin
end;
end else begin
StringToStringList(AnUnitInfo.CustomData['IDEDirectives'],DirectiveList);
//DebugLn(['TMainIDE.GetIDEDirectives ',dbgstr(DirectiveList.Text)]);
end;
Result:=mrOk;
end;