Fix Windows bootstrap
parent
1124d7e6ea
commit
7aa2bb3f30
|
@ -131,9 +131,7 @@ TUPLE: WSARecvFrom-args port
|
|||
WSARecvFrom-args >tuple*< WSARecvFrom socket-error* ;
|
||||
|
||||
: parse-WSARecvFrom ( n WSARecvFrom -- packet sockaddr )
|
||||
[ lpBuffers*>> WSABUF-buf swap memory>byte-array ]
|
||||
[ lpFromLen*>> *int . ]
|
||||
[ lpFrom*>> ] tri ;
|
||||
[ lpBuffers*>> WSABUF-buf swap memory>byte-array ] [ lpFrom*>> ] bi ;
|
||||
|
||||
M: winnt (receive) ( datagram -- packet addrspec )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue