X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSTM.h;h=dd11bb815449244882b4e5f9f66fcfc0e1eaa63d;hp=1f28b9c3faf71c3dd1b1cd2f20d9a73e6d5b1deb;hb=cf5905ea24904cf73a041fd7535e8723a668cb9a;hpb=7d7c187b4a12f1bb350e85cdb0115e19537cc704

diff --git a/rts/STM.h b/rts/STM.h
index 1f28b9c..dd11bb8 100644
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -40,7 +40,7 @@
 #define STM_UNIPROC
 #endif
 
-#pragma GCC visibility push(hidden)
+#include "BeginPrivate.h"
 
 /*----------------------------------------------------------------------
 
@@ -48,7 +48,7 @@
    --------------
 */
 
-void stmPreGCHook(void);
+void stmPreGCHook(Capability *cap);
 
 /*----------------------------------------------------------------------
 
@@ -83,13 +83,6 @@ void stmFreeAbortedTRec(Capability *cap, StgTRecHeader *trec);
 
 void stmCondemnTransaction(Capability *cap, StgTRecHeader *trec);
 
-/*
- * Return the trec within which the specified trec was created (not
- * valid if trec==NO_TREC).
- */
-
-StgTRecHeader *stmGetEnclosingTRec(StgTRecHeader *trec);
-
 /*----------------------------------------------------------------------
 
    Validation
@@ -232,7 +225,7 @@ void stmWriteTVar(Capability *cap,
 
 /*----------------------------------------------------------------------*/
 
-#pragma GCC visibility pop
+#include "EndPrivate.h"
 
 #endif /* STM_H */