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

2018-05-04 00:08:21 +00:00
parent 1fb51e6cdb
commit 0406efe0ec
13 changed files with 6 additions and 1 deletions
--- a/src/cpu.pas
+++ b/src/cpu.pas
@ -163,7 +163,7 @@ begin
    if CPUID.Capabilities0^.TSC then begin
        t1:= getDateTime;
        t2:= getDateTime;
-        c2:= 0;
+        c1:= getTSC;
        while (t1.Seconds = t2.Seconds) do begin
            t2:= getDateTime;
            c1:= getTSC;