From aac82f6bce3e5f05a7ec4b52503e67a00572a89b Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 6 Apr 2015 16:37:23 +0000 Subject: [PATCH] codetools: fixed typo git-svn-id: trunk@48645 - --- components/codetools/h2pastool.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/components/codetools/h2pastool.pas b/components/codetools/h2pastool.pas index 5d93a7f4f3..d62c3d1d0d 100644 --- a/components/codetools/h2pastool.pas +++ b/components/codetools/h2pastool.pas @@ -132,7 +132,7 @@ type function GetLevel: integer; function DescAsString(CTool: TCCodeParserTool = nil): string; virtual; abstract; procedure ConsistencyCheck; virtual; - procedure WriteDebugReport(const Prefix: string; WithChilds: boolean; + procedure WriteDebugReport(const Prefix: string; WithChildren: boolean; CTool: TCCodeParserTool = nil); virtual; end; @@ -186,7 +186,7 @@ type procedure MoveChildsInFront(ANode: TH2PBaseNode); function ContainsNode(ANode: TH2PBaseNode): boolean; procedure ConsistencyCheck; - procedure WriteDebugReport(WithChilds: boolean); + procedure WriteDebugReport(WithChildren: boolean); end; @@ -3271,11 +3271,11 @@ begin raise Exception.Create('RealNodeCount<>FNodeCount'); end; -procedure TH2PTree.WriteDebugReport(WithChilds: boolean); +procedure TH2PTree.WriteDebugReport(WithChildren: boolean); begin DebugLn('[TH2PTree.WriteDebugReport] Root=',dbgs(Root<>nil)); if Root<>nil then - Root.WriteDebugReport(' ',true); + Root.WriteDebugReport(' ',WithChildren); ConsistencyCheck; end; @@ -3388,12 +3388,12 @@ begin end; procedure TH2PBaseNode.WriteDebugReport(const Prefix: string; - WithChilds: boolean; CTool: TCCodeParserTool); + WithChildren: boolean; CTool: TCCodeParserTool); var Node: TH2PBaseNode; begin DebugLn([Prefix,DescAsString(CTool)]); - if WithChilds then begin + if WithChildren then begin Node:=FirstChild; while Node<>nil do begin Node.WriteDebugReport(Prefix+' ',true,CTool);