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

View File

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