mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-19 00:20:19 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fix compilation failure under MSVC (most of the MSG_ flags do not exist).

Browse source
This commit is contained in:
mgoffioul 2006-04-21 14:22:51 +00:00
parent 9218b4bb47
commit b98391ba3b
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
contrib/sockets/sockets.lisp
View file

@ -54,6 +54,10 @@
"typedef int ssize_t;"
"typedef int socklen_t;"
"#define MSG_WAITALL 0"
"#define MSG_EOR 0"
"#define MSG_DONTWAIT 0"
"#define MSG_CONFIRM 0"
"#define MSG_NOSIGNAL 0"
"#include <errno.h>"
"#include <fcntl.h>"
"#include <stdio.h>")
@ -667,13 +671,14 @@ static void fill_inet_sockaddr(struct sockaddr_in *sockaddr, int port,
( #d ? MSG_CONFIRM : 0 );
cl_type type = type_of(#1);
struct sockaddr_in sockaddr;
ssize_t len;
fill_inet_sockaddr(&sockaddr, #3, #4, #5, #6, #7);
ssize_t len = sendto(#0,( type == t_vector ? #1->vector.self.ch :
( type == t_string ? #1->string.self : NULL )),
#2, flags,(struct sockaddr*)&sockaddr,
sizeof(struct sockaddr_in));
len = sendto(#0,( type == t_vector ? #1->vector.self.ch :
( type == t_string ? #1->string.self : NULL )),
#2, flags,(struct sockaddr*)&sockaddr,
sizeof(struct sockaddr_in));
@(return) = len;
}
"