From 01abf5d4b38594fffb97124a3ef5b70bd63b6f5b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 28 May 2011 09:00:37 +0000
Subject: [PATCH] codetools: fixed invalidate on source change

git-svn-id: trunk@30948 -
---
 components/codetools/codecache.pas | 6 +++---
 components/codetools/sourcelog.pas | 6 +++++-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/components/codetools/codecache.pas b/components/codetools/codecache.pas
index 34b5ea2a9c..d112df1a96 100644
--- a/components/codetools/codecache.pas
+++ b/components/codetools/codecache.pas
@@ -199,7 +199,7 @@ type
     procedure WriteAllFileNames;
     procedure WriteDebugReport;
     function CalcMemSize(Stats: TCTMemStats): PtrUInt;
-    procedure IncreaseChangeStamp;
+    procedure IncreaseChangeStamp; inline;
   public
     property ExpirationTimeInDays: integer
           read FExpirationTimeInDays write FExpirationTimeInDays;
@@ -986,8 +986,7 @@ end;
 
 procedure TCodeCache.IncreaseChangeStamp;
 begin
-  debugln(['TCodeCache.IncreaseChangeStamp ']);
-  CTDumpStack;
+  //debugln(['TCodeCache.IncreaseChangeStamp ']);
   CTIncreaseChangeStamp64(FChangeStamp);
 end;
 
@@ -1140,6 +1139,7 @@ end;
 
 procedure TCodeBuffer.DoSourceChanged;
 begin
+  //debugln(['TCodeBuffer.DoSourceChanged ',Filename]);
   inherited DoSourceChanged;
   if FCodeCache<>nil then
     FCodeCache.IncreaseChangeStamp;
diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index bd889ad359..0812eae627 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -520,6 +520,7 @@ begin
   end;
   FModified:=true;
   IncreaseChangeStep;
+  DoSourceChanged;
 end;
 
 procedure TSourceLog.Delete(Pos, Len: integer);
@@ -545,6 +546,7 @@ begin
   end;
   FModified:=true;
   IncreaseChangeStep;
+  DoSourceChanged;
 end;
 
 procedure TSourceLog.Replace(Pos, Len: integer; const Txt: string);
@@ -582,6 +584,7 @@ begin
   end;
   FModified:=true;
   IncreaseChangeStep;
+  DoSourceChanged;
 end;
 
 procedure TSourceLog.Move(Pos, Len, MoveTo: integer);
@@ -612,6 +615,7 @@ begin
   end;
   FModified:=true;
   IncreaseChangeStep;
+  DoSourceChanged;
 end;
 
 function TSourceLog.AddMarker(Position: integer; SomeData: Pointer
@@ -844,7 +848,7 @@ end;
 
 procedure TSourceLog.DoSourceChanged;
 begin
-
+  //debugln(['TSourceLog.DoSourceChanged ']);
 end;
 
 function TSourceLog.SaveToFile(const Filename: string): boolean;