X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FStgCRun.c;h=a211da3577bd12abc1a6542a9a7839bb3963f39e;hp=376e8240555b1f28961191e88230203edaf9d76a;hb=842e9d6628a27cf1f420d53f6a5901935dc50c54;hpb=a8b5e840ebb42522992749eb9afd1a9ba870d234

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