Clean up a windows.time word
parent
ad6d8556e0
commit
350f69b645
|
@ -8,8 +8,7 @@ IN: windows.time
|
|||
: >64bit ( lo hi -- n )
|
||||
32 shift bitor ; inline
|
||||
|
||||
: windows-1601 ( -- timestamp )
|
||||
1601 1 1 0 0 0 instant <timestamp> ;
|
||||
: windows-1601 ( -- timestamp ) 1601 <year-gmt> ;
|
||||
|
||||
: FILETIME>windows-time ( FILETIME -- n )
|
||||
[ dwLowDateTime>> ] [ dwHighDateTime>> ] bi >64bit ;
|
||||
|
|
Loading…
Reference in New Issue