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