paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 16:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@48672 -
This commit is contained in:
mattias 2015-04-07 21:30:17 +00:00
parent 0d8acaed21
commit e8e7fd24b4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/h2pastool.pas
View File

@ -2576,6 +2576,7 @@ var
i: Integer;
begin
Result:=nil;
if IsGlobal then ;
if Check(PascalName,Result) then exit;
i:=1;
while not Check(PascalName+'_'+IntToStr(i),Result) do
@ -2604,6 +2605,7 @@ var
SubCNode: TCodeTreeNode;
begin
Result:=nil;
if CreateIfNotExists then ;
if (CNode.Desc=ccnDefinition) and (CNode.FirstChild<>nil) then begin
SubCNode:=CNode.FirstChild;
if SubCNode.Desc=ccnName then