Fix unregisterised builds, and building on non-x86/amd64/powerpc

[ghc-hetmet.git] / rts / StgCRun.c

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index 70c4bf0..98116ab 100644 (file)
--- 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;