paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 13:45:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed adding fpc undefines

Browse Source 
git-svn-id: trunk@29021 -
This commit is contained in:
mattias 2011-01-14 23:45:25 +00:00
parent 2ecbd98a9d
commit a7b2988650
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/definetemplates.pas
View File

@ -1817,13 +1817,13 @@ begin
end; end;
if Config.Undefines<>nil then begin if Config.Undefines<>nil then begin
Node:=Config.Defines.Tree.FindLowest; Node:=Config.Undefines.Tree.FindLowest;
while Node<>nil do begin while Node<>nil do begin
StrItem:=PStringToStringTreeItem(Node.Data); StrItem:=PStringToStringTreeItem(Node.Data);
NewDefTempl:=TDefineTemplate.Create('Undefine '+StrItem^.Name, NewDefTempl:=TDefineTemplate.Create('Undefine '+StrItem^.Name,
'Macro',StrItem^.Name,'',da_UndefineRecurse); 'Macro',StrItem^.Name,'',da_UndefineRecurse);
Result.AddChild(NewDefTempl); Result.AddChild(NewDefTempl);
Node:=Config.Defines.Tree.FindSuccessor(Node); Node:=Config.Undefines.Tree.FindSuccessor(Node);
end; end;
end; end;