static ERTS_INLINE void
stat_upd_realloc(ErtsAlcType_t n, Uint size, Uint old_size)
{
if (old_size)
stat_upd_free(n, old_size);
stat_upd_alloc(n, size);
}
static void
stat_free(ErtsAlcType_t n, void *extra, void *ptr)
{
ErtsAllocatorFunctions_t *real_af = (ErtsAllocatorFunctions_t *) extra;
void *sptr;
if (!erts_is_allctr_wrapper_prelocked()) {
erts_mtx_lock(&instr_mutex);
}
if (ptr) {
sptr = (void *) (((char *) ptr) - STAT_BLOCK_HEADER_SIZE);
stat_upd_free(n, ((StatBlock_t *) sptr)->size);
}
else {
sptr = NULL;
}
(*real_af->free)(n, real_af->extra, sptr);
if (!erts_is_allctr_wrapper_prelocked()) {
erts_mtx_unlock(&instr_mutex);
}
}
static void
map_stat_free(ErtsAlcType_t n, void *extra, void *ptr)
{
ErtsAllocatorFunctions_t *real_af = (ErtsAllocatorFunctions_t *) extra;
void *mptr;
erts_mtx_lock(&instr_x_mutex);
erts_mtx_lock(&instr_mutex);
if (ptr) {
MapStatBlock_t *mb;
mptr = (void *) (((char *) ptr) - MAP_STAT_BLOCK_HEADER_SIZE);
mb = (MapStatBlock_t *) mptr;
stat_upd_free(n, mb->size);
if (mb->prev)
mb->prev->next = mb->next;
else
mem_anchor = mb->next;
if (mb->next)
mb->next->prev = mb->prev;
}
else {
mptr = NULL;
}
(*real_af->free)(n, real_af->extra, mptr);
erts_mtx_unlock(&instr_mutex);
erts_mtx_unlock(&instr_x_mutex);
}
