Commit a8b5e840 authored by Ian Lynagh's avatar Ian Lynagh

Fix the IF_DEBUG(interpreter in StgCRun.c

parent 0b953024
......@@ -258,7 +258,11 @@ TICK_VAR(2)
-------------------------------------------------------------------------- */
#ifdef DEBUG
#if IN_STG_CODE
#define IF_DEBUG(c,s) if (RtsFlags[0].DebugFlags.c) { s; }
#else
#define IF_DEBUG(c,s) if (RtsFlags.DebugFlags.c) { s; }
#endif
#else
#define IF_DEBUG(c,s) doNothing()
#endif
......
......@@ -87,13 +87,11 @@ register double fake_f9 __asm__("$f9");
StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
/* XXX Disabled due to RtsFlags[]/RtsFlags mismatch
IF_DEBUG(interpreter,
debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
debugBelch("\n");
);
*/
f = (StgFunPtr) (f)();
}
return (StgRegTable *)R1.p;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment