Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35: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)" "(void *data, int argc, closure _, object k, object sockfd, object size, object flags)"
" // TODO: type checking " // TODO: type checking
int len = obj_obj2int(size); int len = obj_obj2int(size);
make_empty_bytevector(bv); object bv;
bv.data = alloca(sizeof(char) * len); alloc_bytevector(data, bv, len);
((bytevector)bv)->data = alloca(sizeof(char) * len);
set_thread_blocked(data, k); set_thread_blocked(data, k);
bv.len = recv(obj_obj2int(sockfd), bv.data, len, obj_obj2int(flags)); ((bytevector)bv)->len = recv(obj_obj2int(sockfd), ((bytevector)bv)->data, len, obj_obj2int(flags));
return_thread_runnable(data, &bv); return_thread_runnable(data, bv);
") ")
(define (socket-shutdown sock how) (define (socket-shutdown sock how)