From ff6ee10d04b0b4fdf70e373330231d998d3347eb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 2 Jun 2012 01:41:20 +0000
Subject: [PATCH] codetools: clear nodes behind, when linkscanner parsed only
 parts

git-svn-id: trunk@37476 -
---
 components/codetools/pascalparsertool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 958900d67b..eb6560c426 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -4880,7 +4880,8 @@ begin
           debugln(['TPascalParserTool.FetchScannerSource first character changed ',MainFilename]);
           {$ENDIF}
           AllChanged:=true;
-        end else if (DiffPos>NewSrcLen) and (not LastErrorValid) then begin
+        end else if (DiffPos>NewSrcLen) and (SrcLen=NewSrcLen)
+        and (not LastErrorValid) then begin
           // no change and no error => keep all nodes
           {$IFDEF VerboseUpdateNeeded}
           debugln(['TPascalParserTool.FetchScannerSource cleansrc has not changed => keep all nodes ',MainFilename]);