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