From c7a09910d0dfd23569f1be14cf2529075f81aceb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 14 Apr 2012 11:17:45 +0000
Subject: [PATCH] codetools: fixed skipping include files in skipped ifdef

git-svn-id: trunk@36769 -
---
 components/codetools/linkscanner.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index 9c52dc2dc3..9bac8f1f71 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -3682,11 +3682,14 @@ begin
       #0:
         begin
           SrcPos:=p-PChar(Src)+1;
-          if (SrcPos>SrcLen) and not ReturnFromIncludeFile then begin
-            CommentStartPos:=0;
-            break;
-          end;
-          inc(p);
+          if (SrcPos>SrcLen) then begin
+            if not ReturnFromIncludeFile then begin
+              CommentStartPos:=0;
+              break;
+            end;
+            p:=@Src[SrcPos];
+          end else
+            inc(p);
         end;
       else
         inc(p);