Commit a8b5e840 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix the IF_DEBUG(interpreter in StgCRun.c

parent 0b953024
...@@ -258,7 +258,11 @@ TICK_VAR(2) ...@@ -258,7 +258,11 @@ TICK_VAR(2)
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
#ifdef DEBUG #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; } #define IF_DEBUG(c,s) if (RtsFlags.DebugFlags.c) { s; }
#endif
#else #else
#define IF_DEBUG(c,s) doNothing() #define IF_DEBUG(c,s) doNothing()
#endif #endif
......
...@@ -87,13 +87,11 @@ register double fake_f9 __asm__("$f9"); ...@@ -87,13 +87,11 @@ register double fake_f9 __asm__("$f9");
StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED) StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{ {
while (f) { while (f) {
/* XXX Disabled due to RtsFlags[]/RtsFlags mismatch
IF_DEBUG(interpreter, IF_DEBUG(interpreter,
debugBelch("Jumping to "); debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout); printPtr((P_)f); fflush(stdout);
debugBelch("\n"); debugBelch("\n");
); );
*/
f = (StgFunPtr) (f)(); f = (StgFunPtr) (f)();
} }
return (StgRegTable *)R1.p; return (StgRegTable *)R1.p;
......
Supports Markdown
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