paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +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 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;

6
components/codetools/sourcelog.pas
View File

@ -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;