X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FSTM.h;h=6b65b0e871656378a252bac9e414041632798233;hb=ec0984a97cec59d0403ae1f23e23f100666e8148;hp=45723d7bd21a030feb057a0bf2beedbebfa53092;hpb=3f9677ec1c1d19667782f85bf0708cba60c903d5;p=ghc-hetmet.git

diff --git a/ghc/includes/STM.h b/ghc/includes/STM.h
index 45723d7..6b65b0e 100644
--- a/ghc/includes/STM.h
+++ b/ghc/includes/STM.h
@@ -227,7 +227,12 @@ extern void stmWriteTVar(StgTRecHeader *trec,
 
 #define END_STM_WAIT_QUEUE ((StgTVarWaitQueue *)(void *)&stg_END_STM_WAIT_QUEUE_closure)
 #define END_STM_CHUNK_LIST ((StgTRecChunk *)(void *)&stg_END_STM_CHUNK_LIST_closure)
+
+#if IN_STG_CODE
+#define NO_TREC (stg_NO_TREC_closure)
+#else
 #define NO_TREC ((StgTRecHeader *)(void *)&stg_NO_TREC_closure)
+#endif
 
 /*----------------------------------------------------------------------*/