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

Clean up a windows.time word

db4
Doug Coleman 2010-01-14 17:20:30 -06:00
parent ad6d8556e0
commit 350f69b645
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/windows/time/time.factor
View File

@ -8,8 +8,7 @@ IN: windows.time
: >64bit ( lo hi -- n ) : >64bit ( lo hi -- n )
32 shift bitor ; inline 32 shift bitor ; inline
: windows-1601 ( -- timestamp ) : windows-1601 ( -- timestamp ) 1601 <year-gmt> ;
1601 1 1 0 0 0 instant <timestamp> ;
: FILETIME>windows-time ( FILETIME -- n ) : FILETIME>windows-time ( FILETIME -- n )
[ dwLowDateTime>> ] [ dwHighDateTime>> ] bi >64bit ; [ dwLowDateTime>> ] [ dwHighDateTime>> ] bi >64bit ;