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

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"