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

renamed oblist to symbol_table in pcb

This commit is contained in:
Abdulaziz Ghuloum 2006-12-25 09:28:53 +03:00
parent 711cabe8bb
commit b3a6744691
4 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

4
bin/ikarus-collect.c
View File

@ -313,12 +313,12 @@ ik_collect(int mem_req, ikpcb* pcb){
* 0. dirty pages not collected in this run
* 1. the stack
* 2. the next continuation
* 3. the oblist
* 3. the symbol-table
*/
scan_dirty_pages(&gc);
collect_stack(&gc, pcb->frame_pointer, pcb->frame_base - wordsize);
pcb->next_k = add_object(&gc, pcb->next_k, "next_k");
pcb->oblist = add_object(&gc, pcb->oblist, "oblist");
pcb->symbol_table = add_object(&gc, pcb->symbol_table, "symbol_table");
pcb->arg_list = add_object(&gc, pcb->arg_list, "args_list_foo");
/* now we trace all live objects */
collect_loop(&gc);

8
bin/ikarus-symbol-table.c
View File

@ -11,7 +11,7 @@ initialize_symbol_table(ikpcb* pcb){
ikp st = ik_mmap_ptr(size, 0, pcb) + vector_tag;
bzero(st-vector_tag, size);
ref(st, off_vector_length) = fix(NUM_OF_BUCKETS);
pcb->oblist = st;
pcb->symbol_table = st;
return st;
}
@ -54,13 +54,9 @@ static ikp ik_make_symbol(ikp str, ikpcb* pcb){
return sym;
}
ikp ik_oblist(ikpcb* pcb){
fprintf(stderr, "oblist dead!\n");
exit(-1);
}
ikp ik_intern_string(ikp str, ikpcb* pcb){
ikp st = pcb->oblist;
ikp st = pcb->symbol_table;
if(st == 0){
st = initialize_symbol_table(pcb);
}

2
bin/ikarus.h
View File

@ -124,7 +124,7 @@ typedef struct ikpcb{
ikpage* uncached_pages; /* ikpages cached so that we don't malloc/free */
ikp stack_base;
int stack_size;
ikp oblist;
ikp symbol_table;;
ik_guardian_table* guardians[generation_count];
unsigned int* dirty_vector_base;
unsigned int* segment_vector_base;