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

fix file-system-info

db4
Doug Coleman 2008-10-19 17:43:22 -05:00
parent 623a21256a
commit b9e5c98ce7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/windows/files/files.factor
View File

@ -254,11 +254,11 @@ M: winnt file-system-info ( path -- file-system-info )
"ULARGE_INTEGER" <c-object>
"ULARGE_INTEGER" <c-object>
"ULARGE_INTEGER" <c-object>
[ GetDiskFreeSpaceEx ] 3keep
[ GetDiskFreeSpaceEx win32-error=0/f ] 3keep
\ winnt-file-system-info new
swap >>total-free-bytes
swap >>total-bytes
swap >>free-space ;
swap *ulonglong >>total-free-bytes
swap *ulonglong >>total-bytes
swap *ulonglong >>free-space ;
: file-times ( path -- timestamp timestamp timestamp )
[