StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
- if (RtsFlags[0].DebugFlags.interpreter) {
+ IF_DEBUG(interpreter,
debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
debugBelch("\n");
- }
+ );
f = (StgFunPtr) (f)();
}
return (StgThreadReturnCode)R1.i;