/* This hash table maps Haskell objects to stable names, so that every
* call to lookupStableName on a given object will return the same
/* This hash table maps Haskell objects to stable names, so that every
* call to lookupStableName on a given object will return the same
//
// Also, getStablePtr is now called from __attribute__((constructor))
// functions, so initialising things here wouldn't work anyway.
//
// Also, getStablePtr is now called from __attribute__((constructor))
// functions, so initialising things here wouldn't work anyway.
if (sn != 0) {
ASSERT(stable_ptr_table[sn].addr == p);
IF_DEBUG(stable,debugBelch("cached stable name %ld at %p\n",sn,p));
if (sn != 0) {
ASSERT(stable_ptr_table[sn].addr == p);
IF_DEBUG(stable,debugBelch("cached stable name %ld at %p\n",sn,p));