io.sockets.windows - Add a using, output count to fix compile error. Not bad for having no Windows box.
parent
4493d66282
commit
24a6895436
|
@ -4,7 +4,7 @@ USING: accessors alien alien.c-types alien.data classes.struct
|
||||||
combinators destructors io.backend io.files.windows io.ports
|
combinators destructors io.backend io.files.windows io.ports
|
||||||
io.sockets io.sockets.icmp io.sockets.private kernel libc math
|
io.sockets io.sockets.icmp io.sockets.private kernel libc math
|
||||||
sequences system windows.handles windows.kernel32 windows.types
|
sequences system windows.handles windows.kernel32 windows.types
|
||||||
windows.winsock ;
|
windows.winsock locals ;
|
||||||
FROM: namespaces => get ;
|
FROM: namespaces => get ;
|
||||||
IN: io.sockets.windows
|
IN: io.sockets.windows
|
||||||
|
|
||||||
|
@ -252,7 +252,7 @@ TUPLE: WSARecvFrom-args port
|
||||||
|
|
||||||
:: parse-WSARecvFrom ( buf buf' count wsaRecvFrom -- count sockaddr )
|
:: parse-WSARecvFrom ( buf buf' count wsaRecvFrom -- count sockaddr )
|
||||||
buf buf' count finalize-buf
|
buf buf' count finalize-buf
|
||||||
wsaRecvFrom
|
count wsaRecvFrom
|
||||||
[ port>> addr>> empty-sockaddr dup ]
|
[ port>> addr>> empty-sockaddr dup ]
|
||||||
[ lpFrom>> ]
|
[ lpFrom>> ]
|
||||||
[ lpFromLen>> int deref ]
|
[ lpFromLen>> int deref ]
|
||||||
|
|
Loading…
Reference in New Issue