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

diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index ba27ff2..a211da3 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -66,6 +66,8 @@ register double fake_f9 __asm__("$f9");
 /* include Stg.h first because we want real machine regs in here: we
  * have to get the value of R1 back from Stg land to C land intact.
  */
+// yeuch
+#define IN_STGCRUN 1
 #include "Stg.h"
 #include "Rts.h"
 #include "StgRun.h"
@@ -87,13 +89,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;