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

codetools: h2p: fixed updating neighborhood when removing IFDEF

Browse Source 
git-svn-id: trunk@14670 -
This commit is contained in:
mattias 2008-03-27 23:21:32 +00:00
parent 3c07a0a998
commit 61d830f202
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/h2pastool.pas
View File

@ -1681,16 +1681,18 @@ begin
h2pdnElseIf:
begin
Sibling.Expression:='('+Sibling.Expression+') and '+Expression;
if TH2PDirectiveNode(Sibling.PriorBrother).Desc<>h2pdnElseIf then
if (Sibling.PriorBrother=Node) and (Node.Desc<>h2pdnElseIf) then
Sibling.Desc:=h2pdnIf;
DebugLn(['TH2PasTool.DeleteDirectiveNode ADAPTED neighbour: ',Sibling.DescAsString(CTool)]);
end;
h2pdnElse:
begin
Sibling.Expression:=Expression;
if TH2PDirectiveNode(Sibling.PriorBrother).Desc<>h2pdnElseIf then
if (Sibling.PriorBrother=Node) and (Node.Desc<>h2pdnElseIf) then
Sibling.Desc:=h2pdnIf
else
Sibling.Desc:=h2pdnElseIf;
DebugLn(['TH2PasTool.DeleteDirectiveNode ADAPTED neighbour: ',Sibling.DescAsString(CTool)]);
end;
else break;
end;