From 8c20e8c9b97da672c8fabbfec93da7533056e16d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 7 Aug 2008 14:13:29 +0000
Subject: [PATCH] codetools: fixed endless loop

git-svn-id: trunk@15982 -
---
 components/codetools/pascalparsertool.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 0e8f6b3ae5..c816966a78 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1048,10 +1048,10 @@ begin
   // create node for procedure head
   CreateChildNode;
   CurNode.Desc:=ctnProcedureHead;
-  CurNode.SubDesc:=ctnsNeedJITParsing;
   ReadNextAtom;
   if (CurPos.Flag<>cafPoint) then begin
     // read rest
+    CurNode.SubDesc:=ctnsNeedJITParsing;
     ParseAttr:=[pphIsMethod];
     if IsFunction then Include(ParseAttr,pphIsFunction);
     ReadTilProcedureHeadEnd(ParseAttr,HasForwardModifier);