paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:58:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools clean up

Browse Source
This commit is contained in:
mattias 2025-01-02 10:22:00 +01:00
parent f6b5cd0a9d
commit ae48e9841e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/tests/testfinddeclaration.pas
View File

@ -401,9 +401,9 @@ begin
//debugln(['TTestFindDeclaration.FindDeclarations Marker="',Marker,'" params: ',dbgstr(MainTool.Src,p,CommentP-p)]);
if (Marker='declaration') or (Marker='declaration!') or (Marker='completion') then begin
ExpectedPath:=copy(Src,PathPos,CommentP-1-PathPos);
{ $IFDEF VerboseFindDeclarationTests}
{$IFDEF VerboseFindDeclarationTests}
debugln(['TTestFindDeclaration.FindDeclarations searching "',Marker,'" at ',MainTool.CleanPosToStr(NameStartPos-1),' ExpectedPath=',ExpectedPath]);
{ $ENDIF}
{$ENDIF}
if (Marker='declaration') or (Marker='declaration!') then begin
MainTool.CleanPosToCaret(IdentifierStartPos,CursorPos);