suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make xform build step work in Windows builds

Browse Source
This commit is contained in:
Tony Garnock-Jones 2013-04-05 16:25:55 -04:00 committed by Matthew Flatt
parent 314bc49714
commit c4f4c6ab5d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/network.c
View File

@ -4111,7 +4111,7 @@ udp_multicast_interface(int argc, Scheme_Object *argv[])
#ifdef UDP_IS_SUPPORTED #ifdef UDP_IS_SUPPORTED
{ {
Scheme_UDP *udp = (Scheme_UDP *) argv[0]; Scheme_UDP *udp = (Scheme_UDP *) argv[0];
struct in_addr intf; GC_CAN_IGNORE struct in_addr intf;
unsigned int intf_len = sizeof(intf); unsigned int intf_len = sizeof(intf);
int status; int status;
status = getsockopt(udp->s, IPPROTO_IP, IP_MULTICAST_IF, (void *) &intf, &intf_len); status = getsockopt(udp->s, IPPROTO_IP, IP_MULTICAST_IF, (void *) &intf, &intf_len);
@ -4148,7 +4148,7 @@ udp_multicast_set_interface(int argc, Scheme_Object *argv[])
#ifdef UDP_IS_SUPPORTED #ifdef UDP_IS_SUPPORTED
{ {
Scheme_UDP *udp = (Scheme_UDP *) argv[0]; Scheme_UDP *udp = (Scheme_UDP *) argv[0];
struct in_addr intf; GC_CAN_IGNORE struct in_addr intf;
unsigned int intf_len = sizeof(intf); unsigned int intf_len = sizeof(intf);
int status; int status;
@ -4197,7 +4197,7 @@ udp_multicast_set_interface(int argc, Scheme_Object *argv[])
static Scheme_Object * static Scheme_Object *
do_udp_multicast_join_or_leave_group(char const *name, int optname, Scheme_UDP *udp, Scheme_Object *multiaddrname, Scheme_Object *ifaddrname) do_udp_multicast_join_or_leave_group(char const *name, int optname, Scheme_UDP *udp, Scheme_Object *multiaddrname, Scheme_Object *ifaddrname)
{ {
struct ip_mreq mreq; GC_CAN_IGNORE struct ip_mreq mreq;
unsigned int mreq_len = sizeof(mreq); unsigned int mreq_len = sizeof(mreq);
int status; int status;