paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 11:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed endless loop in FindLineEndOrCodeInFrontOfPosition

Browse Source 
git-svn-id: trunk@29220 -
This commit is contained in:
mattias 2011-01-27 19:02:44 +00:00
parent d5985e3606
commit cf3bbda78a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/basiccodetools.pas
View File

@ -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