steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add an assertion to the code GC code

slava 2006-11-18 09:04:11 +00:00
parent 821881117a
commit 7d0e89a11f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
vm/compiler.c
View File

@ -270,7 +270,12 @@ void primitive_finalize_compile(void)
{ {
F_ARRAY *pair = untag_array(get(AREF(array,i))); F_ARRAY *pair = untag_array(get(AREF(array,i)));
F_WORD *word = untag_word(get(AREF(pair,0))); F_WORD *word = untag_word(get(AREF(pair,0)));
word->xt = to_cell(get(AREF(pair,1))); CELL xt = to_cell(get(AREF(pair,1)));
F_BLOCK *block = xt_to_block(xt);
if(block->status != B_ALLOCATED)
critical_error("bad XT",xt);
word->xt = xt;
word->compiledp = T; word->compiledp = T;
} }
@ -278,7 +283,8 @@ void primitive_finalize_compile(void)
for(i = 0; i < count; i++) for(i = 0; i < count; i++)
{ {
F_ARRAY *pair = untag_array(get(AREF(array,i))); F_ARRAY *pair = untag_array(get(AREF(array,i)));
CELL xt = to_cell(get(AREF(pair,1))); F_WORD *word = untag_word(get(AREF(pair,0)));
CELL xt = word->xt;
iterate_code_heap_step(xt_to_compiled(xt),finalize_code_block); iterate_code_heap_step(xt_to_compiled(xt),finalize_code_block);
} }
} }