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

Bug fixes

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

6
runtime.c
View file

@ -2382,7 +2382,7 @@ char *gc_move(char *obj, gc_thread_data *thd, int *alloci, int *heap_grown) {
switch(type_of(obj)){
case cons_tag: {
list hobj = gc_alloc(Cyc_heap, sizeof(cons_type), heap_grown);
list hobj = gc_alloc(Cyc_heap, sizeof(cons_type), heap_grown); // hobj ==> new heap object
hobj->hdr.mark = 0;
type_of(hobj) = cons_tag;
car(hobj) = car(obj);
@ -2473,7 +2473,7 @@ char *gc_move(char *obj, gc_thread_data *thd, int *alloci, int *heap_grown) {
case closureN_tag: {
int i;
closureN_type *hobj = gc_alloc(Cyc_heap,
sizeof(closureN_type) + sizeof(object) * hobj->num_elt,
sizeof(closureN_type) + sizeof(object) * (((closureN) obj)->num_elt),
heap_grown);
mark(hobj) = 0;
type_of(hobj) = closureN_tag;
@ -2491,7 +2491,7 @@ char *gc_move(char *obj, gc_thread_data *thd, int *alloci, int *heap_grown) {
case vector_tag: {
int i;
vector_type *hobj = gc_alloc(Cyc_heap,
sizeof(vector_type) + sizeof(object) * hobj->num_elt,
sizeof(vector_type) + sizeof(object) * (((vector) obj)->num_elt),
heap_grown);
mark(hobj) = 0;
type_of(hobj) = vector_tag;