steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

adjust windows monotonic clocks to return nanoseconds

db4
Doug Coleman 2009-11-15 02:03:54 -06:00
parent 6f38690050
commit 53a88147ec
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/monotonic-clock/windows/windows.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.data fry kernel monotonic-clock 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 IN: monotonic-clock.windows
<PRIVATE <PRIVATE
@ -12,8 +12,9 @@ IN: monotonic-clock.windows
PRIVATE> PRIVATE>
M: windows monotonic-count ( -- n )
\ QueryPerformanceCounter execute-performance-query ;
: cpu-frequency ( -- n ) : cpu-frequency ( -- n )
\ QueryPerformanceFrequency execute-performance-query ; \ QueryPerformanceFrequency execute-performance-query ;
M: windows monotonic-count ( -- n )
\ QueryPerformanceCounter execute-performance-query
1000000000 * cpu-frequency /i ;