mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'fix-sockets-cxx' into 'develop'

Browse source 
sockets: recvfrom: cast sockaddr_in*  to sockaddr* explicitly

See merge request embeddable-common-lisp/ecl!169
This commit is contained in:
Marius Gerbershagen 2019-12-01 10:14:59 +00:00
commit 556ad56a09
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/sockets/sockets.lisp
View file

@ -528,7 +528,7 @@ safe_buffer_pointer(cl_object x, cl_index size)
ecl_disable_interrupts();
len = recvfrom(#0, wincoerce(char*, safe_buffer_pointer(#1, #2)),
#2, flags, &sender, &addr_len);
#2, flags, (struct sockaddr *)&sender, &addr_len);
ecl_enable_interrupts();
if (len >= 0) {
if (type == t_vector) { #1->vector.fillp = len; }