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.
! 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
<PRIVATE
@ -12,8 +12,9 @@ IN: monotonic-clock.windows
PRIVATE>
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 ;