1 #include "RtsTypeable.h"
4 static StgPtr typeableStore = 0;
\r
6 Mutex typeableStoreLock;
\r
15 initMutex(&typeableStoreLock);
\r
23 closeMutex(&typeableStoreLock);
\r
25 if(typeableStore!=0) {
\r
26 freeStablePtr((StgStablePtr)typeableStore);
\r
32 getOrSetTypeableStore(StgPtr ptr)
\r
34 StgPtr ret = typeableStore;
\r
37 ACQUIRE_LOCK(&typeableStoreLock);
\r
41 typeableStore = ret = ptr;
\r
44 RELEASE_LOCK(&typeableStoreLock);
\r