From cf3bbda78a017be262f1b7b01b3e6ffb72f0b86e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 27 Jan 2011 19:02:44 +0000
Subject: [PATCH] codetools: fixed endless loop in
 FindLineEndOrCodeInFrontOfPosition

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

diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index 5b84d0c018..866a97a424 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -2537,7 +2537,7 @@ var SrcStart: integer;
   var OldP: integer;
     IsDirective: Boolean;
   begin
-    debugln(['ReadComment ',dbgstr(copy(Source,p-5,5))+'|'+Source[P]+dbgstr(copy(Source,p+1,5))]);
+    //debugln(['ReadComment ',dbgstr(copy(Source,p-5,5))+'|'+Source[P]+dbgstr(copy(Source,p+1,5))]);
     OldP:=P;
     IsDirective:=false;
     case Source[P] of
@@ -2572,6 +2572,7 @@ var SrcStart: integer;
             // => position behind code
             inc(p);
             Result:=false;
+            exit;
           end;
         end;
     else