paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed invalidate on source change

Browse Source 
git-svn-id: trunk@30948 -
This commit is contained in:
mattias 2011-05-28 09:00:37 +00:00
parent 8e1f917408
commit 01abf5d4b3
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecache.pas
View File

@ -199,7 +199,7 @@ type
procedure WriteAllFileNames; procedure WriteAllFileNames;
procedure WriteDebugReport; procedure WriteDebugReport;
function CalcMemSize(Stats: TCTMemStats): PtrUInt; function CalcMemSize(Stats: TCTMemStats): PtrUInt;
procedure IncreaseChangeStamp; procedure IncreaseChangeStamp; inline;
public public
property ExpirationTimeInDays: integer property ExpirationTimeInDays: integer
read FExpirationTimeInDays write FExpirationTimeInDays; read FExpirationTimeInDays write FExpirationTimeInDays;
@ -986,8 +986,7 @@ end;
procedure TCodeCache.IncreaseChangeStamp; procedure TCodeCache.IncreaseChangeStamp;
begin begin
debugln(['TCodeCache.IncreaseChangeStamp ']); //debugln(['TCodeCache.IncreaseChangeStamp ']);
CTDumpStack;
CTIncreaseChangeStamp64(FChangeStamp); CTIncreaseChangeStamp64(FChangeStamp);
end; end;
@ -1140,6 +1139,7 @@ end;
procedure TCodeBuffer.DoSourceChanged; procedure TCodeBuffer.DoSourceChanged;
begin begin
//debugln(['TCodeBuffer.DoSourceChanged ',Filename]);
inherited DoSourceChanged; inherited DoSourceChanged;
if FCodeCache<>nil then if FCodeCache<>nil then
FCodeCache.IncreaseChangeStamp; FCodeCache.IncreaseChangeStamp;

6
components/codetools/sourcelog.pas
View File

@ -520,6 +520,7 @@ begin
end; end;
FModified:=true; FModified:=true;
IncreaseChangeStep; IncreaseChangeStep;
DoSourceChanged;
end; end;
procedure TSourceLog.Delete(Pos, Len: integer); procedure TSourceLog.Delete(Pos, Len: integer);
@ -545,6 +546,7 @@ begin
end; end;
FModified:=true; FModified:=true;
IncreaseChangeStep; IncreaseChangeStep;
DoSourceChanged;
end; end;
procedure TSourceLog.Replace(Pos, Len: integer; const Txt: string); procedure TSourceLog.Replace(Pos, Len: integer; const Txt: string);
@ -582,6 +584,7 @@ begin
end; end;
FModified:=true; FModified:=true;
IncreaseChangeStep; IncreaseChangeStep;
DoSourceChanged;
end; end;
procedure TSourceLog.Move(Pos, Len, MoveTo: integer); procedure TSourceLog.Move(Pos, Len, MoveTo: integer);
@ -612,6 +615,7 @@ begin
end; end;
FModified:=true; FModified:=true;
IncreaseChangeStep; IncreaseChangeStep;
DoSourceChanged;
end; end;
function TSourceLog.AddMarker(Position: integer; SomeData: Pointer function TSourceLog.AddMarker(Position: integer; SomeData: Pointer
@ -844,7 +848,7 @@ end;
procedure TSourceLog.DoSourceChanged; procedure TSourceLog.DoSourceChanged;
begin begin
//debugln(['TSourceLog.DoSourceChanged ']);
end; end;
function TSourceLog.SaveToFile(const Filename: string): boolean; function TSourceLog.SaveToFile(const Filename: string): boolean;