paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cody: Fix Load-After-Time. Use GetTickCount64

Browse Source
This commit is contained in:
Martin 2024-09-25 13:47:37 +02:00
parent 3f9a5b7e64
commit 5acf9a9c7d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -81,7 +81,7 @@ type
fLoadSaveThread: TCodyUDLoadSaveThread;
fCritSec: TRTLCriticalSection;
fLoaded: boolean; // has loaded the file
fStartTime: TDateTime;
fStartTime: QWord;
fClosing: boolean;
fCheckFiles: TStringToStringTree;
procedure CheckFiles;
@ -537,6 +537,7 @@ var
UnitSet: TFPCUnitSetCache;
CfgCache: TPCTargetConfigCache;
DefaultFile: String;
t: QWord;
begin
// check without critical section if currently loading/saving
if fLoadSaveThread<>nil then
@ -648,7 +649,10 @@ begin
if (not fLoaded) and (fLoadSaveThread=nil) then begin
// nothing to do, maybe it's time to load the database
if (Abs(Now-fStartTime)*86400>=LoadAfterStartInS) then begin
{$PUSH}{$R-}{$Q-}
t := GetTickCount64-fStartTime;
{$POP}
if (t >= LoadAfterStartInS*1000) then begin
StartLoadSaveThread;
end
else begin
@ -657,7 +661,7 @@ begin
fTimer.OnTimer:=@OnTimer;
end;
if fTimer<>nil then begin
fTimer.Interval:=Max(10, LoadAfterStartInS*1000 - Trunc(Now-fStartTime)*86400);
fTimer.Interval:=LoadAfterStartInS*1000 - t;
fTimer.Enabled:=true;
end;
end;
@ -799,7 +803,7 @@ begin
CodeToolBoss.AddHandlerToolTreeChanging(@ToolTreeChanged);
LazarusIDE.AddHandlerOnIDEClose(@OnIDEClose);
CodyOptions.AddHandlerApply(@OnApplyOptions);
fStartTime:=Now;
fStartTime:=GetTickCount64;
end;
destructor TCodyUnitDictionary.Destroy;