X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FStgCRun.c;h=376e8240555b1f28961191e88230203edaf9d76a;hp=ba27ff2e995be98f24f73ee1afbabba345125e5d;hb=50c4d03919a9d5c37c14004e964083251f655e93;hpb=4cf6fdd28fea80bd8e2bb86f2f5da15fd851f783

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index ba27ff2..376e824 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;