From 0108bc7d1f2afce487cfd21e7c0ebb800e8864b1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 8 Sep 2012 20:39:19 +0000
Subject: [PATCH] IDE: codebrowser: ignore links without code

git-svn-id: trunk@38587 -
---
 ide/codebrowser.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ide/codebrowser.pas b/ide/codebrowser.pas
index 0ce69a18bf..1fe5e61e92 100644
--- a/ide/codebrowser.pas
+++ b/ide/codebrowser.pas
@@ -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);