X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FRts.h;h=df8cb469009d5a521b1edb3f8004aa318d75104b;hp=eba8146fd2efd9284c3e7ffbca0ca869e036a93b;hb=c004ec62b41aa2137b5b5e298ca562609b0de92e;hpb=6015a94f9108a502150565577b66c23650796639

diff --git a/includes/Rts.h b/includes/Rts.h
index eba8146..df8cb46 100644
--- a/includes/Rts.h
+++ b/includes/Rts.h
@@ -258,7 +258,11 @@ TICK_VAR(2)
    -------------------------------------------------------------------------- */
 
 #ifdef DEBUG
+#if IN_STG_CODE
+#define IF_DEBUG(c,s)  if (RtsFlags[0].DebugFlags.c) { s; }
+#else
 #define IF_DEBUG(c,s)  if (RtsFlags.DebugFlags.c) { s; }
+#endif
 #else
 #define IF_DEBUG(c,s)  doNothing()
 #endif