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

Initialize elts member during heap allocation

Browse source
This commit is contained in:
Justin Ethier 2015-10-20 02:20:48 -04:00
parent 137305bbc9
commit 1664e20d4c
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -2480,6 +2480,7 @@ char *gc_move(char *obj, gc_thread_data *thd, int *alloci, int *heap_grown) {
hobj->fn = ((closureN) obj)->fn;
hobj->num_args = ((closureN) obj)->num_args;
hobj->num_elt = ((closureN) obj)-> num_elt;
hobj->elts = (object *)(((char *)hobj) + sizeof(closureN_type));
for (i = 0; i < hobj->num_elt; i++) {
hobj->elts[i] = ((closureN) obj)->elts[i];
}
@ -2496,6 +2497,7 @@ char *gc_move(char *obj, gc_thread_data *thd, int *alloci, int *heap_grown) {
mark(hobj) = 0;
type_of(hobj) = vector_tag;
hobj->num_elt = ((vector) obj)-> num_elt;
hobj->elts = (object *)(((char *)hobj) + sizeof(vector_type));
for (i = 0; i < hobj->num_elt; i++) {
hobj->elts[i] = ((vector) obj)->elts[i];
}