X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStgCRun.c;h=98116abfddaeb6300f01f991dcc058b0b984f0ec;hb=edad06244b0a542d6b5c9ce3f3cd72941c5be804;hp=70c4bf04c57f4107b3233fc464b63e249891cba7;hpb=506299fe7ab11594a15e2167c128ab0f7a8ec89c;p=ghc-hetmet.git

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index 70c4bf0..98116ab 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -85,11 +85,13 @@ 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;