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

IDE: codebrowser: ignore links without code

Browse Source 
git-svn-id: trunk@38587 -
This commit is contained in:
mattias 2012-09-08 20:39:19 +00:00
parent 98c758d90d
commit 0108bc7d1f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/codebrowser.pas
View File

@ -1649,6 +1649,7 @@ procedure TCodeBrowserView.WorkUpdateUnit(AnUnit: TCodeBrowserUnit);
for i:=0 to Tool.Scanner.LinkCount-1 do begin
Link:=Tool.Scanner.Links[i];
CodeBuf:=TCodeBuffer(Link.Code);
if CodeBuf=nil then continue;
if CodeBuf<>LastCode then begin
inc(LineCnt,CodeBuf.LineCount);
inc(ByteCnt,CodeBuf.SourceLength);