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

Fix race condition

db4
Slava Pestov 2008-05-22 00:41:18 -05:00
parent 418e8410c7
commit 230e9476a7
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/io/unix/backend/backend.factor
View File

@ -24,8 +24,13 @@ TUPLE: fd fd disposed ;
[ >>fd ] [ >>fd ]
tri ; tri ;
M: fd dispose* M: fd dispose
[ cancel-operation ] [ fd>> close-file ] bi ; dup disposed>> [ drop ] [
[ cancel-operation ]
[ t >>disposed drop ]
[ fd>> close-file ]
tri
] if ;
M: fd handle-fd dup check-disposed fd>> ; M: fd handle-fd dup check-disposed fd>> ;

6
extra/io/windows/windows.factor
View File

@ -24,8 +24,10 @@ TUPLE: win32-file < win32-handle ptr ;
: <win32-file> ( handle -- win32-file ) : <win32-file> ( handle -- win32-file )
win32-file new-win32-handle ; win32-file new-win32-handle ;
M: win32-file dispose* M: win32-file dispose
[ cancel-operation ] [ call-next-method ] bi ; dup disposed>> [ drop ] [
[ cancel-operation ] [ call-next-method ] bi
] if ;
HOOK: CreateFile-flags io-backend ( DWORD -- DWORD ) HOOK: CreateFile-flags io-backend ( DWORD -- DWORD )
HOOK: FileArgs-overlapped io-backend ( port -- overlapped/f ) HOOK: FileArgs-overlapped io-backend ( port -- overlapped/f )