[project @ 2005-04-22 12:28:00 by simonmar]

[ghc-hetmet.git] / ghc / includes / STM.h

diff --git a/ghc/includes/STM.h b/ghc/includes/STM.h
index 45723d7..6b65b0e 100644 (file)
--- 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
 
 /*----------------------------------------------------------------------*/