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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-10-26 17:04:52 +00:00
parent 596f225179
commit 0bd0eeb7a6
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -950,10 +950,12 @@
(define-c Cyc-make-string (define-c Cyc-make-string
"(void *data, int argc, closure _, object k, object count, object fill)" "(void *data, int argc, closure _, object k, object count, object fill)"
" object s = NULL; " object s = NULL;
char ch_buf[5];
Cyc_check_int(data, count); Cyc_check_int(data, count);
char c = obj_obj2char(fill); char_type c = obj_obj2char(fill);
Cyc_utf8_encode_char(ch_buf, 5, &c);
int num_cp = obj_obj2int(count); int num_cp = obj_obj2int(count);
int len = num_cp * uint32_num_bytes(c); TODO: read encoded ch_buf int len = num_cp * uint32_num_bytes(c);
if (len >= MAX_STACK_OBJ) { if (len >= MAX_STACK_OBJ) {
int heap_grown; int heap_grown;
s = gc_alloc(((gc_thread_data *)data)->heap, s = gc_alloc(((gc_thread_data *)data)->heap,