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

2018-05-03 23:56:56 +00:00 · 2018-05-03 23:56:56 +00:00 · 1fb51e6cdb
commit 1fb51e6cdb
parent 42d23dd8c9
9 changed files with 7 additions and 1 deletions
--- a/Asuro.iso
+++ b/Asuro.iso
--- a/bin/kernel.bin
+++ b/bin/kernel.bin
--- a/iso/boot/asuro.bin
+++ b/iso/boot/asuro.bin
--- a/lib/asuro.ppu
+++ b/lib/asuro.ppu
--- a/lib/cpu.ppu
+++ b/lib/cpu.ppu
--- a/lib/libpconsole.a
+++ b/lib/libpconsole.a
--- a/lib/libpmultiboot.a
+++ b/lib/libpmultiboot.a
--- a/lib/libpsystem.a
+++ b/lib/libpsystem.a
--- a/src/cpu.pas
+++ b/src/cpu.pas
@ -163,7 +163,13 @@ begin
    if CPUID.Capabilities0^.TSC then begin
        t1:= getDateTime;
        t2:= getDateTime;
-        c1:= getTSC;
+        c2:= 0;
+        while (t1.Seconds = t2.Seconds) do begin
+            t2:= getDateTime;
+            c1:= getTSC;
+        end;
+        t1:= getDateTime;
+        t2:= getDateTime;
        while (t1.Seconds = t2.Seconds) do begin
            t2:= getDateTime;
        end;