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

io.files.windows: make CreateFile-flags a normal word (fixes the recent test failures)

locals-and-roots
Björn Lindqvist 2016-05-31 17:04:34 +02:00
parent a58f8c76f4
commit a80aeea7f9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,9 @@ IN: io.files.windows
SLOT: file SLOT: file
HOOK: CreateFile-flags io-backend ( DWORD -- DWORD ) : CreateFile-flags ( DWORD -- DWORD )
flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ;
HOOK: open-append os ( path -- win32-file ) HOOK: open-append os ( path -- win32-file )
TUPLE: win32-file < win32-handle ptr ; TUPLE: win32-file < win32-handle ptr ;
@ -359,9 +361,6 @@ M: windows normalize-path ( string -- string' )
prepend-prefix prepend-prefix
] if ; ] if ;
M: windows CreateFile-flags ( DWORD -- DWORD )
flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ;
<PRIVATE <PRIVATE
: windows-file-size ( path -- size ) : windows-file-size ( path -- size )