diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-25 13:08:10 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-25 13:08:10 +0000 |
| commit | a8b5e840ebb42522992749eb9afd1a9ba870d234 (patch) | |
| tree | 38ba47512e065a74365d506b927d54140a7e07a0 /rts/StgCRun.c | |
| parent | 0b9530245a33b8206ca38b9de6dfb01e056fd8dc (diff) | |
| download | haskell-a8b5e840ebb42522992749eb9afd1a9ba870d234.tar.gz | |
Fix the IF_DEBUG(interpreter in StgCRun.c
Diffstat (limited to 'rts/StgCRun.c')
| -rw-r--r-- | rts/StgCRun.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/rts/StgCRun.c b/rts/StgCRun.c index ba27ff2e99..376e824055 100644 --- a/rts/StgCRun.c +++ b/rts/StgCRun.c @@ -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; |