Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@655 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-03 23:43:24 +00:00
parent 6ae51ac70d
commit 42d23dd8c9
58 changed files with 30 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/cpu.pas
View File

@ -78,6 +78,7 @@ type
end;
TClockSpeed = record
Hz : uint32;
KHz : uint32;
MHz : uint32;
GHz : uint32;
end;
@ -154,19 +155,24 @@ end;
procedure getCPUClockSpeed;
var
t1, t2 : TDateTime;
c1, c2 : uint64;
c : uint32;
begin
c:= 0;
t1:= getDateTime;
t2:= getDateTime;
while (t1.Seconds = t2.Seconds) do begin
inc(c);
if CPUID.Capabilities0^.TSC then begin
t1:= getDateTime;
t2:= getDateTime;
c1:= getTSC;
while (t1.Seconds = t2.Seconds) do begin
t2:= getDateTime;
end;
c2:= getTSC;
c:= c2 - c1;
end;
CPUID.ClockSpeed.Hz:= c;
CPUID.ClockSpeed.MHz:= CPUID.ClockSpeed.Hz div 1000;
CPUID.ClockSpeed.KHz:= CPUID.ClockSpeed.Hz div 1000;
CPUID.ClockSpeed.MHz:= CPUID.ClockSpeed.KHz div 1000;
CPUID.ClockSpeed.GHz:= CPUID.ClockSpeed.MHz div 1000;
end;