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

codetools: more verbosity for fd fail

Browse Source 
git-svn-id: trunk@39755 -
This commit is contained in:
mattias 2013-01-03 18:34:24 +00:00
parent 75452dd427
commit 0d543afcbf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -1419,13 +1419,16 @@ var
while (i<Scanner.LinkCount-1) do begin
Link:=Scanner.Links[i];
if Link.Code=Pointer(CursorPos.Code) then begin
if LinkIndex<0 then
dbgout([', First Link of Code: ID=',i,'CleanedPos=',Link.CleanedPos,',Size=',Scanner.LinkSize(i),',SrcPos=',Link.SrcPos,',Kind=',dbgs(Link.Kind)]);
LinkIndex:=i;
dbgout([' First Link in Code: CleanedPos=',Link.CleanedPos,',Size=',Scanner.LinkSize(i),',SrcPos=',Link.SrcPos,',Kind=',dbgs(Link.Kind)]);
break;
end;
inc(i);
end;
if (LinkIndex<0) then begin
if LinkIndex>=0 then begin
Link:=Scanner.Links[LinkIndex];
dbgout([', Last Link of Code: ID=',LinkIndex,',CleanedPos=',Link.CleanedPos,',Size=',Scanner.LinkSize(i),',SrcPos=',Link.SrcPos,',Kind=',dbgs(Link.Kind)]);
end else begin
SrcCodes:=Scanner.CreateTreeOfSourceCodes;
try
for SrcNode in SrcCodes do begin