Fix bootstrap
parent
529133559f
commit
5378c05508
|
@ -56,9 +56,17 @@ INLINE CELL compute_code_rel(F_REL *rel,
|
|||
return CREF(words_start,REL_ARGUMENT(rel));
|
||||
case RT_XT:
|
||||
word = untag_word(get(CREF(words_start,REL_ARGUMENT(rel))));
|
||||
return (CELL)word->code
|
||||
+ sizeof(F_COMPILED)
|
||||
+ (profiling_p_ ? 0 : word->code->profiler_prologue);
|
||||
if(word->code)
|
||||
{
|
||||
return (CELL)word->code
|
||||
+ sizeof(F_COMPILED)
|
||||
+ (profiling_p_ ? 0 : word->code->profiler_prologue);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Its only NULL in stage 2 early init */
|
||||
return 0;
|
||||
}
|
||||
case RT_XT_PROFILING:
|
||||
word = untag_word(get(CREF(words_start,REL_ARGUMENT(rel))));
|
||||
return (CELL)word->code + sizeof(F_COMPILED);
|
||||
|
|
|
@ -32,7 +32,7 @@ void default_parameters(F_PARAMETERS *p)
|
|||
/* Do some initialization that we do once only */
|
||||
void do_stage1_init(void)
|
||||
{
|
||||
fprintf(stderr,"*** Starting stage 2 early init...\n");
|
||||
fprintf(stderr,"*** Stage 2 early init... ");
|
||||
fflush(stderr);
|
||||
|
||||
jit_compile(userenv[UNDEFINED_ENV]);
|
||||
|
@ -60,7 +60,7 @@ void do_stage1_init(void)
|
|||
|
||||
userenv[STAGE2_ENV] = T;
|
||||
|
||||
fprintf(stderr,"*** Finished stage 2 early init\n");
|
||||
fprintf(stderr,"done\n");
|
||||
fflush(stderr);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue