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

io.sockets.windows: WSASocket-flags not needed

char-rename
Björn Lindqvist 2016-06-15 12:06:10 +02:00
parent b43221770c
commit 2f12413595
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,8 +34,6 @@ M: windows addrspec-of-family ( af -- addrspec )
[ drop f ] [ drop f ]
} case ; } case ;
HOOK: WSASocket-flags io-backend ( -- DWORD )
TUPLE: win32-socket < win32-file ; TUPLE: win32-socket < win32-file ;
: <win32-socket> ( handle -- win32-socket ) : <win32-socket> ( handle -- win32-socket )
@ -52,7 +50,7 @@ M: win32-socket dispose* ( stream -- )
: open-socket ( addrspec type -- win32-socket ) : open-socket ( addrspec type -- win32-socket )
[ drop protocol-family ] [ swap protocol ] 2bi [ drop protocol-family ] [ swap protocol ] 2bi
f 0 WSASocket-flags WSASocket f 0 WSA_FLAG_OVERLAPPED WSASocket
dup socket-error dup socket-error
opened-socket ; opened-socket ;
@ -101,9 +99,6 @@ M: windows (broadcast) ( datagram -- datagram )
: malloc-int ( n -- alien ) : malloc-int ( n -- alien )
int <ref> malloc-byte-array ; inline int <ref> malloc-byte-array ; inline
M: windows WSASocket-flags ( -- DWORD )
WSA_FLAG_OVERLAPPED ; inline
: get-ConnectEx-ptr ( socket -- void* ) : get-ConnectEx-ptr ( socket -- void* )
SIO_GET_EXTENSION_FUNCTION_POINTER SIO_GET_EXTENSION_FUNCTION_POINTER
WSAID_CONNECTEX WSAID_CONNECTEX