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

Updated Cyc_io_get_output_bytevector for huge bv's

Browse source
This commit is contained in:
Justin Ethier 2018-01-03 14:37:39 -05:00
parent 91a7df51dc
commit c16d854631
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mstreams.c
View file

@ -118,11 +118,10 @@ void Cyc_io_get_output_bytevector(void *data, object cont, object port)
Cyc_rt_raise2(data, "Not an in-memory port", port); Cyc_rt_raise2(data, "Not an in-memory port", port);
} }
{ {
make_empty_bytevector(bv); object bv;
bv.len = p->str_bv_in_mem_buf_len; alloc_bytevector(data, bv, p->str_bv_in_mem_buf_len);
bv.data = alloca(sizeof(char) * bv.len); memcpy(((bytevector)bv)->data, p->str_bv_in_mem_buf, p->str_bv_in_mem_buf_len);
memcpy(bv.data, p->str_bv_in_mem_buf, p->str_bv_in_mem_buf_len); return_closcall1(data, cont, bv);
return_closcall1(data, cont, &bv);
} }
} }