extern bool profiling_p;
void init_profiler(void);
F_CODE_BLOCK *compile_profiling_stub(CELL word);
void primitive_profiling(void);