From d85dd7e92cff55cc9f3e01993bb88cf7f92ea04a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 17 May 2009 02:32:46 +0000
Subject: [PATCH] codetools: fixed parsing (*)

git-svn-id: trunk@20001 -
---
 components/codetools/customcodetool.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/codetools/customcodetool.pas b/components/codetools/customcodetool.pas
index 779aecc2f1..d4f5157fce 100644
--- a/components/codetools/customcodetool.pas
+++ b/components/codetools/customcodetool.pas
@@ -939,6 +939,7 @@ begin
               begin
                 //debugln('TCustomCodeTool.ReadNextAtom ',copy(Src,CurPos.StartPos,CurPos.StartPos-CurPos.EndPos));
                 inc(CommentLvl);
+                inc(CurPos.StartPos);
               end;
             '*':
               if (Src[CurPos.StartPos+1]=')') then begin