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

codetools: TStandardCodeTool.GetPasDocComments stop at directives

Browse Source 
git-svn-id: trunk@22575 -
This commit is contained in:
mattias 2009-11-13 20:42:15 +00:00
parent 6a9a708b28
commit ce415836a7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/stdcodetools.pas
View File

@ -4347,7 +4347,11 @@ function TStandardCodeTool.GetPasDocComments(const StartPos: TCodeXYPosition;
p:=FindLineEndOrCodeInFrontOfPosition(StartPos,true); p:=FindLineEndOrCodeInFrontOfPosition(StartPos,true);
while p<EndPos do begin while p<EndPos do begin
p:=FindNextComment(Src,p,EndPos); p:=FindNextComment(Src,p,EndPos);
if p>=EndPos then break; if (p>=EndPos)
or ((Src[p]='{') and (Src[p+1]='$'))
or ((Src[p]='(') and (Src[p+1]='*') and (Src[p+2]='$'))
then
break;
//debugln(['TStandardCodeTool.GetPasDocComments Comment="',copy(Src,p,FindCommentEnd(Src,p,Scanner.NestedComments)-p),'"']); //debugln(['TStandardCodeTool.GetPasDocComments Comment="',copy(Src,p,FindCommentEnd(Src,p,Scanner.NestedComments)-p),'"']);
if (p<StartPos) then begin if (p<StartPos) then begin
// comment in front of node // comment in front of node