From 74e195a9e23ad0be0d59d3ab62bee8d60af41e27 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 14 Jun 2011 12:36:31 +0000
Subject: [PATCH] codetools: TPascalReaderTool.ProcNodeHasSpecifier: parse
 header

git-svn-id: trunk@31215 -
---
 components/codetools/pascalreadertool.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 97b41696d8..b3829c66fc 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -856,6 +856,9 @@ end;
 function TPascalReaderTool.MoveCursorToProcSpecifier(ProcNode: TCodeTreeNode;
   ProcSpec: TProcedureSpecifier): boolean;
 begin
+  if ProcNode.FirstChild=nil then begin
+    exit(false);
+  end;
   MoveCursorToFirstProcSpecifier(ProcNode);
   while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin
     if CurPos.Flag=cafSemicolon then begin
@@ -1077,6 +1080,11 @@ end;
 function TPascalReaderTool.ProcNodeHasSpecifier(ProcNode: TCodeTreeNode;
   ProcSpec: TProcedureSpecifier): boolean;
 begin
+  Result:=false;
+  if ProcNode=nil then exit;
+  if (ProcNode.FirstChild=nil)
+  or ((ProcNode.SubDesc and ctnsNeedJITParsing)>0) then
+    BuildSubTreeForProcHead(ProcNode);
 
   // ToDo: ppu, dcu