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

codetools: fixed CleanPosIsInComment when cleanpos in front a comment

Browse Source 
git-svn-id: trunk@53190 -
This commit is contained in:
mattias 2016-10-21 17:40:37 +00:00
parent 20a6bfdf08
commit d7a2596644
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/pascalreadertool.pas
View File

@ -399,7 +399,7 @@ begin
begin
inc(CurCommentPos);
if (CurCommentPos<=SrcLen) and (Src[CurCommentPos]=#3) then begin
// codetools skip comment
// codetools-skip-comment
inc(CurCommentPos);
if not OuterCommentBounds then CommentStart:=CurCommentPos;
while (CurCommentPos<CurEnd) do begin
@ -469,13 +469,14 @@ begin
end;
if (CurCommentPos>CommentStart) and (CleanPos<CurCommentPos) then
begin
// CleanPos in comment
// CleanPos in front of comment-end
if OuterCommentBounds then
CommentEnd:=CurCommentPos
else
CommentEnd:=CurCommentInnerEnd;
exit(true);
exit(CleanPos>=CommentStart);
end;
// next
CommentStart:=CurCommentPos;
end else if IsSpaceChar[Src[CommentStart]] then begin
repeat