static void fixup_word(word *word) { if(word->code) code_fixup(&word->code); if(word->profiling) code_fixup(&word->profiling); code_fixup(&word->xt); }
void factor_vm::fixup_word(word *word, cell code_relocation_base) { if(word->code) code_fixup(&word->code,code_relocation_base); if(word->profiling) code_fixup(&word->profiling,code_relocation_base); code_fixup(&word->xt,code_relocation_base); }
void fixup_word(F_WORD *word) { if(stage2) { code_fixup((CELL)&word->code); if(word->profiling) code_fixup((CELL)&word->profiling); code_fixup((CELL)&word->xt); } }
static void fixup_quotation(quotation *quot) { if(quot->code) { code_fixup("->xt); code_fixup("->code); } else quot->xt = (void *)lazy_jit_compile; }
void fixup_quotation(F_QUOTATION *quot) { if(quot->compiledp == F) quot->xt = lazy_jit_compile; else { code_fixup((CELL)"->xt); code_fixup((CELL)"->code); } }
void factor_vm::fixup_quotation(quotation *quot, cell code_relocation_base) { if(quot->code) { code_fixup("->xt,code_relocation_base); code_fixup("->code,code_relocation_base); } else quot->xt = (void *)lazy_jit_compile; }
static void fixup_stack_frame(stack_frame *frame) { code_fixup(&frame->xt); code_fixup(&FRAME_RETURN_ADDRESS(frame)); }
void fixup_stack_frame(F_STACK_FRAME *frame) { code_fixup((CELL)&frame->xt); code_fixup((CELL)&FRAME_RETURN_ADDRESS(frame)); }