From 53a88147ec5010e6383a00b5a712f61716c1aaf4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 15 Nov 2009 02:03:54 -0600 Subject: [PATCH] adjust windows monotonic clocks to return nanoseconds --- extra/monotonic-clock/windows/windows.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/extra/monotonic-clock/windows/windows.factor b/extra/monotonic-clock/windows/windows.factor index 85732e32fd..bb47941479 100755 --- a/extra/monotonic-clock/windows/windows.factor +++ b/extra/monotonic-clock/windows/windows.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: alien.c-types alien.data fry kernel monotonic-clock -system windows.errors windows.kernel32 ; +system windows.errors windows.kernel32 math ; IN: monotonic-clock.windows -M: windows monotonic-count ( -- n ) - \ QueryPerformanceCounter execute-performance-query ; - : cpu-frequency ( -- n ) \ QueryPerformanceFrequency execute-performance-query ; + +M: windows monotonic-count ( -- n ) + \ QueryPerformanceCounter execute-performance-query + 1000000000 * cpu-frequency /i ;