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

codetools: fixed TPascalReaderTool.ProcNodeHasSpecifier ctnProcedureHead

Browse Source 
git-svn-id: trunk@41504 -
This commit is contained in:
mattias 2013-06-03 08:49:59 +00:00
parent 957f9973d0
commit 38d3882f1f
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/pascalreadertool.pas
View File

@ -1260,6 +1260,8 @@ function TPascalReaderTool.ProcNodeHasSpecifier(ProcNode: TCodeTreeNode;
begin
Result:=false;
if ProcNode=nil then exit;
if ProcNode.Desc=ctnProcedureHead then
ProcNode:=ProcNode.Parent;
{$IFDEF CheckNodeTool}
if ProcNode.Desc<>ctnProcedure then begin
DebugLn(['TPascalReaderTool.ProcNodeHasSpecifier Desc=',ProcNode.DescAsString]);