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

codetools: clean up

Browse Source 
git-svn-id: trunk@49345 -
This commit is contained in:
mattias 2015-06-16 10:59:22 +00:00
parent bb34413487
commit 913b752bcc
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/pascalparsertool.pas
View File

@ -268,10 +268,8 @@ type
function FindRootNode(Desc: TCodeTreeNodeDesc): TCodeTreeNode; function FindRootNode(Desc: TCodeTreeNodeDesc): TCodeTreeNode;
function FindInterfaceNode: TCodeTreeNode; function FindInterfaceNode: TCodeTreeNode;
function FindMainUsesNode(UseContainsSection: boolean = false): TCodeTreeNode; function FindMainUsesNode(UseContainsSection: boolean = false): TCodeTreeNode;
function FindMainUsesSection(UseContainsSection: boolean = false): TCodeTreeNode; deprecated; // use FindMainUsesNode
function FindImplementationNode: TCodeTreeNode; function FindImplementationNode: TCodeTreeNode;
function FindImplementationUsesNode: TCodeTreeNode; function FindImplementationUsesNode: TCodeTreeNode;
function FindImplementationUsesSection: TCodeTreeNode; deprecated; // use FindImplementationUsesNode
function FindInitializationNode: TCodeTreeNode; function FindInitializationNode: TCodeTreeNode;
function FindFinalizationNode: TCodeTreeNode; function FindFinalizationNode: TCodeTreeNode;
function FindMainBeginEndNode: TCodeTreeNode; function FindMainBeginEndNode: TCodeTreeNode;
@ -5882,11 +5880,6 @@ begin
if (Result.Desc<>ctnUsesSection) then Result:=nil; if (Result.Desc<>ctnUsesSection) then Result:=nil;
end; end;
function TPascalParserTool.FindImplementationUsesSection: TCodeTreeNode;
begin
Result:=FindImplementationUsesNode;
end;
function TPascalParserTool.FindInitializationNode: TCodeTreeNode; function TPascalParserTool.FindInitializationNode: TCodeTreeNode;
begin begin
Result:=FindRootNode(ctnInitialization); Result:=FindRootNode(ctnInitialization);
@ -5933,12 +5926,6 @@ begin
end; end;
end; end;
function TPascalParserTool.FindMainUsesSection(UseContainsSection: boolean
): TCodeTreeNode;
begin
Result:=FindMainUsesNode(UseContainsSection);
end;
function TPascalParserTool.FindFirstSectionChild: TCodeTreeNode; function TPascalParserTool.FindFirstSectionChild: TCodeTreeNode;
begin begin
Result:=Tree.Root; Result:=Tree.Root;