M: ipv4 sockaddr-size drop sockaddr-in heap-size ;
-M: ipv4 empty-sockaddr drop sockaddr-in <struct> ;
+M: ipv4 empty-sockaddr drop sockaddr-in new ;
: make-sockaddr-part ( inet -- sockaddr )
- sockaddr-in <struct>
+ sockaddr-in new
AF_INET >>family
swap
port>> 0 or htons >>port ; inline
M: ipv6 sockaddr-size drop sockaddr-in6 heap-size ;
-M: ipv6 empty-sockaddr drop sockaddr-in6 <struct> ;
+M: ipv6 empty-sockaddr drop sockaddr-in6 new ;
: make-sockaddr-in6-part ( inet -- sockaddr )
- sockaddr-in6 <struct>
+ sockaddr-in6 new
AF_INET6 >>family
swap
port>> 0 or htons >>port ; inline
HOOK: addrinfo-error-string io-backend ( n -- string )
: prepare-addrinfo ( -- addrinfo )
- addrinfo <struct>
+ addrinfo new
PF_UNSPEC >>family
IPPROTO_TCP >>protocol ;