conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added a pcb field "collect_key" that simply gets set to #f 

when garbage collection occurs.
This commit is contained in:
Abdulaziz Ghuloum 2007-08-30 21:58:24 -04:00
parent a09da8f581
commit e20576a444
3 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

1
bin/ikarus-collect.c
View File

@ -381,6 +381,7 @@ ik_collect(int mem_req, ikpcb* pcb){
gettimeofday(&rt0, 0); gettimeofday(&rt0, 0);
getrusage(RUSAGE_SELF, &t0); getrusage(RUSAGE_SELF, &t0);
pcb->collect_key = false_object;
gc_t gc; gc_t gc;
bzero(&gc, sizeof(gc_t)); bzero(&gc, sizeof(gc_t));
gc.pcb = pcb; gc.pcb = pcb;

1
bin/ikarus.h
View File

@ -120,6 +120,7 @@ typedef struct ikpcb{
int engine_counter; /* offset = 36 */ int engine_counter; /* offset = 36 */
int interrupted; /* offset = 40 */ int interrupted; /* offset = 40 */
ikp base_rtd; /* offset = 44 */ ikp base_rtd; /* offset = 44 */
ikp collect_key; /* offset = 48 */
/* the rest are not used by any scheme code */ /* the rest are not used by any scheme code */
/* they only support the runtime system (gc, etc.) */ /* they only support the runtime system (gc, etc.) */
unsigned int* segment_vector; unsigned int* segment_vector;