From faabdd53fd051341328c47e598edd519ed3e8e4f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 28 May 2009 05:28:25 +0000
Subject: [PATCH] codetools: fixed crash on checking position in funcresultytoe

git-svn-id: trunk@20274 -
---
 components/codetools/pascalreadertool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 8898a1f27c..b75a017db8 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -842,6 +842,7 @@ function TPascalReaderTool.PositionInFuncResultName(ProcNode: TCodeTreeNode;
 // true if position between ) and :
 begin
   Result:=false;
+  if ProcNode=nil then exit;
   if ProcNode.Desc=ctnProcedure then begin
     ProcNode:=ProcNode.FirstChild;
     if ProcNode=nil then exit;
@@ -854,7 +855,7 @@ begin
       exit;
     MoveCursorToCleanPos(ProcNode.FirstChild.EndPos);
   end else begin
-    MoveCursorToNodeStart(ProcNode.FirstChild);
+    MoveCursorToNodeStart(ProcNode);
     ReadNextAtom;
     if AtomIsIdentifier(false) then begin
       // read name