Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #81 - allow for large recv sizes

Browse source
This commit is contained in:
Justin Ethier 2018-01-03 17:25:07 -05:00
parent dc0ac2bbaa
commit da51147b68
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
srfi/106.sld
View file

@ -230,12 +230,13 @@
"(void *data, int argc, closure _, object k, object sockfd, object size, object flags)"
" // TODO: type checking
int len = obj_obj2int(size);
make_empty_bytevector(bv);
bv.data = alloca(sizeof(char) * len);
object bv;
alloc_bytevector(data, bv, len);
((bytevector)bv)->data = alloca(sizeof(char) * len);
set_thread_blocked(data, k);
bv.len = recv(obj_obj2int(sockfd), bv.data, len, obj_obj2int(flags));
return_thread_runnable(data, &bv);
((bytevector)bv)->len = recv(obj_obj2int(sockfd), ((bytevector)bv)->data, len, obj_obj2int(flags));
return_thread_runnable(data, bv);
")
(define (socket-shutdown sock how)