X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/3f8290b4a13c15cf62776aa427f62a8ae77ee07c..dc073bfadb411ab43bc39e2a39f48811706dfc0e:/btime.pas?ds=sidebyside

diff --git a/btime.pas b/btime.pas
index 87801b5..46cdf48 100644
--- a/btime.pas
+++ b/btime.pas
@@ -36,6 +36,7 @@ var
   tickcount:integer;
   settimebias:tunixtimeint;
   performancecountfreq:extended;
+  btimenowin8:boolean;
 
 function irctimefloat:float;
 function irctimeint:tunixtimeint;
@@ -598,10 +599,12 @@ const
 var
   f,g,h:float;
 begin
-  if not win8inited then initwin8;
-  if assigned(@GetSystemTimePreciseAsFileTime) then begin
-    result := unixtimefloat_win8;
-    exit;
+  if not btimenowin8 then begin
+    if not win8inited then initwin8;
+    if assigned(@GetSystemTimePreciseAsFileTime) then begin
+      result := unixtimefloat_win8;
+      exit;
+    end;  
   end;
 
   result := monotimefloat+timefloatbias;