From 17386317577d280fb2adfd8b4e134acbfc7c66f5 Mon Sep 17 00:00:00 2001 From: "U-SLAVA-DFB8FF805\\Slava" Date: Sat, 17 May 2008 18:24:20 -0500 Subject: [PATCH] Fix memory management issue --- extra/io/windows/nt/sockets/sockets.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/io/windows/nt/sockets/sockets.factor b/extra/io/windows/nt/sockets/sockets.factor index c680d18077..a31c41942f 100755 --- a/extra/io/windows/nt/sockets/sockets.factor +++ b/extra/io/windows/nt/sockets/sockets.factor @@ -131,7 +131,8 @@ TUPLE: WSARecvFrom-args port WSARecvFrom-args >tuple*< WSARecvFrom socket-error* ; : parse-WSARecvFrom ( n WSARecvFrom -- packet sockaddr ) - [ lpBuffers*>> WSABUF-buf swap memory>byte-array ] [ lpFrom*>> ] bi ; + [ lpBuffers*>> WSABUF-buf swap memory>byte-array ] + [ [ lpFrom*>> ] [ lpFromLen*>> *int ] bi memory>byte-array ] bi ; M: winnt (receive) ( datagram -- packet addrspec ) [