mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-27 09:10:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

Make it compilable under MSVC (...again)

Browse source
This commit is contained in:
mgoffioul 2006-04-24 13:46:00 +00:00
parent a384a6b52c
commit c330f270f3
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
contrib/sockets/sockets.lisp
View file

@ -60,6 +60,10 @@
"typedef int ssize_t;"
"typedef int socklen_t;"
"#define MSG_WAITALL 0"
"#define MSG_EOR 0"
"#define MSG_DONTWAIT 0"
"#define MSG_NOSIGNAL 0"
"#define MSG_CONFIRM 0"
"#include <errno.h>"
"#include <fcntl.h>"
"#include <stdio.h>")
@ -673,10 +677,11 @@ 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 :
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));