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

Debugging...

Browse source
This commit is contained in:
Justin Ethier 2015-11-17 02:05:55 -05:00
parent 2be274d1be
commit 3d41425e88
2 changed files with 26 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gc-notes.txt
View file

@ -3,3 +3,11 @@ Phase 2 (gc-dev2) - Change how strings are allocated, to clean up the code and b
Phase 3 (gc-dev3) - Change from using a Cheney-style copying collector to a naive mark&sweep algorithm.
Phase 4 (gc-dev4) - Integrating new tracing GC algorithm, added new thread data argument to runtime.
Phase 5 (gc-dev5) - Require pthreads library, stand cyclone back up using new GC algorithm.
Debugging notes:
__glo_list_91ref -
tag is 0
car appears corrupt
cdr is set to 0x2 during a segfault.
how could this have happened? this variable should always be assigned a closure

19
gc.c
View file

@ -532,9 +532,18 @@ void gc_mut_update(gc_thread_data *thd, object old_obj, object value)
int status = ATOMIC_GET(&gc_status_col),
stage = ATOMIC_GET(&gc_stage);
if (thd->gc_status != STATUS_ASYNC) {
printf("DEBUG - GC sync marking heap obj ");
Cyc_display(old_obj, stdout);
printf(" and new value ");
Cyc_display(value, stdout);
//printf(" for heap object ");
printf("\n");
gc_mark_gray(thd, old_obj);
gc_mark_gray(thd, value);
} else if (stage == STAGE_TRACING) {
printf("DEBUG - GC async tracing marking heap obj ");
Cyc_display(old_obj, stdout);
printf("\n");
gc_mark_gray(thd, old_obj);
}
// TODO: concerned there may be an issue here with a stack object
@ -613,7 +622,6 @@ void gc_mark_gray(gc_thread_data *thd, object obj)
}
}
TODO:
// TODO: before doing this, may want to debug a bit and see what is
// being passed to gc_mut_update. see if those objects tend to have
// any heap refs. may need to add debug code to do that...
@ -710,11 +718,18 @@ void gc_mark_black(object obj)
}
break;
}
case cvar_tag: {
gc_collector_mark_gray( *(((cvar_type *)obj)->pvar) );
break;
}
default:
break;
}
if (mark(obj) != gc_color_red) {
// Only blacken objects on the heap
mark(obj) = markColor;
}
}
}
void gc_collector_mark_gray(object obj)
@ -828,7 +843,7 @@ void *collector_main(void *arg)
// this is inefficient but it should be good enough to
// at least stand up this collector. then we'll have to
// come back and improve it
sleep(1);
// sleep(1);
}
}