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

added Hakan Kizilhan to contributors

Browse Source 
git-svn-id: trunk@14117 -
This commit is contained in:
mattias 2008-02-13 11:41:51 +00:00
parent e79be37c3d
commit f3b6a2f28c
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/directivestree.pas
View File

@ -1631,9 +1631,6 @@ var
ReadNextAtom;
if AtomStart=Node.NextBrother.StartPos then begin
// node is empty
NextNode:=Node.NextBrother;
if NextNode.Desc=cdnEnd then
NextNode:=NextNode.NextSkipChilds;
DebugLn(['TCompilerDirectivesTree.RemoveEmptyNodes node only contains spaces and comments ',GetDirective(Node)]);
DisableIfNode(Node,true,Changed);
end;
@ -1645,9 +1642,12 @@ var
begin
//DebugLn(['TCompilerDirectivesTree.RemoveEmptyNodes ']);
// check nodes from end to start
Node:=Tree.Root;
while (Node.NextBrother<>nil) do Node:=Node.NextBrother;
while (Node.LastChild<>nil) do Node:=Node.LastChild;
while Node<>nil do begin
NextNode:=Node.Next;
NextNode:=Node.Prior;
CheckNode;
Node:=NextNode;
end;

1
docs/Contributors.txt
View File

@ -41,6 +41,7 @@ Giulio Bernardi
GongYu
Graeme Geldenhuys
Grzegorz Zakrzewski
Hakan Kizilhan
Hans-Joachim Ott
Hwang Weng Sun
Ido Kanner