Blame jemalloc/src/ctl.c

Packit 345191
#define JEMALLOC_CTL_C_
Packit 345191
#include "jemalloc/internal/jemalloc_preamble.h"
Packit 345191
#include "jemalloc/internal/jemalloc_internal_includes.h"
Packit 345191
Packit 345191
#include "jemalloc/internal/assert.h"
Packit 345191
#include "jemalloc/internal/ctl.h"
Packit 345191
#include "jemalloc/internal/extent_dss.h"
Packit 345191
#include "jemalloc/internal/extent_mmap.h"
Packit 345191
#include "jemalloc/internal/mutex.h"
Packit 345191
#include "jemalloc/internal/nstime.h"
Packit 345191
#include "jemalloc/internal/sc.h"
Packit 345191
#include "jemalloc/internal/util.h"
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
/* Data. */
Packit 345191
Packit 345191
/*
Packit 345191
 * ctl_mtx protects the following:
Packit 345191
 * - ctl_stats->*
Packit 345191
 */
Packit 345191
static malloc_mutex_t	ctl_mtx;
Packit 345191
static bool		ctl_initialized;
Packit 345191
static ctl_stats_t	*ctl_stats;
Packit 345191
static ctl_arenas_t	*ctl_arenas;
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
/* Helpers for named and indexed nodes. */
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
ctl_named_node(const ctl_node_t *node) {
Packit 345191
	return ((node->named) ? (const ctl_named_node_t *)node : NULL);
Packit 345191
}
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
ctl_named_children(const ctl_named_node_t *node, size_t index) {
Packit 345191
	const ctl_named_node_t *children = ctl_named_node(node->children);
Packit 345191
Packit 345191
	return (children ? &children[index] : NULL);
Packit 345191
}
Packit 345191
Packit 345191
static const ctl_indexed_node_t *
Packit 345191
ctl_indexed_node(const ctl_node_t *node) {
Packit 345191
	return (!node->named ? (const ctl_indexed_node_t *)node : NULL);
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
/* Function prototypes for non-inline static functions. */
Packit 345191
Packit 345191
#define CTL_PROTO(n)							\
Packit 345191
static int	n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,	\
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen);
Packit 345191
Packit 345191
#define INDEX_PROTO(n)							\
Packit 345191
static const ctl_named_node_t	*n##_index(tsdn_t *tsdn,		\
Packit 345191
    const size_t *mib, size_t miblen, size_t i);
Packit 345191
Packit 345191
CTL_PROTO(version)
Packit 345191
CTL_PROTO(epoch)
Packit 345191
CTL_PROTO(background_thread)
Packit 345191
CTL_PROTO(max_background_threads)
Packit 345191
CTL_PROTO(thread_tcache_enabled)
Packit 345191
CTL_PROTO(thread_tcache_flush)
Packit 345191
CTL_PROTO(thread_prof_name)
Packit 345191
CTL_PROTO(thread_prof_active)
Packit 345191
CTL_PROTO(thread_arena)
Packit 345191
CTL_PROTO(thread_allocated)
Packit 345191
CTL_PROTO(thread_allocatedp)
Packit 345191
CTL_PROTO(thread_deallocated)
Packit 345191
CTL_PROTO(thread_deallocatedp)
Packit 345191
CTL_PROTO(config_cache_oblivious)
Packit 345191
CTL_PROTO(config_debug)
Packit 345191
CTL_PROTO(config_fill)
Packit 345191
CTL_PROTO(config_lazy_lock)
Packit 345191
CTL_PROTO(config_malloc_conf)
Packit 345191
CTL_PROTO(config_opt_safety_checks)
Packit 345191
CTL_PROTO(config_prof)
Packit 345191
CTL_PROTO(config_prof_libgcc)
Packit 345191
CTL_PROTO(config_prof_libunwind)
Packit 345191
CTL_PROTO(config_stats)
Packit 345191
CTL_PROTO(config_utrace)
Packit 345191
CTL_PROTO(config_xmalloc)
Packit 345191
CTL_PROTO(opt_abort)
Packit 345191
CTL_PROTO(opt_abort_conf)
Packit 345191
CTL_PROTO(opt_confirm_conf)
Packit 345191
CTL_PROTO(opt_metadata_thp)
Packit 345191
CTL_PROTO(opt_retain)
Packit 345191
CTL_PROTO(opt_dss)
Packit 345191
CTL_PROTO(opt_narenas)
Packit 345191
CTL_PROTO(opt_percpu_arena)
Packit 345191
CTL_PROTO(opt_oversize_threshold)
Packit 345191
CTL_PROTO(opt_background_thread)
Packit 345191
CTL_PROTO(opt_max_background_threads)
Packit 345191
CTL_PROTO(opt_dirty_decay_ms)
Packit 345191
CTL_PROTO(opt_muzzy_decay_ms)
Packit 345191
CTL_PROTO(opt_stats_print)
Packit 345191
CTL_PROTO(opt_stats_print_opts)
Packit 345191
CTL_PROTO(opt_junk)
Packit 345191
CTL_PROTO(opt_zero)
Packit 345191
CTL_PROTO(opt_utrace)
Packit 345191
CTL_PROTO(opt_xmalloc)
Packit 345191
CTL_PROTO(opt_tcache)
Packit 345191
CTL_PROTO(opt_thp)
Packit 345191
CTL_PROTO(opt_lg_extent_max_active_fit)
Packit 345191
CTL_PROTO(opt_lg_tcache_max)
Packit 345191
CTL_PROTO(opt_prof)
Packit 345191
CTL_PROTO(opt_prof_prefix)
Packit 345191
CTL_PROTO(opt_prof_active)
Packit 345191
CTL_PROTO(opt_prof_thread_active_init)
Packit 345191
CTL_PROTO(opt_lg_prof_sample)
Packit 345191
CTL_PROTO(opt_lg_prof_interval)
Packit 345191
CTL_PROTO(opt_prof_gdump)
Packit 345191
CTL_PROTO(opt_prof_final)
Packit 345191
CTL_PROTO(opt_prof_leak)
Packit 345191
CTL_PROTO(opt_prof_accum)
Packit 345191
CTL_PROTO(tcache_create)
Packit 345191
CTL_PROTO(tcache_flush)
Packit 345191
CTL_PROTO(tcache_destroy)
Packit 345191
CTL_PROTO(arena_i_initialized)
Packit 345191
CTL_PROTO(arena_i_decay)
Packit 345191
CTL_PROTO(arena_i_purge)
Packit 345191
CTL_PROTO(arena_i_reset)
Packit 345191
CTL_PROTO(arena_i_destroy)
Packit 345191
CTL_PROTO(arena_i_dss)
Packit 345191
CTL_PROTO(arena_i_dirty_decay_ms)
Packit 345191
CTL_PROTO(arena_i_muzzy_decay_ms)
Packit 345191
CTL_PROTO(arena_i_extent_hooks)
Packit 345191
CTL_PROTO(arena_i_retain_grow_limit)
Packit 345191
INDEX_PROTO(arena_i)
Packit 345191
CTL_PROTO(arenas_bin_i_size)
Packit 345191
CTL_PROTO(arenas_bin_i_nregs)
Packit 345191
CTL_PROTO(arenas_bin_i_slab_size)
Packit 345191
CTL_PROTO(arenas_bin_i_nshards)
Packit 345191
INDEX_PROTO(arenas_bin_i)
Packit 345191
CTL_PROTO(arenas_lextent_i_size)
Packit 345191
INDEX_PROTO(arenas_lextent_i)
Packit 345191
CTL_PROTO(arenas_narenas)
Packit 345191
CTL_PROTO(arenas_dirty_decay_ms)
Packit 345191
CTL_PROTO(arenas_muzzy_decay_ms)
Packit 345191
CTL_PROTO(arenas_quantum)
Packit 345191
CTL_PROTO(arenas_page)
Packit 345191
CTL_PROTO(arenas_tcache_max)
Packit 345191
CTL_PROTO(arenas_nbins)
Packit 345191
CTL_PROTO(arenas_nhbins)
Packit 345191
CTL_PROTO(arenas_nlextents)
Packit 345191
CTL_PROTO(arenas_create)
Packit 345191
CTL_PROTO(arenas_lookup)
Packit 345191
CTL_PROTO(prof_thread_active_init)
Packit 345191
CTL_PROTO(prof_active)
Packit 345191
CTL_PROTO(prof_dump)
Packit 345191
CTL_PROTO(prof_gdump)
Packit 345191
CTL_PROTO(prof_reset)
Packit 345191
CTL_PROTO(prof_interval)
Packit 345191
CTL_PROTO(lg_prof_sample)
Packit 345191
CTL_PROTO(prof_log_start)
Packit 345191
CTL_PROTO(prof_log_stop)
Packit 345191
CTL_PROTO(stats_arenas_i_small_allocated)
Packit 345191
CTL_PROTO(stats_arenas_i_small_nmalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_small_ndalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_small_nrequests)
Packit 345191
CTL_PROTO(stats_arenas_i_small_nfills)
Packit 345191
CTL_PROTO(stats_arenas_i_small_nflushes)
Packit 345191
CTL_PROTO(stats_arenas_i_large_allocated)
Packit 345191
CTL_PROTO(stats_arenas_i_large_nmalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_large_ndalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_large_nrequests)
Packit 345191
CTL_PROTO(stats_arenas_i_large_nfills)
Packit 345191
CTL_PROTO(stats_arenas_i_large_nflushes)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nmalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_ndalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nrequests)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_curregs)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nfills)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nflushes)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nslabs)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nreslabs)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_curslabs)
Packit 345191
CTL_PROTO(stats_arenas_i_bins_j_nonfull_slabs)
Packit 345191
INDEX_PROTO(stats_arenas_i_bins_j)
Packit 345191
CTL_PROTO(stats_arenas_i_lextents_j_nmalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_lextents_j_ndalloc)
Packit 345191
CTL_PROTO(stats_arenas_i_lextents_j_nrequests)
Packit 345191
CTL_PROTO(stats_arenas_i_lextents_j_curlextents)
Packit 345191
INDEX_PROTO(stats_arenas_i_lextents_j)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_ndirty)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_nmuzzy)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_nretained)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_dirty_bytes)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_muzzy_bytes)
Packit 345191
CTL_PROTO(stats_arenas_i_extents_j_retained_bytes)
Packit 345191
INDEX_PROTO(stats_arenas_i_extents_j)
Packit 345191
CTL_PROTO(stats_arenas_i_nthreads)
Packit 345191
CTL_PROTO(stats_arenas_i_uptime)
Packit 345191
CTL_PROTO(stats_arenas_i_dss)
Packit 345191
CTL_PROTO(stats_arenas_i_dirty_decay_ms)
Packit 345191
CTL_PROTO(stats_arenas_i_muzzy_decay_ms)
Packit 345191
CTL_PROTO(stats_arenas_i_pactive)
Packit 345191
CTL_PROTO(stats_arenas_i_pdirty)
Packit 345191
CTL_PROTO(stats_arenas_i_pmuzzy)
Packit 345191
CTL_PROTO(stats_arenas_i_mapped)
Packit 345191
CTL_PROTO(stats_arenas_i_retained)
Packit 345191
CTL_PROTO(stats_arenas_i_extent_avail)
Packit 345191
CTL_PROTO(stats_arenas_i_dirty_npurge)
Packit 345191
CTL_PROTO(stats_arenas_i_dirty_nmadvise)
Packit 345191
CTL_PROTO(stats_arenas_i_dirty_purged)
Packit 345191
CTL_PROTO(stats_arenas_i_muzzy_npurge)
Packit 345191
CTL_PROTO(stats_arenas_i_muzzy_nmadvise)
Packit 345191
CTL_PROTO(stats_arenas_i_muzzy_purged)
Packit 345191
CTL_PROTO(stats_arenas_i_base)
Packit 345191
CTL_PROTO(stats_arenas_i_internal)
Packit 345191
CTL_PROTO(stats_arenas_i_metadata_thp)
Packit 345191
CTL_PROTO(stats_arenas_i_tcache_bytes)
Packit 345191
CTL_PROTO(stats_arenas_i_resident)
Packit 345191
CTL_PROTO(stats_arenas_i_abandoned_vm)
Packit 345191
INDEX_PROTO(stats_arenas_i)
Packit 345191
CTL_PROTO(stats_allocated)
Packit 345191
CTL_PROTO(stats_active)
Packit 345191
CTL_PROTO(stats_background_thread_num_threads)
Packit 345191
CTL_PROTO(stats_background_thread_num_runs)
Packit 345191
CTL_PROTO(stats_background_thread_run_interval)
Packit 345191
CTL_PROTO(stats_metadata)
Packit 345191
CTL_PROTO(stats_metadata_thp)
Packit 345191
CTL_PROTO(stats_resident)
Packit 345191
CTL_PROTO(stats_mapped)
Packit 345191
CTL_PROTO(stats_retained)
Packit 345191
CTL_PROTO(experimental_hooks_install)
Packit 345191
CTL_PROTO(experimental_hooks_remove)
Packit 345191
CTL_PROTO(experimental_utilization_query)
Packit 345191
CTL_PROTO(experimental_utilization_batch_query)
Packit 345191
CTL_PROTO(experimental_arenas_i_pactivep)
Packit 345191
INDEX_PROTO(experimental_arenas_i)
Packit 345191
Packit 345191
#define MUTEX_STATS_CTL_PROTO_GEN(n)					\
Packit 345191
CTL_PROTO(stats_##n##_num_ops)						\
Packit 345191
CTL_PROTO(stats_##n##_num_wait)						\
Packit 345191
CTL_PROTO(stats_##n##_num_spin_acq)					\
Packit 345191
CTL_PROTO(stats_##n##_num_owner_switch)					\
Packit 345191
CTL_PROTO(stats_##n##_total_wait_time)					\
Packit 345191
CTL_PROTO(stats_##n##_max_wait_time)					\
Packit 345191
CTL_PROTO(stats_##n##_max_num_thds)
Packit 345191
Packit 345191
/* Global mutexes. */
Packit 345191
#define OP(mtx) MUTEX_STATS_CTL_PROTO_GEN(mutexes_##mtx)
Packit 345191
MUTEX_PROF_GLOBAL_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
/* Per arena mutexes. */
Packit 345191
#define OP(mtx) MUTEX_STATS_CTL_PROTO_GEN(arenas_i_mutexes_##mtx)
Packit 345191
MUTEX_PROF_ARENA_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
/* Arena bin mutexes. */
Packit 345191
MUTEX_STATS_CTL_PROTO_GEN(arenas_i_bins_j_mutex)
Packit 345191
#undef MUTEX_STATS_CTL_PROTO_GEN
Packit 345191
Packit 345191
CTL_PROTO(stats_mutexes_reset)
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
/* mallctl tree. */
Packit 345191
Packit 345191
#define NAME(n)	{true},	n
Packit 345191
#define CHILD(t, c)							\
Packit 345191
	sizeof(c##_node) / sizeof(ctl_##t##_node_t),			\
Packit 345191
	(ctl_node_t *)c##_node,						\
Packit 345191
	NULL
Packit 345191
#define CTL(c)	0, NULL, c##_ctl
Packit 345191
Packit 345191
/*
Packit 345191
 * Only handles internal indexed nodes, since there are currently no external
Packit 345191
 * ones.
Packit 345191
 */
Packit 345191
#define INDEX(i)	{false},	i##_index
Packit 345191
Packit 345191
static const ctl_named_node_t	thread_tcache_node[] = {
Packit 345191
	{NAME("enabled"),	CTL(thread_tcache_enabled)},
Packit 345191
	{NAME("flush"),		CTL(thread_tcache_flush)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	thread_prof_node[] = {
Packit 345191
	{NAME("name"),		CTL(thread_prof_name)},
Packit 345191
	{NAME("active"),	CTL(thread_prof_active)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	thread_node[] = {
Packit 345191
	{NAME("arena"),		CTL(thread_arena)},
Packit 345191
	{NAME("allocated"),	CTL(thread_allocated)},
Packit 345191
	{NAME("allocatedp"),	CTL(thread_allocatedp)},
Packit 345191
	{NAME("deallocated"),	CTL(thread_deallocated)},
Packit 345191
	{NAME("deallocatedp"),	CTL(thread_deallocatedp)},
Packit 345191
	{NAME("tcache"),	CHILD(named, thread_tcache)},
Packit 345191
	{NAME("prof"),		CHILD(named, thread_prof)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	config_node[] = {
Packit 345191
	{NAME("cache_oblivious"), CTL(config_cache_oblivious)},
Packit 345191
	{NAME("debug"),		CTL(config_debug)},
Packit 345191
	{NAME("fill"),		CTL(config_fill)},
Packit 345191
	{NAME("lazy_lock"),	CTL(config_lazy_lock)},
Packit 345191
	{NAME("malloc_conf"),	CTL(config_malloc_conf)},
Packit 345191
	{NAME("opt_safety_checks"),	CTL(config_opt_safety_checks)},
Packit 345191
	{NAME("prof"),		CTL(config_prof)},
Packit 345191
	{NAME("prof_libgcc"),	CTL(config_prof_libgcc)},
Packit 345191
	{NAME("prof_libunwind"), CTL(config_prof_libunwind)},
Packit 345191
	{NAME("stats"),		CTL(config_stats)},
Packit 345191
	{NAME("utrace"),	CTL(config_utrace)},
Packit 345191
	{NAME("xmalloc"),	CTL(config_xmalloc)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t opt_node[] = {
Packit 345191
	{NAME("abort"),		CTL(opt_abort)},
Packit 345191
	{NAME("abort_conf"),	CTL(opt_abort_conf)},
Packit 345191
	{NAME("confirm_conf"),	CTL(opt_confirm_conf)},
Packit 345191
	{NAME("metadata_thp"),	CTL(opt_metadata_thp)},
Packit 345191
	{NAME("retain"),	CTL(opt_retain)},
Packit 345191
	{NAME("dss"),		CTL(opt_dss)},
Packit 345191
	{NAME("narenas"),	CTL(opt_narenas)},
Packit 345191
	{NAME("percpu_arena"),	CTL(opt_percpu_arena)},
Packit 345191
	{NAME("oversize_threshold"),	CTL(opt_oversize_threshold)},
Packit 345191
	{NAME("background_thread"),	CTL(opt_background_thread)},
Packit 345191
	{NAME("max_background_threads"),	CTL(opt_max_background_threads)},
Packit 345191
	{NAME("dirty_decay_ms"), CTL(opt_dirty_decay_ms)},
Packit 345191
	{NAME("muzzy_decay_ms"), CTL(opt_muzzy_decay_ms)},
Packit 345191
	{NAME("stats_print"),	CTL(opt_stats_print)},
Packit 345191
	{NAME("stats_print_opts"),	CTL(opt_stats_print_opts)},
Packit 345191
	{NAME("junk"),		CTL(opt_junk)},
Packit 345191
	{NAME("zero"),		CTL(opt_zero)},
Packit 345191
	{NAME("utrace"),	CTL(opt_utrace)},
Packit 345191
	{NAME("xmalloc"),	CTL(opt_xmalloc)},
Packit 345191
	{NAME("tcache"),	CTL(opt_tcache)},
Packit 345191
	{NAME("thp"),		CTL(opt_thp)},
Packit 345191
	{NAME("lg_extent_max_active_fit"), CTL(opt_lg_extent_max_active_fit)},
Packit 345191
	{NAME("lg_tcache_max"),	CTL(opt_lg_tcache_max)},
Packit 345191
	{NAME("prof"),		CTL(opt_prof)},
Packit 345191
	{NAME("prof_prefix"),	CTL(opt_prof_prefix)},
Packit 345191
	{NAME("prof_active"),	CTL(opt_prof_active)},
Packit 345191
	{NAME("prof_thread_active_init"), CTL(opt_prof_thread_active_init)},
Packit 345191
	{NAME("lg_prof_sample"), CTL(opt_lg_prof_sample)},
Packit 345191
	{NAME("lg_prof_interval"), CTL(opt_lg_prof_interval)},
Packit 345191
	{NAME("prof_gdump"),	CTL(opt_prof_gdump)},
Packit 345191
	{NAME("prof_final"),	CTL(opt_prof_final)},
Packit 345191
	{NAME("prof_leak"),	CTL(opt_prof_leak)},
Packit 345191
	{NAME("prof_accum"),	CTL(opt_prof_accum)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	tcache_node[] = {
Packit 345191
	{NAME("create"),	CTL(tcache_create)},
Packit 345191
	{NAME("flush"),		CTL(tcache_flush)},
Packit 345191
	{NAME("destroy"),	CTL(tcache_destroy)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t arena_i_node[] = {
Packit 345191
	{NAME("initialized"),	CTL(arena_i_initialized)},
Packit 345191
	{NAME("decay"),		CTL(arena_i_decay)},
Packit 345191
	{NAME("purge"),		CTL(arena_i_purge)},
Packit 345191
	{NAME("reset"),		CTL(arena_i_reset)},
Packit 345191
	{NAME("destroy"),	CTL(arena_i_destroy)},
Packit 345191
	{NAME("dss"),		CTL(arena_i_dss)},
Packit 345191
	{NAME("dirty_decay_ms"), CTL(arena_i_dirty_decay_ms)},
Packit 345191
	{NAME("muzzy_decay_ms"), CTL(arena_i_muzzy_decay_ms)},
Packit 345191
	{NAME("extent_hooks"),	CTL(arena_i_extent_hooks)},
Packit 345191
	{NAME("retain_grow_limit"),	CTL(arena_i_retain_grow_limit)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_arena_i_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, arena_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t arena_node[] = {
Packit 345191
	{INDEX(arena_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t arenas_bin_i_node[] = {
Packit 345191
	{NAME("size"),		CTL(arenas_bin_i_size)},
Packit 345191
	{NAME("nregs"),		CTL(arenas_bin_i_nregs)},
Packit 345191
	{NAME("slab_size"),	CTL(arenas_bin_i_slab_size)},
Packit 345191
	{NAME("nshards"),	CTL(arenas_bin_i_nshards)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_arenas_bin_i_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, arenas_bin_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t arenas_bin_node[] = {
Packit 345191
	{INDEX(arenas_bin_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t arenas_lextent_i_node[] = {
Packit 345191
	{NAME("size"),		CTL(arenas_lextent_i_size)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_arenas_lextent_i_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, arenas_lextent_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t arenas_lextent_node[] = {
Packit 345191
	{INDEX(arenas_lextent_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t arenas_node[] = {
Packit 345191
	{NAME("narenas"),	CTL(arenas_narenas)},
Packit 345191
	{NAME("dirty_decay_ms"), CTL(arenas_dirty_decay_ms)},
Packit 345191
	{NAME("muzzy_decay_ms"), CTL(arenas_muzzy_decay_ms)},
Packit 345191
	{NAME("quantum"),	CTL(arenas_quantum)},
Packit 345191
	{NAME("page"),		CTL(arenas_page)},
Packit 345191
	{NAME("tcache_max"),	CTL(arenas_tcache_max)},
Packit 345191
	{NAME("nbins"),		CTL(arenas_nbins)},
Packit 345191
	{NAME("nhbins"),	CTL(arenas_nhbins)},
Packit 345191
	{NAME("bin"),		CHILD(indexed, arenas_bin)},
Packit 345191
	{NAME("nlextents"),	CTL(arenas_nlextents)},
Packit 345191
	{NAME("lextent"),	CHILD(indexed, arenas_lextent)},
Packit 345191
	{NAME("create"),	CTL(arenas_create)},
Packit 345191
	{NAME("lookup"),	CTL(arenas_lookup)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	prof_node[] = {
Packit 345191
	{NAME("thread_active_init"), CTL(prof_thread_active_init)},
Packit 345191
	{NAME("active"),	CTL(prof_active)},
Packit 345191
	{NAME("dump"),		CTL(prof_dump)},
Packit 345191
	{NAME("gdump"),		CTL(prof_gdump)},
Packit 345191
	{NAME("reset"),		CTL(prof_reset)},
Packit 345191
	{NAME("interval"),	CTL(prof_interval)},
Packit 345191
	{NAME("lg_sample"),	CTL(lg_prof_sample)},
Packit 345191
	{NAME("log_start"),	CTL(prof_log_start)},
Packit 345191
	{NAME("log_stop"),	CTL(prof_log_stop)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t stats_arenas_i_small_node[] = {
Packit 345191
	{NAME("allocated"),	CTL(stats_arenas_i_small_allocated)},
Packit 345191
	{NAME("nmalloc"),	CTL(stats_arenas_i_small_nmalloc)},
Packit 345191
	{NAME("ndalloc"),	CTL(stats_arenas_i_small_ndalloc)},
Packit 345191
	{NAME("nrequests"),	CTL(stats_arenas_i_small_nrequests)},
Packit 345191
	{NAME("nfills"),	CTL(stats_arenas_i_small_nfills)},
Packit 345191
	{NAME("nflushes"),	CTL(stats_arenas_i_small_nflushes)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_large_node[] = {
Packit 345191
	{NAME("allocated"),	CTL(stats_arenas_i_large_allocated)},
Packit 345191
	{NAME("nmalloc"),	CTL(stats_arenas_i_large_nmalloc)},
Packit 345191
	{NAME("ndalloc"),	CTL(stats_arenas_i_large_ndalloc)},
Packit 345191
	{NAME("nrequests"),	CTL(stats_arenas_i_large_nrequests)},
Packit 345191
	{NAME("nfills"),	CTL(stats_arenas_i_large_nfills)},
Packit 345191
	{NAME("nflushes"),	CTL(stats_arenas_i_large_nflushes)}
Packit 345191
};
Packit 345191
Packit 345191
#define MUTEX_PROF_DATA_NODE(prefix)					\
Packit 345191
static const ctl_named_node_t stats_##prefix##_node[] = {		\
Packit 345191
	{NAME("num_ops"),						\
Packit 345191
	 CTL(stats_##prefix##_num_ops)},				\
Packit 345191
	{NAME("num_wait"),						\
Packit 345191
	 CTL(stats_##prefix##_num_wait)},				\
Packit 345191
	{NAME("num_spin_acq"),						\
Packit 345191
	 CTL(stats_##prefix##_num_spin_acq)},				\
Packit 345191
	{NAME("num_owner_switch"),					\
Packit 345191
	 CTL(stats_##prefix##_num_owner_switch)},			\
Packit 345191
	{NAME("total_wait_time"),					\
Packit 345191
	 CTL(stats_##prefix##_total_wait_time)},			\
Packit 345191
	{NAME("max_wait_time"),						\
Packit 345191
	 CTL(stats_##prefix##_max_wait_time)},				\
Packit 345191
	{NAME("max_num_thds"),						\
Packit 345191
	 CTL(stats_##prefix##_max_num_thds)}				\
Packit 345191
	/* Note that # of current waiting thread not provided. */	\
Packit 345191
};
Packit 345191
Packit 345191
MUTEX_PROF_DATA_NODE(arenas_i_bins_j_mutex)
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_bins_j_node[] = {
Packit 345191
	{NAME("nmalloc"),	CTL(stats_arenas_i_bins_j_nmalloc)},
Packit 345191
	{NAME("ndalloc"),	CTL(stats_arenas_i_bins_j_ndalloc)},
Packit 345191
	{NAME("nrequests"),	CTL(stats_arenas_i_bins_j_nrequests)},
Packit 345191
	{NAME("curregs"),	CTL(stats_arenas_i_bins_j_curregs)},
Packit 345191
	{NAME("nfills"),	CTL(stats_arenas_i_bins_j_nfills)},
Packit 345191
	{NAME("nflushes"),	CTL(stats_arenas_i_bins_j_nflushes)},
Packit 345191
	{NAME("nslabs"),	CTL(stats_arenas_i_bins_j_nslabs)},
Packit 345191
	{NAME("nreslabs"),	CTL(stats_arenas_i_bins_j_nreslabs)},
Packit 345191
	{NAME("curslabs"),	CTL(stats_arenas_i_bins_j_curslabs)},
Packit 345191
	{NAME("nonfull_slabs"),	CTL(stats_arenas_i_bins_j_nonfull_slabs)},
Packit 345191
	{NAME("mutex"),		CHILD(named, stats_arenas_i_bins_j_mutex)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t super_stats_arenas_i_bins_j_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, stats_arenas_i_bins_j)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t stats_arenas_i_bins_node[] = {
Packit 345191
	{INDEX(stats_arenas_i_bins_j)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_lextents_j_node[] = {
Packit 345191
	{NAME("nmalloc"),	CTL(stats_arenas_i_lextents_j_nmalloc)},
Packit 345191
	{NAME("ndalloc"),	CTL(stats_arenas_i_lextents_j_ndalloc)},
Packit 345191
	{NAME("nrequests"),	CTL(stats_arenas_i_lextents_j_nrequests)},
Packit 345191
	{NAME("curlextents"),	CTL(stats_arenas_i_lextents_j_curlextents)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_stats_arenas_i_lextents_j_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, stats_arenas_i_lextents_j)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t stats_arenas_i_lextents_node[] = {
Packit 345191
	{INDEX(stats_arenas_i_lextents_j)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_extents_j_node[] = {
Packit 345191
	{NAME("ndirty"),	CTL(stats_arenas_i_extents_j_ndirty)},
Packit 345191
	{NAME("nmuzzy"),	CTL(stats_arenas_i_extents_j_nmuzzy)},
Packit 345191
	{NAME("nretained"),	CTL(stats_arenas_i_extents_j_nretained)},
Packit 345191
	{NAME("dirty_bytes"),	CTL(stats_arenas_i_extents_j_dirty_bytes)},
Packit 345191
	{NAME("muzzy_bytes"),	CTL(stats_arenas_i_extents_j_muzzy_bytes)},
Packit 345191
	{NAME("retained_bytes"), CTL(stats_arenas_i_extents_j_retained_bytes)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t super_stats_arenas_i_extents_j_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, stats_arenas_i_extents_j)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t stats_arenas_i_extents_node[] = {
Packit 345191
	{INDEX(stats_arenas_i_extents_j)}
Packit 345191
};
Packit 345191
Packit 345191
#define OP(mtx)  MUTEX_PROF_DATA_NODE(arenas_i_mutexes_##mtx)
Packit 345191
MUTEX_PROF_ARENA_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_mutexes_node[] = {
Packit 345191
#define OP(mtx) {NAME(#mtx), CHILD(named, stats_arenas_i_mutexes_##mtx)},
Packit 345191
MUTEX_PROF_ARENA_MUTEXES
Packit 345191
#undef OP
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t stats_arenas_i_node[] = {
Packit 345191
	{NAME("nthreads"),	CTL(stats_arenas_i_nthreads)},
Packit 345191
	{NAME("uptime"),	CTL(stats_arenas_i_uptime)},
Packit 345191
	{NAME("dss"),		CTL(stats_arenas_i_dss)},
Packit 345191
	{NAME("dirty_decay_ms"), CTL(stats_arenas_i_dirty_decay_ms)},
Packit 345191
	{NAME("muzzy_decay_ms"), CTL(stats_arenas_i_muzzy_decay_ms)},
Packit 345191
	{NAME("pactive"),	CTL(stats_arenas_i_pactive)},
Packit 345191
	{NAME("pdirty"),	CTL(stats_arenas_i_pdirty)},
Packit 345191
	{NAME("pmuzzy"),	CTL(stats_arenas_i_pmuzzy)},
Packit 345191
	{NAME("mapped"),	CTL(stats_arenas_i_mapped)},
Packit 345191
	{NAME("retained"),	CTL(stats_arenas_i_retained)},
Packit 345191
	{NAME("extent_avail"),	CTL(stats_arenas_i_extent_avail)},
Packit 345191
	{NAME("dirty_npurge"),	CTL(stats_arenas_i_dirty_npurge)},
Packit 345191
	{NAME("dirty_nmadvise"), CTL(stats_arenas_i_dirty_nmadvise)},
Packit 345191
	{NAME("dirty_purged"),	CTL(stats_arenas_i_dirty_purged)},
Packit 345191
	{NAME("muzzy_npurge"),	CTL(stats_arenas_i_muzzy_npurge)},
Packit 345191
	{NAME("muzzy_nmadvise"), CTL(stats_arenas_i_muzzy_nmadvise)},
Packit 345191
	{NAME("muzzy_purged"),	CTL(stats_arenas_i_muzzy_purged)},
Packit 345191
	{NAME("base"),		CTL(stats_arenas_i_base)},
Packit 345191
	{NAME("internal"),	CTL(stats_arenas_i_internal)},
Packit 345191
	{NAME("metadata_thp"),	CTL(stats_arenas_i_metadata_thp)},
Packit 345191
	{NAME("tcache_bytes"),	CTL(stats_arenas_i_tcache_bytes)},
Packit 345191
	{NAME("resident"),	CTL(stats_arenas_i_resident)},
Packit 345191
	{NAME("abandoned_vm"),	CTL(stats_arenas_i_abandoned_vm)},
Packit 345191
	{NAME("small"),		CHILD(named, stats_arenas_i_small)},
Packit 345191
	{NAME("large"),		CHILD(named, stats_arenas_i_large)},
Packit 345191
	{NAME("bins"),		CHILD(indexed, stats_arenas_i_bins)},
Packit 345191
	{NAME("lextents"),	CHILD(indexed, stats_arenas_i_lextents)},
Packit 345191
	{NAME("extents"),	CHILD(indexed, stats_arenas_i_extents)},
Packit 345191
	{NAME("mutexes"),	CHILD(named, stats_arenas_i_mutexes)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_stats_arenas_i_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, stats_arenas_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t stats_arenas_node[] = {
Packit 345191
	{INDEX(stats_arenas_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t stats_background_thread_node[] = {
Packit 345191
	{NAME("num_threads"),	CTL(stats_background_thread_num_threads)},
Packit 345191
	{NAME("num_runs"),	CTL(stats_background_thread_num_runs)},
Packit 345191
	{NAME("run_interval"),	CTL(stats_background_thread_run_interval)}
Packit 345191
};
Packit 345191
Packit 345191
#define OP(mtx) MUTEX_PROF_DATA_NODE(mutexes_##mtx)
Packit 345191
MUTEX_PROF_GLOBAL_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
static const ctl_named_node_t stats_mutexes_node[] = {
Packit 345191
#define OP(mtx) {NAME(#mtx), CHILD(named, stats_mutexes_##mtx)},
Packit 345191
MUTEX_PROF_GLOBAL_MUTEXES
Packit 345191
#undef OP
Packit 345191
	{NAME("reset"),		CTL(stats_mutexes_reset)}
Packit 345191
};
Packit 345191
#undef MUTEX_PROF_DATA_NODE
Packit 345191
Packit 345191
static const ctl_named_node_t stats_node[] = {
Packit 345191
	{NAME("allocated"),	CTL(stats_allocated)},
Packit 345191
	{NAME("active"),	CTL(stats_active)},
Packit 345191
	{NAME("metadata"),	CTL(stats_metadata)},
Packit 345191
	{NAME("metadata_thp"),	CTL(stats_metadata_thp)},
Packit 345191
	{NAME("resident"),	CTL(stats_resident)},
Packit 345191
	{NAME("mapped"),	CTL(stats_mapped)},
Packit 345191
	{NAME("retained"),	CTL(stats_retained)},
Packit 345191
	{NAME("background_thread"),
Packit 345191
	 CHILD(named, stats_background_thread)},
Packit 345191
	{NAME("mutexes"),	CHILD(named, stats_mutexes)},
Packit 345191
	{NAME("arenas"),	CHILD(indexed, stats_arenas)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t experimental_hooks_node[] = {
Packit 345191
	{NAME("install"),	CTL(experimental_hooks_install)},
Packit 345191
	{NAME("remove"),	CTL(experimental_hooks_remove)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t experimental_utilization_node[] = {
Packit 345191
	{NAME("query"),		CTL(experimental_utilization_query)},
Packit 345191
	{NAME("batch_query"),	CTL(experimental_utilization_batch_query)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t experimental_arenas_i_node[] = {
Packit 345191
	{NAME("pactivep"),	CTL(experimental_arenas_i_pactivep)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_experimental_arenas_i_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, experimental_arenas_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_indexed_node_t experimental_arenas_node[] = {
Packit 345191
	{INDEX(experimental_arenas_i)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t experimental_node[] = {
Packit 345191
	{NAME("hooks"),		CHILD(named, experimental_hooks)},
Packit 345191
	{NAME("utilization"),	CHILD(named, experimental_utilization)},
Packit 345191
	{NAME("arenas"),	CHILD(indexed, experimental_arenas)}
Packit 345191
};
Packit 345191
Packit 345191
static const ctl_named_node_t	root_node[] = {
Packit 345191
	{NAME("version"),	CTL(version)},
Packit 345191
	{NAME("epoch"),		CTL(epoch)},
Packit 345191
	{NAME("background_thread"),	CTL(background_thread)},
Packit 345191
	{NAME("max_background_threads"),	CTL(max_background_threads)},
Packit 345191
	{NAME("thread"),	CHILD(named, thread)},
Packit 345191
	{NAME("config"),	CHILD(named, config)},
Packit 345191
	{NAME("opt"),		CHILD(named, opt)},
Packit 345191
	{NAME("tcache"),	CHILD(named, tcache)},
Packit 345191
	{NAME("arena"),		CHILD(indexed, arena)},
Packit 345191
	{NAME("arenas"),	CHILD(named, arenas)},
Packit 345191
	{NAME("prof"),		CHILD(named, prof)},
Packit 345191
	{NAME("stats"),		CHILD(named, stats)},
Packit 345191
	{NAME("experimental"),	CHILD(named, experimental)}
Packit 345191
};
Packit 345191
static const ctl_named_node_t super_root_node[] = {
Packit 345191
	{NAME(""),		CHILD(named, root)}
Packit 345191
};
Packit 345191
Packit 345191
#undef NAME
Packit 345191
#undef CHILD
Packit 345191
#undef CTL
Packit 345191
#undef INDEX
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
/*
Packit 345191
 * Sets *dst + *src non-atomically.  This is safe, since everything is
Packit 345191
 * synchronized by the ctl mutex.
Packit 345191
 */
Packit 345191
static void
Packit 345191
ctl_accum_arena_stats_u64(arena_stats_u64_t *dst, arena_stats_u64_t *src) {
Packit 345191
#ifdef JEMALLOC_ATOMIC_U64
Packit 345191
	uint64_t cur_dst = atomic_load_u64(dst, ATOMIC_RELAXED);
Packit 345191
	uint64_t cur_src = atomic_load_u64(src, ATOMIC_RELAXED);
Packit 345191
	atomic_store_u64(dst, cur_dst + cur_src, ATOMIC_RELAXED);
Packit 345191
#else
Packit 345191
	*dst += *src;
Packit 345191
#endif
Packit 345191
}
Packit 345191
Packit 345191
/* Likewise: with ctl mutex synchronization, reading is simple. */
Packit 345191
static uint64_t
Packit 345191
ctl_arena_stats_read_u64(arena_stats_u64_t *p) {
Packit 345191
#ifdef JEMALLOC_ATOMIC_U64
Packit 345191
	return atomic_load_u64(p, ATOMIC_RELAXED);
Packit 345191
#else
Packit 345191
	return *p;
Packit 345191
#endif
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
accum_atomic_zu(atomic_zu_t *dst, atomic_zu_t *src) {
Packit 345191
	size_t cur_dst = atomic_load_zu(dst, ATOMIC_RELAXED);
Packit 345191
	size_t cur_src = atomic_load_zu(src, ATOMIC_RELAXED);
Packit 345191
	atomic_store_zu(dst, cur_dst + cur_src, ATOMIC_RELAXED);
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static unsigned
Packit 345191
arenas_i2a_impl(size_t i, bool compat, bool validate) {
Packit 345191
	unsigned a;
Packit 345191
Packit 345191
	switch (i) {
Packit 345191
	case MALLCTL_ARENAS_ALL:
Packit 345191
		a = 0;
Packit 345191
		break;
Packit 345191
	case MALLCTL_ARENAS_DESTROYED:
Packit 345191
		a = 1;
Packit 345191
		break;
Packit 345191
	default:
Packit 345191
		if (compat && i == ctl_arenas->narenas) {
Packit 345191
			/*
Packit 345191
			 * Provide deprecated backward compatibility for
Packit 345191
			 * accessing the merged stats at index narenas rather
Packit 345191
			 * than via MALLCTL_ARENAS_ALL.  This is scheduled for
Packit 345191
			 * removal in 6.0.0.
Packit 345191
			 */
Packit 345191
			a = 0;
Packit 345191
		} else if (validate && i >= ctl_arenas->narenas) {
Packit 345191
			a = UINT_MAX;
Packit 345191
		} else {
Packit 345191
			/*
Packit 345191
			 * This function should never be called for an index
Packit 345191
			 * more than one past the range of indices that have
Packit 345191
			 * initialized ctl data.
Packit 345191
			 */
Packit 345191
			assert(i < ctl_arenas->narenas || (!validate && i ==
Packit 345191
			    ctl_arenas->narenas));
Packit 345191
			a = (unsigned)i + 2;
Packit 345191
		}
Packit 345191
		break;
Packit 345191
	}
Packit 345191
Packit 345191
	return a;
Packit 345191
}
Packit 345191
Packit 345191
static unsigned
Packit 345191
arenas_i2a(size_t i) {
Packit 345191
	return arenas_i2a_impl(i, true, false);
Packit 345191
}
Packit 345191
Packit 345191
static ctl_arena_t *
Packit 345191
arenas_i_impl(tsd_t *tsd, size_t i, bool compat, bool init) {
Packit 345191
	ctl_arena_t *ret;
Packit 345191
Packit 345191
	assert(!compat || !init);
Packit 345191
Packit 345191
	ret = ctl_arenas->arenas[arenas_i2a_impl(i, compat, false)];
Packit 345191
	if (init && ret == NULL) {
Packit 345191
		if (config_stats) {
Packit 345191
			struct container_s {
Packit 345191
				ctl_arena_t		ctl_arena;
Packit 345191
				ctl_arena_stats_t	astats;
Packit 345191
			};
Packit 345191
			struct container_s *cont =
Packit 345191
			    (struct container_s *)base_alloc(tsd_tsdn(tsd),
Packit 345191
			    b0get(), sizeof(struct container_s), QUANTUM);
Packit 345191
			if (cont == NULL) {
Packit 345191
				return NULL;
Packit 345191
			}
Packit 345191
			ret = &cont->ctl_arena;
Packit 345191
			ret->astats = &cont->astats;
Packit 345191
		} else {
Packit 345191
			ret = (ctl_arena_t *)base_alloc(tsd_tsdn(tsd), b0get(),
Packit 345191
			    sizeof(ctl_arena_t), QUANTUM);
Packit 345191
			if (ret == NULL) {
Packit 345191
				return NULL;
Packit 345191
			}
Packit 345191
		}
Packit 345191
		ret->arena_ind = (unsigned)i;
Packit 345191
		ctl_arenas->arenas[arenas_i2a_impl(i, compat, false)] = ret;
Packit 345191
	}
Packit 345191
Packit 345191
	assert(ret == NULL || arenas_i2a(ret->arena_ind) == arenas_i2a(i));
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static ctl_arena_t *
Packit 345191
arenas_i(size_t i) {
Packit 345191
	ctl_arena_t *ret = arenas_i_impl(tsd_fetch(), i, true, false);
Packit 345191
	assert(ret != NULL);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_arena_clear(ctl_arena_t *ctl_arena) {
Packit 345191
	ctl_arena->nthreads = 0;
Packit 345191
	ctl_arena->dss = dss_prec_names[dss_prec_limit];
Packit 345191
	ctl_arena->dirty_decay_ms = -1;
Packit 345191
	ctl_arena->muzzy_decay_ms = -1;
Packit 345191
	ctl_arena->pactive = 0;
Packit 345191
	ctl_arena->pdirty = 0;
Packit 345191
	ctl_arena->pmuzzy = 0;
Packit 345191
	if (config_stats) {
Packit 345191
		memset(&ctl_arena->astats->astats, 0, sizeof(arena_stats_t));
Packit 345191
		ctl_arena->astats->allocated_small = 0;
Packit 345191
		ctl_arena->astats->nmalloc_small = 0;
Packit 345191
		ctl_arena->astats->ndalloc_small = 0;
Packit 345191
		ctl_arena->astats->nrequests_small = 0;
Packit 345191
		ctl_arena->astats->nfills_small = 0;
Packit 345191
		ctl_arena->astats->nflushes_small = 0;
Packit 345191
		memset(ctl_arena->astats->bstats, 0, SC_NBINS *
Packit 345191
		    sizeof(bin_stats_t));
Packit 345191
		memset(ctl_arena->astats->lstats, 0, (SC_NSIZES - SC_NBINS) *
Packit 345191
		    sizeof(arena_stats_large_t));
Packit 345191
		memset(ctl_arena->astats->estats, 0, SC_NPSIZES *
Packit 345191
		    sizeof(arena_stats_extents_t));
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_arena_stats_amerge(tsdn_t *tsdn, ctl_arena_t *ctl_arena, arena_t *arena) {
Packit 345191
	unsigned i;
Packit 345191
Packit 345191
	if (config_stats) {
Packit 345191
		arena_stats_merge(tsdn, arena, &ctl_arena->nthreads,
Packit 345191
		    &ctl_arena->dss, &ctl_arena->dirty_decay_ms,
Packit 345191
		    &ctl_arena->muzzy_decay_ms, &ctl_arena->pactive,
Packit 345191
		    &ctl_arena->pdirty, &ctl_arena->pmuzzy,
Packit 345191
		    &ctl_arena->astats->astats, ctl_arena->astats->bstats,
Packit 345191
		    ctl_arena->astats->lstats, ctl_arena->astats->estats);
Packit 345191
Packit 345191
		for (i = 0; i < SC_NBINS; i++) {
Packit 345191
			ctl_arena->astats->allocated_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].curregs *
Packit 345191
			    sz_index2size(i);
Packit 345191
			ctl_arena->astats->nmalloc_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].nmalloc;
Packit 345191
			ctl_arena->astats->ndalloc_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].ndalloc;
Packit 345191
			ctl_arena->astats->nrequests_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].nrequests;
Packit 345191
			ctl_arena->astats->nfills_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].nfills;
Packit 345191
			ctl_arena->astats->nflushes_small +=
Packit 345191
			    ctl_arena->astats->bstats[i].nflushes;
Packit 345191
		}
Packit 345191
	} else {
Packit 345191
		arena_basic_stats_merge(tsdn, arena, &ctl_arena->nthreads,
Packit 345191
		    &ctl_arena->dss, &ctl_arena->dirty_decay_ms,
Packit 345191
		    &ctl_arena->muzzy_decay_ms, &ctl_arena->pactive,
Packit 345191
		    &ctl_arena->pdirty, &ctl_arena->pmuzzy);
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_arena_stats_sdmerge(ctl_arena_t *ctl_sdarena, ctl_arena_t *ctl_arena,
Packit 345191
    bool destroyed) {
Packit 345191
	unsigned i;
Packit 345191
Packit 345191
	if (!destroyed) {
Packit 345191
		ctl_sdarena->nthreads += ctl_arena->nthreads;
Packit 345191
		ctl_sdarena->pactive += ctl_arena->pactive;
Packit 345191
		ctl_sdarena->pdirty += ctl_arena->pdirty;
Packit 345191
		ctl_sdarena->pmuzzy += ctl_arena->pmuzzy;
Packit 345191
	} else {
Packit 345191
		assert(ctl_arena->nthreads == 0);
Packit 345191
		assert(ctl_arena->pactive == 0);
Packit 345191
		assert(ctl_arena->pdirty == 0);
Packit 345191
		assert(ctl_arena->pmuzzy == 0);
Packit 345191
	}
Packit 345191
Packit 345191
	if (config_stats) {
Packit 345191
		ctl_arena_stats_t *sdstats = ctl_sdarena->astats;
Packit 345191
		ctl_arena_stats_t *astats = ctl_arena->astats;
Packit 345191
Packit 345191
		if (!destroyed) {
Packit 345191
			accum_atomic_zu(&sdstats->astats.mapped,
Packit 345191
			    &astats->astats.mapped);
Packit 345191
			accum_atomic_zu(&sdstats->astats.retained,
Packit 345191
			    &astats->astats.retained);
Packit 345191
			accum_atomic_zu(&sdstats->astats.extent_avail,
Packit 345191
			    &astats->astats.extent_avail);
Packit 345191
		}
Packit 345191
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_dirty.npurge,
Packit 345191
		    &astats->astats.decay_dirty.npurge);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_dirty.nmadvise,
Packit 345191
		    &astats->astats.decay_dirty.nmadvise);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_dirty.purged,
Packit 345191
		    &astats->astats.decay_dirty.purged);
Packit 345191
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_muzzy.npurge,
Packit 345191
		    &astats->astats.decay_muzzy.npurge);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_muzzy.nmadvise,
Packit 345191
		    &astats->astats.decay_muzzy.nmadvise);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.decay_muzzy.purged,
Packit 345191
		    &astats->astats.decay_muzzy.purged);
Packit 345191
Packit 345191
#define OP(mtx) malloc_mutex_prof_merge(				\
Packit 345191
		    &(sdstats->astats.mutex_prof_data[			\
Packit 345191
		        arena_prof_mutex_##mtx]),			\
Packit 345191
		    &(astats->astats.mutex_prof_data[			\
Packit 345191
		        arena_prof_mutex_##mtx]));
Packit 345191
MUTEX_PROF_ARENA_MUTEXES
Packit 345191
#undef OP
Packit 345191
		if (!destroyed) {
Packit 345191
			accum_atomic_zu(&sdstats->astats.base,
Packit 345191
			    &astats->astats.base);
Packit 345191
			accum_atomic_zu(&sdstats->astats.internal,
Packit 345191
			    &astats->astats.internal);
Packit 345191
			accum_atomic_zu(&sdstats->astats.resident,
Packit 345191
			    &astats->astats.resident);
Packit 345191
			accum_atomic_zu(&sdstats->astats.metadata_thp,
Packit 345191
			    &astats->astats.metadata_thp);
Packit 345191
		} else {
Packit 345191
			assert(atomic_load_zu(
Packit 345191
			    &astats->astats.internal, ATOMIC_RELAXED) == 0);
Packit 345191
		}
Packit 345191
Packit 345191
		if (!destroyed) {
Packit 345191
			sdstats->allocated_small += astats->allocated_small;
Packit 345191
		} else {
Packit 345191
			assert(astats->allocated_small == 0);
Packit 345191
		}
Packit 345191
		sdstats->nmalloc_small += astats->nmalloc_small;
Packit 345191
		sdstats->ndalloc_small += astats->ndalloc_small;
Packit 345191
		sdstats->nrequests_small += astats->nrequests_small;
Packit 345191
		sdstats->nfills_small += astats->nfills_small;
Packit 345191
		sdstats->nflushes_small += astats->nflushes_small;
Packit 345191
Packit 345191
		if (!destroyed) {
Packit 345191
			accum_atomic_zu(&sdstats->astats.allocated_large,
Packit 345191
			    &astats->astats.allocated_large);
Packit 345191
		} else {
Packit 345191
			assert(atomic_load_zu(&astats->astats.allocated_large,
Packit 345191
			    ATOMIC_RELAXED) == 0);
Packit 345191
		}
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.nmalloc_large,
Packit 345191
		    &astats->astats.nmalloc_large);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.ndalloc_large,
Packit 345191
		    &astats->astats.ndalloc_large);
Packit 345191
		ctl_accum_arena_stats_u64(&sdstats->astats.nrequests_large,
Packit 345191
		    &astats->astats.nrequests_large);
Packit 345191
		accum_atomic_zu(&sdstats->astats.abandoned_vm,
Packit 345191
		    &astats->astats.abandoned_vm);
Packit 345191
Packit 345191
		accum_atomic_zu(&sdstats->astats.tcache_bytes,
Packit 345191
		    &astats->astats.tcache_bytes);
Packit 345191
Packit 345191
		if (ctl_arena->arena_ind == 0) {
Packit 345191
			sdstats->astats.uptime = astats->astats.uptime;
Packit 345191
		}
Packit 345191
Packit 345191
		/* Merge bin stats. */
Packit 345191
		for (i = 0; i < SC_NBINS; i++) {
Packit 345191
			sdstats->bstats[i].nmalloc += astats->bstats[i].nmalloc;
Packit 345191
			sdstats->bstats[i].ndalloc += astats->bstats[i].ndalloc;
Packit 345191
			sdstats->bstats[i].nrequests +=
Packit 345191
			    astats->bstats[i].nrequests;
Packit 345191
			if (!destroyed) {
Packit 345191
				sdstats->bstats[i].curregs +=
Packit 345191
				    astats->bstats[i].curregs;
Packit 345191
			} else {
Packit 345191
				assert(astats->bstats[i].curregs == 0);
Packit 345191
			}
Packit 345191
			sdstats->bstats[i].nfills += astats->bstats[i].nfills;
Packit 345191
			sdstats->bstats[i].nflushes +=
Packit 345191
			    astats->bstats[i].nflushes;
Packit 345191
			sdstats->bstats[i].nslabs += astats->bstats[i].nslabs;
Packit 345191
			sdstats->bstats[i].reslabs += astats->bstats[i].reslabs;
Packit 345191
			if (!destroyed) {
Packit 345191
				sdstats->bstats[i].curslabs +=
Packit 345191
				    astats->bstats[i].curslabs;
Packit 345191
				sdstats->bstats[i].nonfull_slabs +=
Packit 345191
				    astats->bstats[i].nonfull_slabs;
Packit 345191
			} else {
Packit 345191
				assert(astats->bstats[i].curslabs == 0);
Packit 345191
				assert(astats->bstats[i].nonfull_slabs == 0);
Packit 345191
			}
Packit 345191
			malloc_mutex_prof_merge(&sdstats->bstats[i].mutex_data,
Packit 345191
			    &astats->bstats[i].mutex_data);
Packit 345191
		}
Packit 345191
Packit 345191
		/* Merge stats for large allocations. */
Packit 345191
		for (i = 0; i < SC_NSIZES - SC_NBINS; i++) {
Packit 345191
			ctl_accum_arena_stats_u64(&sdstats->lstats[i].nmalloc,
Packit 345191
			    &astats->lstats[i].nmalloc);
Packit 345191
			ctl_accum_arena_stats_u64(&sdstats->lstats[i].ndalloc,
Packit 345191
			    &astats->lstats[i].ndalloc);
Packit 345191
			ctl_accum_arena_stats_u64(&sdstats->lstats[i].nrequests,
Packit 345191
			    &astats->lstats[i].nrequests);
Packit 345191
			if (!destroyed) {
Packit 345191
				sdstats->lstats[i].curlextents +=
Packit 345191
				    astats->lstats[i].curlextents;
Packit 345191
			} else {
Packit 345191
				assert(astats->lstats[i].curlextents == 0);
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		/* Merge extents stats. */
Packit 345191
		for (i = 0; i < SC_NPSIZES; i++) {
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].ndirty,
Packit 345191
			    &astats->estats[i].ndirty);
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].nmuzzy,
Packit 345191
			    &astats->estats[i].nmuzzy);
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].nretained,
Packit 345191
			    &astats->estats[i].nretained);
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].dirty_bytes,
Packit 345191
			    &astats->estats[i].dirty_bytes);
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].muzzy_bytes,
Packit 345191
			    &astats->estats[i].muzzy_bytes);
Packit 345191
			accum_atomic_zu(&sdstats->estats[i].retained_bytes,
Packit 345191
			    &astats->estats[i].retained_bytes);
Packit 345191
		}
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_arena_refresh(tsdn_t *tsdn, arena_t *arena, ctl_arena_t *ctl_sdarena,
Packit 345191
    unsigned i, bool destroyed) {
Packit 345191
	ctl_arena_t *ctl_arena = arenas_i(i);
Packit 345191
Packit 345191
	ctl_arena_clear(ctl_arena);
Packit 345191
	ctl_arena_stats_amerge(tsdn, ctl_arena, arena);
Packit 345191
	/* Merge into sum stats as well. */
Packit 345191
	ctl_arena_stats_sdmerge(ctl_sdarena, ctl_arena, destroyed);
Packit 345191
}
Packit 345191
Packit 345191
static unsigned
Packit 345191
ctl_arena_init(tsd_t *tsd, extent_hooks_t *extent_hooks) {
Packit 345191
	unsigned arena_ind;
Packit 345191
	ctl_arena_t *ctl_arena;
Packit 345191
Packit 345191
	if ((ctl_arena = ql_last(&ctl_arenas->destroyed, destroyed_link)) !=
Packit 345191
	    NULL) {
Packit 345191
		ql_remove(&ctl_arenas->destroyed, ctl_arena, destroyed_link);
Packit 345191
		arena_ind = ctl_arena->arena_ind;
Packit 345191
	} else {
Packit 345191
		arena_ind = ctl_arenas->narenas;
Packit 345191
	}
Packit 345191
Packit 345191
	/* Trigger stats allocation. */
Packit 345191
	if (arenas_i_impl(tsd, arena_ind, false, true) == NULL) {
Packit 345191
		return UINT_MAX;
Packit 345191
	}
Packit 345191
Packit 345191
	/* Initialize new arena. */
Packit 345191
	if (arena_init(tsd_tsdn(tsd), arena_ind, extent_hooks) == NULL) {
Packit 345191
		return UINT_MAX;
Packit 345191
	}
Packit 345191
Packit 345191
	if (arena_ind == ctl_arenas->narenas) {
Packit 345191
		ctl_arenas->narenas++;
Packit 345191
	}
Packit 345191
Packit 345191
	return arena_ind;
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_background_thread_stats_read(tsdn_t *tsdn) {
Packit 345191
	background_thread_stats_t *stats = &ctl_stats->background_thread;
Packit 345191
	if (!have_background_thread ||
Packit 345191
	    background_thread_stats_read(tsdn, stats)) {
Packit 345191
		memset(stats, 0, sizeof(background_thread_stats_t));
Packit 345191
		nstime_init(&stats->run_interval, 0);
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
ctl_refresh(tsdn_t *tsdn) {
Packit 345191
	unsigned i;
Packit 345191
	ctl_arena_t *ctl_sarena = arenas_i(MALLCTL_ARENAS_ALL);
Packit 345191
	VARIABLE_ARRAY(arena_t *, tarenas, ctl_arenas->narenas);
Packit 345191
Packit 345191
	/*
Packit 345191
	 * Clear sum stats, since they will be merged into by
Packit 345191
	 * ctl_arena_refresh().
Packit 345191
	 */
Packit 345191
	ctl_arena_clear(ctl_sarena);
Packit 345191
Packit 345191
	for (i = 0; i < ctl_arenas->narenas; i++) {
Packit 345191
		tarenas[i] = arena_get(tsdn, i, false);
Packit 345191
	}
Packit 345191
Packit 345191
	for (i = 0; i < ctl_arenas->narenas; i++) {
Packit 345191
		ctl_arena_t *ctl_arena = arenas_i(i);
Packit 345191
		bool initialized = (tarenas[i] != NULL);
Packit 345191
Packit 345191
		ctl_arena->initialized = initialized;
Packit 345191
		if (initialized) {
Packit 345191
			ctl_arena_refresh(tsdn, tarenas[i], ctl_sarena, i,
Packit 345191
			    false);
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	if (config_stats) {
Packit 345191
		ctl_stats->allocated = ctl_sarena->astats->allocated_small +
Packit 345191
		    atomic_load_zu(&ctl_sarena->astats->astats.allocated_large,
Packit 345191
			ATOMIC_RELAXED);
Packit 345191
		ctl_stats->active = (ctl_sarena->pactive << LG_PAGE);
Packit 345191
		ctl_stats->metadata = atomic_load_zu(
Packit 345191
		    &ctl_sarena->astats->astats.base, ATOMIC_RELAXED) +
Packit 345191
		    atomic_load_zu(&ctl_sarena->astats->astats.internal,
Packit 345191
			ATOMIC_RELAXED);
Packit 345191
		ctl_stats->metadata_thp = atomic_load_zu(
Packit 345191
		    &ctl_sarena->astats->astats.metadata_thp, ATOMIC_RELAXED);
Packit 345191
		ctl_stats->resident = atomic_load_zu(
Packit 345191
		    &ctl_sarena->astats->astats.resident, ATOMIC_RELAXED);
Packit 345191
		ctl_stats->mapped = atomic_load_zu(
Packit 345191
		    &ctl_sarena->astats->astats.mapped, ATOMIC_RELAXED);
Packit 345191
		ctl_stats->retained = atomic_load_zu(
Packit 345191
		    &ctl_sarena->astats->astats.retained, ATOMIC_RELAXED);
Packit 345191
Packit 345191
		ctl_background_thread_stats_read(tsdn);
Packit 345191
Packit 345191
#define READ_GLOBAL_MUTEX_PROF_DATA(i, mtx)				\
Packit 345191
    malloc_mutex_lock(tsdn, &mtx);					\
Packit 345191
    malloc_mutex_prof_read(tsdn, &ctl_stats->mutex_prof_data[i], &mtx);	\
Packit 345191
    malloc_mutex_unlock(tsdn, &mtx);
Packit 345191
Packit 345191
		if (config_prof && opt_prof) {
Packit 345191
			READ_GLOBAL_MUTEX_PROF_DATA(global_prof_mutex_prof,
Packit 345191
			    bt2gctx_mtx);
Packit 345191
		}
Packit 345191
		if (have_background_thread) {
Packit 345191
			READ_GLOBAL_MUTEX_PROF_DATA(
Packit 345191
			    global_prof_mutex_background_thread,
Packit 345191
			    background_thread_lock);
Packit 345191
		} else {
Packit 345191
			memset(&ctl_stats->mutex_prof_data[
Packit 345191
			    global_prof_mutex_background_thread], 0,
Packit 345191
			    sizeof(mutex_prof_data_t));
Packit 345191
		}
Packit 345191
		/* We own ctl mutex already. */
Packit 345191
		malloc_mutex_prof_read(tsdn,
Packit 345191
		    &ctl_stats->mutex_prof_data[global_prof_mutex_ctl],
Packit 345191
		    &ctl_mtx);
Packit 345191
#undef READ_GLOBAL_MUTEX_PROF_DATA
Packit 345191
	}
Packit 345191
	ctl_arenas->epoch++;
Packit 345191
}
Packit 345191
Packit 345191
static bool
Packit 345191
ctl_init(tsd_t *tsd) {
Packit 345191
	bool ret;
Packit 345191
	tsdn_t *tsdn = tsd_tsdn(tsd);
Packit 345191
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	if (!ctl_initialized) {
Packit 345191
		ctl_arena_t *ctl_sarena, *ctl_darena;
Packit 345191
		unsigned i;
Packit 345191
Packit 345191
		/*
Packit 345191
		 * Allocate demand-zeroed space for pointers to the full
Packit 345191
		 * range of supported arena indices.
Packit 345191
		 */
Packit 345191
		if (ctl_arenas == NULL) {
Packit 345191
			ctl_arenas = (ctl_arenas_t *)base_alloc(tsdn,
Packit 345191
			    b0get(), sizeof(ctl_arenas_t), QUANTUM);
Packit 345191
			if (ctl_arenas == NULL) {
Packit 345191
				ret = true;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		if (config_stats && ctl_stats == NULL) {
Packit 345191
			ctl_stats = (ctl_stats_t *)base_alloc(tsdn, b0get(),
Packit 345191
			    sizeof(ctl_stats_t), QUANTUM);
Packit 345191
			if (ctl_stats == NULL) {
Packit 345191
				ret = true;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		/*
Packit 345191
		 * Allocate space for the current full range of arenas
Packit 345191
		 * here rather than doing it lazily elsewhere, in order
Packit 345191
		 * to limit when OOM-caused errors can occur.
Packit 345191
		 */
Packit 345191
		if ((ctl_sarena = arenas_i_impl(tsd, MALLCTL_ARENAS_ALL, false,
Packit 345191
		    true)) == NULL) {
Packit 345191
			ret = true;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		ctl_sarena->initialized = true;
Packit 345191
Packit 345191
		if ((ctl_darena = arenas_i_impl(tsd, MALLCTL_ARENAS_DESTROYED,
Packit 345191
		    false, true)) == NULL) {
Packit 345191
			ret = true;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		ctl_arena_clear(ctl_darena);
Packit 345191
		/*
Packit 345191
		 * Don't toggle ctl_darena to initialized until an arena is
Packit 345191
		 * actually destroyed, so that arena..initialized can be used
Packit 345191
		 * to query whether the stats are relevant.
Packit 345191
		 */
Packit 345191
Packit 345191
		ctl_arenas->narenas = narenas_total_get();
Packit 345191
		for (i = 0; i < ctl_arenas->narenas; i++) {
Packit 345191
			if (arenas_i_impl(tsd, i, false, true) == NULL) {
Packit 345191
				ret = true;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		ql_new(&ctl_arenas->destroyed);
Packit 345191
		ctl_refresh(tsdn);
Packit 345191
Packit 345191
		ctl_initialized = true;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = false;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
ctl_lookup(tsdn_t *tsdn, const char *name, ctl_node_t const **nodesp,
Packit 345191
    size_t *mibp, size_t *depthp) {
Packit 345191
	int ret;
Packit 345191
	const char *elm, *tdot, *dot;
Packit 345191
	size_t elen, i, j;
Packit 345191
	const ctl_named_node_t *node;
Packit 345191
Packit 345191
	elm = name;
Packit 345191
	/* Equivalent to strchrnul(). */
Packit 345191
	dot = ((tdot = strchr(elm, '.')) != NULL) ? tdot : strchr(elm, '\0');
Packit 345191
	elen = (size_t)((uintptr_t)dot - (uintptr_t)elm);
Packit 345191
	if (elen == 0) {
Packit 345191
		ret = ENOENT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	node = super_root_node;
Packit 345191
	for (i = 0; i < *depthp; i++) {
Packit 345191
		assert(node);
Packit 345191
		assert(node->nchildren > 0);
Packit 345191
		if (ctl_named_node(node->children) != NULL) {
Packit 345191
			const ctl_named_node_t *pnode = node;
Packit 345191
Packit 345191
			/* Children are named. */
Packit 345191
			for (j = 0; j < node->nchildren; j++) {
Packit 345191
				const ctl_named_node_t *child =
Packit 345191
				    ctl_named_children(node, j);
Packit 345191
				if (strlen(child->name) == elen &&
Packit 345191
				    strncmp(elm, child->name, elen) == 0) {
Packit 345191
					node = child;
Packit 345191
					if (nodesp != NULL) {
Packit 345191
						nodesp[i] =
Packit 345191
						    (const ctl_node_t *)node;
Packit 345191
					}
Packit 345191
					mibp[i] = j;
Packit 345191
					break;
Packit 345191
				}
Packit 345191
			}
Packit 345191
			if (node == pnode) {
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		} else {
Packit 345191
			uintmax_t index;
Packit 345191
			const ctl_indexed_node_t *inode;
Packit 345191
Packit 345191
			/* Children are indexed. */
Packit 345191
			index = malloc_strtoumax(elm, NULL, 10);
Packit 345191
			if (index == UINTMAX_MAX || index > SIZE_T_MAX) {
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
Packit 345191
			inode = ctl_indexed_node(node->children);
Packit 345191
			node = inode->index(tsdn, mibp, *depthp, (size_t)index);
Packit 345191
			if (node == NULL) {
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
Packit 345191
			if (nodesp != NULL) {
Packit 345191
				nodesp[i] = (const ctl_node_t *)node;
Packit 345191
			}
Packit 345191
			mibp[i] = (size_t)index;
Packit 345191
		}
Packit 345191
Packit 345191
		if (node->ctl != NULL) {
Packit 345191
			/* Terminal node. */
Packit 345191
			if (*dot != '\0') {
Packit 345191
				/*
Packit 345191
				 * The name contains more elements than are
Packit 345191
				 * in this path through the tree.
Packit 345191
				 */
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
			/* Complete lookup successful. */
Packit 345191
			*depthp = i + 1;
Packit 345191
			break;
Packit 345191
		}
Packit 345191
Packit 345191
		/* Update elm. */
Packit 345191
		if (*dot == '\0') {
Packit 345191
			/* No more elements. */
Packit 345191
			ret = ENOENT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		elm = &dot[1];
Packit 345191
		dot = ((tdot = strchr(elm, '.')) != NULL) ? tdot :
Packit 345191
		    strchr(elm, '\0');
Packit 345191
		elen = (size_t)((uintptr_t)dot - (uintptr_t)elm);
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
int
Packit 345191
ctl_byname(tsd_t *tsd, const char *name, void *oldp, size_t *oldlenp,
Packit 345191
    void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	size_t depth;
Packit 345191
	ctl_node_t const *nodes[CTL_MAX_DEPTH];
Packit 345191
	size_t mib[CTL_MAX_DEPTH];
Packit 345191
	const ctl_named_node_t *node;
Packit 345191
Packit 345191
	if (!ctl_initialized && ctl_init(tsd)) {
Packit 345191
		ret = EAGAIN;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	depth = CTL_MAX_DEPTH;
Packit 345191
	ret = ctl_lookup(tsd_tsdn(tsd), name, nodes, mib, &depth);
Packit 345191
	if (ret != 0) {
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	node = ctl_named_node(nodes[depth-1]);
Packit 345191
	if (node != NULL && node->ctl) {
Packit 345191
		ret = node->ctl(tsd, mib, depth, oldp, oldlenp, newp, newlen);
Packit 345191
	} else {
Packit 345191
		/* The name refers to a partial path through the ctl tree. */
Packit 345191
		ret = ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
label_return:
Packit 345191
	return(ret);
Packit 345191
}
Packit 345191
Packit 345191
int
Packit 345191
ctl_nametomib(tsd_t *tsd, const char *name, size_t *mibp, size_t *miblenp) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	if (!ctl_initialized && ctl_init(tsd)) {
Packit 345191
		ret = EAGAIN;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = ctl_lookup(tsd_tsdn(tsd), name, NULL, mibp, miblenp);
Packit 345191
label_return:
Packit 345191
	return(ret);
Packit 345191
}
Packit 345191
Packit 345191
int
Packit 345191
ctl_bymib(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	const ctl_named_node_t *node;
Packit 345191
	size_t i;
Packit 345191
Packit 345191
	if (!ctl_initialized && ctl_init(tsd)) {
Packit 345191
		ret = EAGAIN;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	/* Iterate down the tree. */
Packit 345191
	node = super_root_node;
Packit 345191
	for (i = 0; i < miblen; i++) {
Packit 345191
		assert(node);
Packit 345191
		assert(node->nchildren > 0);
Packit 345191
		if (ctl_named_node(node->children) != NULL) {
Packit 345191
			/* Children are named. */
Packit 345191
			if (node->nchildren <= mib[i]) {
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
			node = ctl_named_children(node, mib[i]);
Packit 345191
		} else {
Packit 345191
			const ctl_indexed_node_t *inode;
Packit 345191
Packit 345191
			/* Indexed element. */
Packit 345191
			inode = ctl_indexed_node(node->children);
Packit 345191
			node = inode->index(tsd_tsdn(tsd), mib, miblen, mib[i]);
Packit 345191
			if (node == NULL) {
Packit 345191
				ret = ENOENT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	/* Call the ctl function. */
Packit 345191
	if (node && node->ctl) {
Packit 345191
		ret = node->ctl(tsd, mib, miblen, oldp, oldlenp, newp, newlen);
Packit 345191
	} else {
Packit 345191
		/* Partial MIB. */
Packit 345191
		ret = ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
label_return:
Packit 345191
	return(ret);
Packit 345191
}
Packit 345191
Packit 345191
bool
Packit 345191
ctl_boot(void) {
Packit 345191
	if (malloc_mutex_init(&ctl_mtx, "ctl", WITNESS_RANK_CTL,
Packit 345191
	    malloc_mutex_rank_exclusive)) {
Packit 345191
		return true;
Packit 345191
	}
Packit 345191
Packit 345191
	ctl_initialized = false;
Packit 345191
Packit 345191
	return false;
Packit 345191
}
Packit 345191
Packit 345191
void
Packit 345191
ctl_prefork(tsdn_t *tsdn) {
Packit 345191
	malloc_mutex_prefork(tsdn, &ctl_mtx);
Packit 345191
}
Packit 345191
Packit 345191
void
Packit 345191
ctl_postfork_parent(tsdn_t *tsdn) {
Packit 345191
	malloc_mutex_postfork_parent(tsdn, &ctl_mtx);
Packit 345191
}
Packit 345191
Packit 345191
void
Packit 345191
ctl_postfork_child(tsdn_t *tsdn) {
Packit 345191
	malloc_mutex_postfork_child(tsdn, &ctl_mtx);
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
/* *_ctl() functions. */
Packit 345191
Packit 345191
#define READONLY()	do {						\
Packit 345191
	if (newp != NULL || newlen != 0) {				\
Packit 345191
		ret = EPERM;						\
Packit 345191
		goto label_return;					\
Packit 345191
	}								\
Packit 345191
} while (0)
Packit 345191
Packit 345191
#define WRITEONLY()	do {						\
Packit 345191
	if (oldp != NULL || oldlenp != NULL) {				\
Packit 345191
		ret = EPERM;						\
Packit 345191
		goto label_return;					\
Packit 345191
	}								\
Packit 345191
} while (0)
Packit 345191
Packit 345191
#define READ_XOR_WRITE()	do {					\
Packit 345191
	if ((oldp != NULL && oldlenp != NULL) && (newp != NULL ||	\
Packit 345191
	    newlen != 0)) {						\
Packit 345191
		ret = EPERM;						\
Packit 345191
		goto label_return;					\
Packit 345191
	}								\
Packit 345191
} while (0)
Packit 345191
Packit 345191
#define READ(v, t)	do {						\
Packit 345191
	if (oldp != NULL && oldlenp != NULL) {				\
Packit 345191
		if (*oldlenp != sizeof(t)) {				\
Packit 345191
			size_t	copylen = (sizeof(t) <= *oldlenp)	\
Packit 345191
			    ? sizeof(t) : *oldlenp;			\
Packit 345191
			memcpy(oldp, (void *)&(v), copylen);		\
Packit 345191
			ret = EINVAL;					\
Packit 345191
			goto label_return;				\
Packit 345191
		}							\
Packit 345191
		*(t *)oldp = (v);					\
Packit 345191
	}								\
Packit 345191
} while (0)
Packit 345191
Packit 345191
#define WRITE(v, t)	do {						\
Packit 345191
	if (newp != NULL) {						\
Packit 345191
		if (newlen != sizeof(t)) {				\
Packit 345191
			ret = EINVAL;					\
Packit 345191
			goto label_return;				\
Packit 345191
		}							\
Packit 345191
		(v) = *(t *)newp;					\
Packit 345191
	}								\
Packit 345191
} while (0)
Packit 345191
Packit 345191
#define MIB_UNSIGNED(v, i) do {						\
Packit 345191
	if (mib[i] > UINT_MAX) {					\
Packit 345191
		ret = EFAULT;						\
Packit 345191
		goto label_return;					\
Packit 345191
	}								\
Packit 345191
	v = (unsigned)mib[i];						\
Packit 345191
} while (0)
Packit 345191
Packit 345191
/*
Packit 345191
 * There's a lot of code duplication in the following macros due to limitations
Packit 345191
 * in how nested cpp macros are expanded.
Packit 345191
 */
Packit 345191
#define CTL_RO_CLGEN(c, l, n, v, t)					\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,	\
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	if (!(c)) {							\
Packit 345191
		return ENOENT;						\
Packit 345191
	}								\
Packit 345191
	if (l) {							\
Packit 345191
		malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);		\
Packit 345191
	}								\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (v);							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	if (l) {							\
Packit 345191
		malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);		\
Packit 345191
	}								\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
#define CTL_RO_CGEN(c, n, v, t)						\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, \
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	if (!(c)) {							\
Packit 345191
		return ENOENT;						\
Packit 345191
	}								\
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);			\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (v);							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);			\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
#define CTL_RO_GEN(n, v, t)						\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,	\
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);			\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (v);							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);			\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
/*
Packit 345191
 * ctl_mtx is not acquired, under the assumption that no pertinent data will
Packit 345191
 * mutate during the call.
Packit 345191
 */
Packit 345191
#define CTL_RO_NL_CGEN(c, n, v, t)					\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, \
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	if (!(c)) {							\
Packit 345191
		return ENOENT;						\
Packit 345191
	}								\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (v);							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
#define CTL_RO_NL_GEN(n, v, t)						\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, \
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (v);							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
#define CTL_TSD_RO_NL_CGEN(c, n, m, t)					\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,	\
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	if (!(c)) {							\
Packit 345191
		return ENOENT;						\
Packit 345191
	}								\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = (m(tsd));						\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
#define CTL_RO_CONFIG_GEN(n, t)						\
Packit 345191
static int								\
Packit 345191
n##_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, \
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {			\
Packit 345191
	int ret;							\
Packit 345191
	t oldval;							\
Packit 345191
									\
Packit 345191
	READONLY();							\
Packit 345191
	oldval = n;							\
Packit 345191
	READ(oldval, t);						\
Packit 345191
									\
Packit 345191
	ret = 0;							\
Packit 345191
label_return:								\
Packit 345191
	return ret;							\
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
CTL_RO_NL_GEN(version, JEMALLOC_VERSION, const char *)
Packit 345191
Packit 345191
static int
Packit 345191
epoch_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	UNUSED uint64_t newval;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	WRITE(newval, uint64_t);
Packit 345191
	if (newp != NULL) {
Packit 345191
		ctl_refresh(tsd_tsdn(tsd));
Packit 345191
	}
Packit 345191
	READ(ctl_arenas->epoch, uint64_t);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
background_thread_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp,
Packit 345191
    void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	if (!have_background_thread) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
	background_thread_ctl_init(tsd_tsdn(tsd));
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
	if (newp == NULL) {
Packit 345191
		oldval = background_thread_enabled();
Packit 345191
		READ(oldval, bool);
Packit 345191
	} else {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		oldval = background_thread_enabled();
Packit 345191
		READ(oldval, bool);
Packit 345191
Packit 345191
		bool newval = *(bool *)newp;
Packit 345191
		if (newval == oldval) {
Packit 345191
			ret = 0;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
Packit 345191
		background_thread_enabled_set(tsd_tsdn(tsd), newval);
Packit 345191
		if (newval) {
Packit 345191
			if (background_threads_enable(tsd)) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		} else {
Packit 345191
			if (background_threads_disable(tsd)) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
	}
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
max_background_threads_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	size_t oldval;
Packit 345191
Packit 345191
	if (!have_background_thread) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
	background_thread_ctl_init(tsd_tsdn(tsd));
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
	if (newp == NULL) {
Packit 345191
		oldval = max_background_threads;
Packit 345191
		READ(oldval, size_t);
Packit 345191
	} else {
Packit 345191
		if (newlen != sizeof(size_t)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		oldval = max_background_threads;
Packit 345191
		READ(oldval, size_t);
Packit 345191
Packit 345191
		size_t newval = *(size_t *)newp;
Packit 345191
		if (newval == oldval) {
Packit 345191
			ret = 0;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		if (newval > opt_max_background_threads) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
Packit 345191
		if (background_thread_enabled()) {
Packit 345191
			background_thread_enabled_set(tsd_tsdn(tsd), false);
Packit 345191
			if (background_threads_disable(tsd)) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
			max_background_threads = newval;
Packit 345191
			background_thread_enabled_set(tsd_tsdn(tsd), true);
Packit 345191
			if (background_threads_enable(tsd)) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		} else {
Packit 345191
			max_background_threads = newval;
Packit 345191
		}
Packit 345191
	}
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
CTL_RO_CONFIG_GEN(config_cache_oblivious, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_debug, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_fill, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_lazy_lock, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_malloc_conf, const char *)
Packit 345191
CTL_RO_CONFIG_GEN(config_opt_safety_checks, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_prof, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_prof_libgcc, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_prof_libunwind, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_stats, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_utrace, bool)
Packit 345191
CTL_RO_CONFIG_GEN(config_xmalloc, bool)
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
CTL_RO_NL_GEN(opt_abort, opt_abort, bool)
Packit 345191
CTL_RO_NL_GEN(opt_abort_conf, opt_abort_conf, bool)
Packit 345191
CTL_RO_NL_GEN(opt_confirm_conf, opt_confirm_conf, bool)
Packit 345191
CTL_RO_NL_GEN(opt_metadata_thp, metadata_thp_mode_names[opt_metadata_thp],
Packit 345191
    const char *)
Packit 345191
CTL_RO_NL_GEN(opt_retain, opt_retain, bool)
Packit 345191
CTL_RO_NL_GEN(opt_dss, opt_dss, const char *)
Packit 345191
CTL_RO_NL_GEN(opt_narenas, opt_narenas, unsigned)
Packit 345191
CTL_RO_NL_GEN(opt_percpu_arena, percpu_arena_mode_names[opt_percpu_arena],
Packit 345191
    const char *)
Packit 345191
CTL_RO_NL_GEN(opt_oversize_threshold, opt_oversize_threshold, size_t)
Packit 345191
CTL_RO_NL_GEN(opt_background_thread, opt_background_thread, bool)
Packit 345191
CTL_RO_NL_GEN(opt_max_background_threads, opt_max_background_threads, size_t)
Packit 345191
CTL_RO_NL_GEN(opt_dirty_decay_ms, opt_dirty_decay_ms, ssize_t)
Packit 345191
CTL_RO_NL_GEN(opt_muzzy_decay_ms, opt_muzzy_decay_ms, ssize_t)
Packit 345191
CTL_RO_NL_GEN(opt_stats_print, opt_stats_print, bool)
Packit 345191
CTL_RO_NL_GEN(opt_stats_print_opts, opt_stats_print_opts, const char *)
Packit 345191
CTL_RO_NL_CGEN(config_fill, opt_junk, opt_junk, const char *)
Packit 345191
CTL_RO_NL_CGEN(config_fill, opt_zero, opt_zero, bool)
Packit 345191
CTL_RO_NL_CGEN(config_utrace, opt_utrace, opt_utrace, bool)
Packit 345191
CTL_RO_NL_CGEN(config_xmalloc, opt_xmalloc, opt_xmalloc, bool)
Packit 345191
CTL_RO_NL_GEN(opt_tcache, opt_tcache, bool)
Packit 345191
CTL_RO_NL_GEN(opt_thp, thp_mode_names[opt_thp], const char *)
Packit 345191
CTL_RO_NL_GEN(opt_lg_extent_max_active_fit, opt_lg_extent_max_active_fit,
Packit 345191
    size_t)
Packit 345191
CTL_RO_NL_GEN(opt_lg_tcache_max, opt_lg_tcache_max, ssize_t)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof, opt_prof, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_prefix, opt_prof_prefix, const char *)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_active, opt_prof_active, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_thread_active_init,
Packit 345191
    opt_prof_thread_active_init, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_lg_prof_sample, opt_lg_prof_sample, size_t)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_accum, opt_prof_accum, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_lg_prof_interval, opt_lg_prof_interval, ssize_t)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_gdump, opt_prof_gdump, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_final, opt_prof_final, bool)
Packit 345191
CTL_RO_NL_CGEN(config_prof, opt_prof_leak, opt_prof_leak, bool)
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static int
Packit 345191
thread_arena_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	arena_t *oldarena;
Packit 345191
	unsigned newind, oldind;
Packit 345191
Packit 345191
	oldarena = arena_choose(tsd, NULL);
Packit 345191
	if (oldarena == NULL) {
Packit 345191
		return EAGAIN;
Packit 345191
	}
Packit 345191
	newind = oldind = arena_ind_get(oldarena);
Packit 345191
	WRITE(newind, unsigned);
Packit 345191
	READ(oldind, unsigned);
Packit 345191
Packit 345191
	if (newind != oldind) {
Packit 345191
		arena_t *newarena;
Packit 345191
Packit 345191
		if (newind >= narenas_total_get()) {
Packit 345191
			/* New arena index is out of range. */
Packit 345191
			ret = EFAULT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
Packit 345191
		if (have_percpu_arena &&
Packit 345191
		    PERCPU_ARENA_ENABLED(opt_percpu_arena)) {
Packit 345191
			if (newind < percpu_arena_ind_limit(opt_percpu_arena)) {
Packit 345191
				/*
Packit 345191
				 * If perCPU arena is enabled, thread_arena
Packit 345191
				 * control is not allowed for the auto arena
Packit 345191
				 * range.
Packit 345191
				 */
Packit 345191
				ret = EPERM;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		/* Initialize arena if necessary. */
Packit 345191
		newarena = arena_get(tsd_tsdn(tsd), newind, true);
Packit 345191
		if (newarena == NULL) {
Packit 345191
			ret = EAGAIN;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		/* Set new arena/tcache associations. */
Packit 345191
		arena_migrate(tsd, oldind, newind);
Packit 345191
		if (tcache_available(tsd)) {
Packit 345191
			tcache_arena_reassociate(tsd_tsdn(tsd),
Packit 345191
			    tsd_tcachep_get(tsd), newarena);
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
CTL_TSD_RO_NL_CGEN(config_stats, thread_allocated, tsd_thread_allocated_get,
Packit 345191
    uint64_t)
Packit 345191
CTL_TSD_RO_NL_CGEN(config_stats, thread_allocatedp, tsd_thread_allocatedp_get,
Packit 345191
    uint64_t *)
Packit 345191
CTL_TSD_RO_NL_CGEN(config_stats, thread_deallocated, tsd_thread_deallocated_get,
Packit 345191
    uint64_t)
Packit 345191
CTL_TSD_RO_NL_CGEN(config_stats, thread_deallocatedp,
Packit 345191
    tsd_thread_deallocatedp_get, uint64_t *)
Packit 345191
Packit 345191
static int
Packit 345191
thread_tcache_enabled_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	oldval = tcache_enabled_get(tsd);
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		tcache_enabled_set(tsd, *(bool *)newp);
Packit 345191
	}
Packit 345191
	READ(oldval, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
thread_tcache_flush_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	if (!tcache_available(tsd)) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	WRITEONLY();
Packit 345191
Packit 345191
	tcache_flush(tsd);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
thread_prof_name_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	READ_XOR_WRITE();
Packit 345191
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(const char *)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
Packit 345191
		if ((ret = prof_thread_name_set(tsd, *(const char **)newp)) !=
Packit 345191
		    0) {
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
	} else {
Packit 345191
		const char *oldname = prof_thread_name_get(tsd);
Packit 345191
		READ(oldname, const char *);
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
thread_prof_active_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	oldval = prof_thread_active_get(tsd);
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		if (prof_thread_active_set(tsd, *(bool *)newp)) {
Packit 345191
			ret = EAGAIN;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
	}
Packit 345191
	READ(oldval, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static int
Packit 345191
tcache_create_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned tcache_ind;
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	if (tcaches_create(tsd, &tcache_ind)) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	READ(tcache_ind, unsigned);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
tcache_flush_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned tcache_ind;
Packit 345191
Packit 345191
	WRITEONLY();
Packit 345191
	tcache_ind = UINT_MAX;
Packit 345191
	WRITE(tcache_ind, unsigned);
Packit 345191
	if (tcache_ind == UINT_MAX) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	tcaches_flush(tsd, tcache_ind);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
tcache_destroy_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned tcache_ind;
Packit 345191
Packit 345191
	WRITEONLY();
Packit 345191
	tcache_ind = UINT_MAX;
Packit 345191
	WRITE(tcache_ind, unsigned);
Packit 345191
	if (tcache_ind == UINT_MAX) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	tcaches_destroy(tsd, tcache_ind);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_initialized_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	tsdn_t *tsdn = tsd_tsdn(tsd);
Packit 345191
	unsigned arena_ind;
Packit 345191
	bool initialized;
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	initialized = arenas_i(arena_ind)->initialized;
Packit 345191
	malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
Packit 345191
	READ(initialized, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
arena_i_decay(tsdn_t *tsdn, unsigned arena_ind, bool all) {
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	{
Packit 345191
		unsigned narenas = ctl_arenas->narenas;
Packit 345191
Packit 345191
		/*
Packit 345191
		 * Access via index narenas is deprecated, and scheduled for
Packit 345191
		 * removal in 6.0.0.
Packit 345191
		 */
Packit 345191
		if (arena_ind == MALLCTL_ARENAS_ALL || arena_ind == narenas) {
Packit 345191
			unsigned i;
Packit 345191
			VARIABLE_ARRAY(arena_t *, tarenas, narenas);
Packit 345191
Packit 345191
			for (i = 0; i < narenas; i++) {
Packit 345191
				tarenas[i] = arena_get(tsdn, i, false);
Packit 345191
			}
Packit 345191
Packit 345191
			/*
Packit 345191
			 * No further need to hold ctl_mtx, since narenas and
Packit 345191
			 * tarenas contain everything needed below.
Packit 345191
			 */
Packit 345191
			malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
Packit 345191
			for (i = 0; i < narenas; i++) {
Packit 345191
				if (tarenas[i] != NULL) {
Packit 345191
					arena_decay(tsdn, tarenas[i], false,
Packit 345191
					    all);
Packit 345191
				}
Packit 345191
			}
Packit 345191
		} else {
Packit 345191
			arena_t *tarena;
Packit 345191
Packit 345191
			assert(arena_ind < narenas);
Packit 345191
Packit 345191
			tarena = arena_get(tsdn, arena_ind, false);
Packit 345191
Packit 345191
			/* No further need to hold ctl_mtx. */
Packit 345191
			malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
Packit 345191
			if (tarena != NULL) {
Packit 345191
				arena_decay(tsdn, tarena, false, all);
Packit 345191
			}
Packit 345191
		}
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_decay_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	WRITEONLY();
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	arena_i_decay(tsd_tsdn(tsd), arena_ind, false);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_purge_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	WRITEONLY();
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	arena_i_decay(tsd_tsdn(tsd), arena_ind, true);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_reset_destroy_helper(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen, unsigned *arena_ind,
Packit 345191
    arena_t **arena) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	READONLY();
Packit 345191
	WRITEONLY();
Packit 345191
	MIB_UNSIGNED(*arena_ind, 1);
Packit 345191
Packit 345191
	*arena = arena_get(tsd_tsdn(tsd), *arena_ind, false);
Packit 345191
	if (*arena == NULL || arena_is_auto(*arena)) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
arena_reset_prepare_background_thread(tsd_t *tsd, unsigned arena_ind) {
Packit 345191
	/* Temporarily disable the background thread during arena reset. */
Packit 345191
	if (have_background_thread) {
Packit 345191
		malloc_mutex_lock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
		if (background_thread_enabled()) {
Packit 345191
			background_thread_info_t *info =
Packit 345191
			    background_thread_info_get(arena_ind);
Packit 345191
			assert(info->state == background_thread_started);
Packit 345191
			malloc_mutex_lock(tsd_tsdn(tsd), &info->mtx);
Packit 345191
			info->state = background_thread_paused;
Packit 345191
			malloc_mutex_unlock(tsd_tsdn(tsd), &info->mtx);
Packit 345191
		}
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static void
Packit 345191
arena_reset_finish_background_thread(tsd_t *tsd, unsigned arena_ind) {
Packit 345191
	if (have_background_thread) {
Packit 345191
		if (background_thread_enabled()) {
Packit 345191
			background_thread_info_t *info =
Packit 345191
			    background_thread_info_get(arena_ind);
Packit 345191
			assert(info->state == background_thread_paused);
Packit 345191
			malloc_mutex_lock(tsd_tsdn(tsd), &info->mtx);
Packit 345191
			info->state = background_thread_started;
Packit 345191
			malloc_mutex_unlock(tsd_tsdn(tsd), &info->mtx);
Packit 345191
		}
Packit 345191
		malloc_mutex_unlock(tsd_tsdn(tsd), &background_thread_lock);
Packit 345191
	}
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_reset_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
Packit 345191
	ret = arena_i_reset_destroy_helper(tsd, mib, miblen, oldp, oldlenp,
Packit 345191
	    newp, newlen, &arena_ind, &arena);
Packit 345191
	if (ret != 0) {
Packit 345191
		return ret;
Packit 345191
	}
Packit 345191
Packit 345191
	arena_reset_prepare_background_thread(tsd, arena_ind);
Packit 345191
	arena_reset(tsd, arena);
Packit 345191
	arena_reset_finish_background_thread(tsd, arena_ind);
Packit 345191
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_destroy_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
	ctl_arena_t *ctl_darena, *ctl_arena;
Packit 345191
Packit 345191
	ret = arena_i_reset_destroy_helper(tsd, mib, miblen, oldp, oldlenp,
Packit 345191
	    newp, newlen, &arena_ind, &arena);
Packit 345191
	if (ret != 0) {
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	if (arena_nthreads_get(arena, false) != 0 || arena_nthreads_get(arena,
Packit 345191
	    true) != 0) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	arena_reset_prepare_background_thread(tsd, arena_ind);
Packit 345191
	/* Merge stats after resetting and purging arena. */
Packit 345191
	arena_reset(tsd, arena);
Packit 345191
	arena_decay(tsd_tsdn(tsd), arena, false, true);
Packit 345191
	ctl_darena = arenas_i(MALLCTL_ARENAS_DESTROYED);
Packit 345191
	ctl_darena->initialized = true;
Packit 345191
	ctl_arena_refresh(tsd_tsdn(tsd), arena, ctl_darena, arena_ind, true);
Packit 345191
	/* Destroy arena. */
Packit 345191
	arena_destroy(tsd, arena);
Packit 345191
	ctl_arena = arenas_i(arena_ind);
Packit 345191
	ctl_arena->initialized = false;
Packit 345191
	/* Record arena index for later recycling via arenas.create. */
Packit 345191
	ql_elm_new(ctl_arena, destroyed_link);
Packit 345191
	ql_tail_insert(&ctl_arenas->destroyed, ctl_arena, destroyed_link);
Packit 345191
	arena_reset_finish_background_thread(tsd, arena_ind);
Packit 345191
Packit 345191
	assert(ret == 0);
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_dss_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	const char *dss = NULL;
Packit 345191
	unsigned arena_ind;
Packit 345191
	dss_prec_t dss_prec_old = dss_prec_limit;
Packit 345191
	dss_prec_t dss_prec = dss_prec_limit;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	WRITE(dss, const char *);
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	if (dss != NULL) {
Packit 345191
		int i;
Packit 345191
		bool match = false;
Packit 345191
Packit 345191
		for (i = 0; i < dss_prec_limit; i++) {
Packit 345191
			if (strcmp(dss_prec_names[i], dss) == 0) {
Packit 345191
				dss_prec = i;
Packit 345191
				match = true;
Packit 345191
				break;
Packit 345191
			}
Packit 345191
		}
Packit 345191
Packit 345191
		if (!match) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	/*
Packit 345191
	 * Access via index narenas is deprecated, and scheduled for removal in
Packit 345191
	 * 6.0.0.
Packit 345191
	 */
Packit 345191
	if (arena_ind == MALLCTL_ARENAS_ALL || arena_ind ==
Packit 345191
	    ctl_arenas->narenas) {
Packit 345191
		if (dss_prec != dss_prec_limit &&
Packit 345191
		    extent_dss_prec_set(dss_prec)) {
Packit 345191
			ret = EFAULT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		dss_prec_old = extent_dss_prec_get();
Packit 345191
	} else {
Packit 345191
		arena_t *arena = arena_get(tsd_tsdn(tsd), arena_ind, false);
Packit 345191
		if (arena == NULL || (dss_prec != dss_prec_limit &&
Packit 345191
		    arena_dss_prec_set(arena, dss_prec))) {
Packit 345191
			ret = EFAULT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		dss_prec_old = arena_dss_prec_get(arena);
Packit 345191
	}
Packit 345191
Packit 345191
	dss = dss_prec_names[dss_prec_old];
Packit 345191
	READ(dss, const char *);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_decay_ms_ctl_impl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen, bool dirty) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	arena = arena_get(tsd_tsdn(tsd), arena_ind, false);
Packit 345191
	if (arena == NULL) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	if (oldp != NULL && oldlenp != NULL) {
Packit 345191
		size_t oldval = dirty ? arena_dirty_decay_ms_get(arena) :
Packit 345191
		    arena_muzzy_decay_ms_get(arena);
Packit 345191
		READ(oldval, ssize_t);
Packit 345191
	}
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(ssize_t)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		if (arena_is_huge(arena_ind) && *(ssize_t *)newp > 0) {
Packit 345191
			/*
Packit 345191
			 * By default the huge arena purges eagerly.  If it is
Packit 345191
			 * set to non-zero decay time afterwards, background
Packit 345191
			 * thread might be needed.
Packit 345191
			 */
Packit 345191
			if (background_thread_create(tsd, arena_ind)) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
		}
Packit 345191
		if (dirty ? arena_dirty_decay_ms_set(tsd_tsdn(tsd), arena,
Packit 345191
		    *(ssize_t *)newp) : arena_muzzy_decay_ms_set(tsd_tsdn(tsd),
Packit 345191
		    arena, *(ssize_t *)newp)) {
Packit 345191
			ret = EFAULT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_dirty_decay_ms_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	return arena_i_decay_ms_ctl_impl(tsd, mib, miblen, oldp, oldlenp, newp,
Packit 345191
	    newlen, true);
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_muzzy_decay_ms_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	return arena_i_decay_ms_ctl_impl(tsd, mib, miblen, oldp, oldlenp, newp,
Packit 345191
	    newlen, false);
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_extent_hooks_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	if (arena_ind < narenas_total_get()) {
Packit 345191
		extent_hooks_t *old_extent_hooks;
Packit 345191
		arena = arena_get(tsd_tsdn(tsd), arena_ind, false);
Packit 345191
		if (arena == NULL) {
Packit 345191
			if (arena_ind >= narenas_auto) {
Packit 345191
				ret = EFAULT;
Packit 345191
				goto label_return;
Packit 345191
			}
Packit 345191
			old_extent_hooks =
Packit 345191
			    (extent_hooks_t *)&extent_hooks_default;
Packit 345191
			READ(old_extent_hooks, extent_hooks_t *);
Packit 345191
			if (newp != NULL) {
Packit 345191
				/* Initialize a new arena as a side effect. */
Packit 345191
				extent_hooks_t *new_extent_hooks
Packit 345191
				    JEMALLOC_CC_SILENCE_INIT(NULL);
Packit 345191
				WRITE(new_extent_hooks, extent_hooks_t *);
Packit 345191
				arena = arena_init(tsd_tsdn(tsd), arena_ind,
Packit 345191
				    new_extent_hooks);
Packit 345191
				if (arena == NULL) {
Packit 345191
					ret = EFAULT;
Packit 345191
					goto label_return;
Packit 345191
				}
Packit 345191
			}
Packit 345191
		} else {
Packit 345191
			if (newp != NULL) {
Packit 345191
				extent_hooks_t *new_extent_hooks
Packit 345191
				    JEMALLOC_CC_SILENCE_INIT(NULL);
Packit 345191
				WRITE(new_extent_hooks, extent_hooks_t *);
Packit 345191
				old_extent_hooks = extent_hooks_set(tsd, arena,
Packit 345191
				    new_extent_hooks);
Packit 345191
				READ(old_extent_hooks, extent_hooks_t *);
Packit 345191
			} else {
Packit 345191
				old_extent_hooks = extent_hooks_get(arena);
Packit 345191
				READ(old_extent_hooks, extent_hooks_t *);
Packit 345191
			}
Packit 345191
		}
Packit 345191
	} else {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arena_i_retain_grow_limit_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
Packit 345191
	if (!opt_retain) {
Packit 345191
		/* Only relevant when retain is enabled. */
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	MIB_UNSIGNED(arena_ind, 1);
Packit 345191
	if (arena_ind < narenas_total_get() && (arena =
Packit 345191
	    arena_get(tsd_tsdn(tsd), arena_ind, false)) != NULL) {
Packit 345191
		size_t old_limit, new_limit;
Packit 345191
		if (newp != NULL) {
Packit 345191
			WRITE(new_limit, size_t);
Packit 345191
		}
Packit 345191
		bool err = arena_retain_grow_limit_get_set(tsd, arena,
Packit 345191
		    &old_limit, newp != NULL ? &new_limit : NULL);
Packit 345191
		if (!err) {
Packit 345191
			READ(old_limit, size_t);
Packit 345191
			ret = 0;
Packit 345191
		} else {
Packit 345191
			ret = EFAULT;
Packit 345191
		}
Packit 345191
	} else {
Packit 345191
		ret = EFAULT;
Packit 345191
	}
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
arena_i_index(tsdn_t *tsdn, const size_t *mib, size_t miblen,
Packit 345191
    size_t i) {
Packit 345191
	const ctl_named_node_t *ret;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	switch (i) {
Packit 345191
	case MALLCTL_ARENAS_ALL:
Packit 345191
	case MALLCTL_ARENAS_DESTROYED:
Packit 345191
		break;
Packit 345191
	default:
Packit 345191
		if (i > ctl_arenas->narenas) {
Packit 345191
			ret = NULL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		break;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = super_arena_i_node;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static int
Packit 345191
arenas_narenas_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned narenas;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	READONLY();
Packit 345191
	if (*oldlenp != sizeof(unsigned)) {
Packit 345191
		ret = EINVAL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	narenas = ctl_arenas->narenas;
Packit 345191
	READ(narenas, unsigned);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arenas_decay_ms_ctl_impl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen, bool dirty) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	if (oldp != NULL && oldlenp != NULL) {
Packit 345191
		size_t oldval = (dirty ? arena_dirty_decay_ms_default_get() :
Packit 345191
		    arena_muzzy_decay_ms_default_get());
Packit 345191
		READ(oldval, ssize_t);
Packit 345191
	}
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(ssize_t)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		if (dirty ? arena_dirty_decay_ms_default_set(*(ssize_t *)newp)
Packit 345191
		    : arena_muzzy_decay_ms_default_set(*(ssize_t *)newp)) {
Packit 345191
			ret = EFAULT;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arenas_dirty_decay_ms_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	return arenas_decay_ms_ctl_impl(tsd, mib, miblen, oldp, oldlenp, newp,
Packit 345191
	    newlen, true);
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arenas_muzzy_decay_ms_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	return arenas_decay_ms_ctl_impl(tsd, mib, miblen, oldp, oldlenp, newp,
Packit 345191
	    newlen, false);
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_NL_GEN(arenas_quantum, QUANTUM, size_t)
Packit 345191
CTL_RO_NL_GEN(arenas_page, PAGE, size_t)
Packit 345191
CTL_RO_NL_GEN(arenas_tcache_max, tcache_maxclass, size_t)
Packit 345191
CTL_RO_NL_GEN(arenas_nbins, SC_NBINS, unsigned)
Packit 345191
CTL_RO_NL_GEN(arenas_nhbins, nhbins, unsigned)
Packit 345191
CTL_RO_NL_GEN(arenas_bin_i_size, bin_infos[mib[2]].reg_size, size_t)
Packit 345191
CTL_RO_NL_GEN(arenas_bin_i_nregs, bin_infos[mib[2]].nregs, uint32_t)
Packit 345191
CTL_RO_NL_GEN(arenas_bin_i_slab_size, bin_infos[mib[2]].slab_size, size_t)
Packit 345191
CTL_RO_NL_GEN(arenas_bin_i_nshards, bin_infos[mib[2]].n_shards, uint32_t)
Packit 345191
static const ctl_named_node_t *
Packit 345191
arenas_bin_i_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t i) {
Packit 345191
	if (i > SC_NBINS) {
Packit 345191
		return NULL;
Packit 345191
	}
Packit 345191
	return super_arenas_bin_i_node;
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_NL_GEN(arenas_nlextents, SC_NSIZES - SC_NBINS, unsigned)
Packit 345191
CTL_RO_NL_GEN(arenas_lextent_i_size, sz_index2size(SC_NBINS+(szind_t)mib[2]),
Packit 345191
    size_t)
Packit 345191
static const ctl_named_node_t *
Packit 345191
arenas_lextent_i_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t i) {
Packit 345191
	if (i > SC_NSIZES - SC_NBINS) {
Packit 345191
		return NULL;
Packit 345191
	}
Packit 345191
	return super_arenas_lextent_i_node;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arenas_create_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	extent_hooks_t *extent_hooks;
Packit 345191
	unsigned arena_ind;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
Packit 345191
	extent_hooks = (extent_hooks_t *)&extent_hooks_default;
Packit 345191
	WRITE(extent_hooks, extent_hooks_t *);
Packit 345191
	if ((arena_ind = ctl_arena_init(tsd, extent_hooks)) == UINT_MAX) {
Packit 345191
		ret = EAGAIN;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	READ(arena_ind, unsigned);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
arenas_lookup_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	unsigned arena_ind;
Packit 345191
	void *ptr;
Packit 345191
	extent_t *extent;
Packit 345191
	arena_t *arena;
Packit 345191
Packit 345191
	ptr = NULL;
Packit 345191
	ret = EINVAL;
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	WRITE(ptr, void *);
Packit 345191
	extent = iealloc(tsd_tsdn(tsd), ptr);
Packit 345191
	if (extent == NULL)
Packit 345191
		goto label_return;
Packit 345191
Packit 345191
	arena = extent_arena_get(extent);
Packit 345191
	if (arena == NULL)
Packit 345191
		goto label_return;
Packit 345191
Packit 345191
	arena_ind = arena_ind_get(arena);
Packit 345191
	READ(arena_ind, unsigned);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
static int
Packit 345191
prof_thread_active_init_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp,
Packit 345191
    size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		oldval = prof_thread_active_init_set(tsd_tsdn(tsd),
Packit 345191
		    *(bool *)newp);
Packit 345191
	} else {
Packit 345191
		oldval = prof_thread_active_init_get(tsd_tsdn(tsd));
Packit 345191
	}
Packit 345191
	READ(oldval, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
prof_active_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		oldval = prof_active_set(tsd_tsdn(tsd), *(bool *)newp);
Packit 345191
	} else {
Packit 345191
		oldval = prof_active_get(tsd_tsdn(tsd));
Packit 345191
	}
Packit 345191
	READ(oldval, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
prof_dump_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	const char *filename = NULL;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	WRITEONLY();
Packit 345191
	WRITE(filename, const char *);
Packit 345191
Packit 345191
	if (prof_mdump(tsd, filename)) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
prof_gdump_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	bool oldval;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	if (newp != NULL) {
Packit 345191
		if (newlen != sizeof(bool)) {
Packit 345191
			ret = EINVAL;
Packit 345191
			goto label_return;
Packit 345191
		}
Packit 345191
		oldval = prof_gdump_set(tsd_tsdn(tsd), *(bool *)newp);
Packit 345191
	} else {
Packit 345191
		oldval = prof_gdump_get(tsd_tsdn(tsd));
Packit 345191
	}
Packit 345191
	READ(oldval, bool);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
prof_reset_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	size_t lg_sample = lg_prof_sample;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	WRITEONLY();
Packit 345191
	WRITE(lg_sample, size_t);
Packit 345191
	if (lg_sample >= (sizeof(uint64_t) << 3)) {
Packit 345191
		lg_sample = (sizeof(uint64_t) << 3) - 1;
Packit 345191
	}
Packit 345191
Packit 345191
	prof_reset(tsd, lg_sample);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_NL_CGEN(config_prof, prof_interval, prof_interval, uint64_t)
Packit 345191
CTL_RO_NL_CGEN(config_prof, lg_prof_sample, lg_prof_sample, size_t)
Packit 345191
Packit 345191
static int
Packit 345191
prof_log_start_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	const char *filename = NULL;
Packit 345191
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	WRITEONLY();
Packit 345191
	WRITE(filename, const char *);
Packit 345191
Packit 345191
	if (prof_log_start(tsd_tsdn(tsd), filename)) {
Packit 345191
		ret = EFAULT;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
prof_log_stop_ctl(tsd_t *tsd, const size_t *mib, size_t miblen, void *oldp,
Packit 345191
    size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	if (!config_prof) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	if (prof_log_stop(tsd_tsdn(tsd))) {
Packit 345191
		return EFAULT;
Packit 345191
	}
Packit 345191
Packit 345191
	return 0;
Packit 345191
}
Packit 345191
Packit 345191
/******************************************************************************/
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_allocated, ctl_stats->allocated, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_active, ctl_stats->active, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_metadata, ctl_stats->metadata, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_metadata_thp, ctl_stats->metadata_thp, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_resident, ctl_stats->resident, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_mapped, ctl_stats->mapped, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_retained, ctl_stats->retained, size_t)
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_background_thread_num_threads,
Packit 345191
    ctl_stats->background_thread.num_threads, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_background_thread_num_runs,
Packit 345191
    ctl_stats->background_thread.num_runs, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_background_thread_run_interval,
Packit 345191
    nstime_ns(&ctl_stats->background_thread.run_interval), uint64_t)
Packit 345191
Packit 345191
CTL_RO_GEN(stats_arenas_i_dss, arenas_i(mib[2])->dss, const char *)
Packit 345191
CTL_RO_GEN(stats_arenas_i_dirty_decay_ms, arenas_i(mib[2])->dirty_decay_ms,
Packit 345191
    ssize_t)
Packit 345191
CTL_RO_GEN(stats_arenas_i_muzzy_decay_ms, arenas_i(mib[2])->muzzy_decay_ms,
Packit 345191
    ssize_t)
Packit 345191
CTL_RO_GEN(stats_arenas_i_nthreads, arenas_i(mib[2])->nthreads, unsigned)
Packit 345191
CTL_RO_GEN(stats_arenas_i_uptime,
Packit 345191
    nstime_ns(&arenas_i(mib[2])->astats->astats.uptime), uint64_t)
Packit 345191
CTL_RO_GEN(stats_arenas_i_pactive, arenas_i(mib[2])->pactive, size_t)
Packit 345191
CTL_RO_GEN(stats_arenas_i_pdirty, arenas_i(mib[2])->pdirty, size_t)
Packit 345191
CTL_RO_GEN(stats_arenas_i_pmuzzy, arenas_i(mib[2])->pmuzzy, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_mapped,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.mapped, ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_retained,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.retained, ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extent_avail,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.extent_avail,
Packit 345191
        ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_dirty_npurge,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_dirty.npurge), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_dirty_nmadvise,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_dirty.nmadvise), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_dirty_purged,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_dirty.purged), uint64_t)
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_muzzy_npurge,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_muzzy.npurge), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_muzzy_nmadvise,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_muzzy.nmadvise), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_muzzy_purged,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.decay_muzzy.purged), uint64_t)
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_base,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.base, ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_internal,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.internal, ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_metadata_thp,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.metadata_thp,
Packit 345191
    ATOMIC_RELAXED), size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_tcache_bytes,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.tcache_bytes,
Packit 345191
    ATOMIC_RELAXED), size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_resident,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.resident, ATOMIC_RELAXED),
Packit 345191
    size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_abandoned_vm,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.abandoned_vm,
Packit 345191
    ATOMIC_RELAXED), size_t)
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_allocated,
Packit 345191
    arenas_i(mib[2])->astats->allocated_small, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_nmalloc,
Packit 345191
    arenas_i(mib[2])->astats->nmalloc_small, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_ndalloc,
Packit 345191
    arenas_i(mib[2])->astats->ndalloc_small, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_nrequests,
Packit 345191
    arenas_i(mib[2])->astats->nrequests_small, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_nfills,
Packit 345191
    arenas_i(mib[2])->astats->nfills_small, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_small_nflushes,
Packit 345191
    arenas_i(mib[2])->astats->nflushes_small, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_allocated,
Packit 345191
    atomic_load_zu(&arenas_i(mib[2])->astats->astats.allocated_large,
Packit 345191
    ATOMIC_RELAXED), size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_nmalloc,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.nmalloc_large), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_ndalloc,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.ndalloc_large), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_nrequests,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.nrequests_large), uint64_t)
Packit 345191
/*
Packit 345191
 * Note: "nmalloc_large" here instead of "nfills" in the read.  This is
Packit 345191
 * intentional (large has no batch fill).
Packit 345191
 */
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_nfills,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.nmalloc_large), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_large_nflushes,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->astats.nflushes_large), uint64_t)
Packit 345191
Packit 345191
/* Lock profiling related APIs below. */
Packit 345191
#define RO_MUTEX_CTL_GEN(n, l)						\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_num_ops,				\
Packit 345191
    l.n_lock_ops, uint64_t)						\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_num_wait,				\
Packit 345191
    l.n_wait_times, uint64_t)						\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_num_spin_acq,			\
Packit 345191
    l.n_spin_acquired, uint64_t)					\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_num_owner_switch,			\
Packit 345191
    l.n_owner_switches, uint64_t) 					\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_total_wait_time,			\
Packit 345191
    nstime_ns(&l.tot_wait_time), uint64_t)				\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_max_wait_time,			\
Packit 345191
    nstime_ns(&l.max_wait_time), uint64_t)				\
Packit 345191
CTL_RO_CGEN(config_stats, stats_##n##_max_num_thds,			\
Packit 345191
    l.max_n_thds, uint32_t)
Packit 345191
Packit 345191
/* Global mutexes. */
Packit 345191
#define OP(mtx)								\
Packit 345191
    RO_MUTEX_CTL_GEN(mutexes_##mtx,					\
Packit 345191
        ctl_stats->mutex_prof_data[global_prof_mutex_##mtx])
Packit 345191
MUTEX_PROF_GLOBAL_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
/* Per arena mutexes */
Packit 345191
#define OP(mtx) RO_MUTEX_CTL_GEN(arenas_i_mutexes_##mtx,		\
Packit 345191
    arenas_i(mib[2])->astats->astats.mutex_prof_data[arena_prof_mutex_##mtx])
Packit 345191
MUTEX_PROF_ARENA_MUTEXES
Packit 345191
#undef OP
Packit 345191
Packit 345191
/* tcache bin mutex */
Packit 345191
RO_MUTEX_CTL_GEN(arenas_i_bins_j_mutex,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].mutex_data)
Packit 345191
#undef RO_MUTEX_CTL_GEN
Packit 345191
Packit 345191
/* Resets all mutex stats, including global, arena and bin mutexes. */
Packit 345191
static int
Packit 345191
stats_mutexes_reset_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp,
Packit 345191
    void *newp, size_t newlen) {
Packit 345191
	if (!config_stats) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
Packit 345191
	tsdn_t *tsdn = tsd_tsdn(tsd);
Packit 345191
Packit 345191
#define MUTEX_PROF_RESET(mtx)						\
Packit 345191
    malloc_mutex_lock(tsdn, &mtx);					\
Packit 345191
    malloc_mutex_prof_data_reset(tsdn, &mtx);				\
Packit 345191
    malloc_mutex_unlock(tsdn, &mtx);
Packit 345191
Packit 345191
	/* Global mutexes: ctl and prof. */
Packit 345191
	MUTEX_PROF_RESET(ctl_mtx);
Packit 345191
	if (have_background_thread) {
Packit 345191
		MUTEX_PROF_RESET(background_thread_lock);
Packit 345191
	}
Packit 345191
	if (config_prof && opt_prof) {
Packit 345191
		MUTEX_PROF_RESET(bt2gctx_mtx);
Packit 345191
	}
Packit 345191
Packit 345191
Packit 345191
	/* Per arena mutexes. */
Packit 345191
	unsigned n = narenas_total_get();
Packit 345191
Packit 345191
	for (unsigned i = 0; i < n; i++) {
Packit 345191
		arena_t *arena = arena_get(tsdn, i, false);
Packit 345191
		if (!arena) {
Packit 345191
			continue;
Packit 345191
		}
Packit 345191
		MUTEX_PROF_RESET(arena->large_mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->extent_avail_mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->extents_dirty.mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->extents_muzzy.mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->extents_retained.mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->decay_dirty.mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->decay_muzzy.mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->tcache_ql_mtx);
Packit 345191
		MUTEX_PROF_RESET(arena->base->mtx);
Packit 345191
Packit 345191
		for (szind_t i = 0; i < SC_NBINS; i++) {
Packit 345191
			for (unsigned j = 0; j < bin_infos[i].n_shards; j++) {
Packit 345191
				bin_t *bin = &arena->bins[i].bin_shards[j];
Packit 345191
				MUTEX_PROF_RESET(bin->lock);
Packit 345191
			}
Packit 345191
		}
Packit 345191
	}
Packit 345191
#undef MUTEX_PROF_RESET
Packit 345191
	return 0;
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nmalloc,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nmalloc, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_ndalloc,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].ndalloc, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nrequests,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nrequests, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_curregs,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].curregs, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nfills,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nfills, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nflushes,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nflushes, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nslabs,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nslabs, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nreslabs,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].reslabs, uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_curslabs,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].curslabs, size_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_bins_j_nonfull_slabs,
Packit 345191
    arenas_i(mib[2])->astats->bstats[mib[4]].nonfull_slabs, size_t)
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
stats_arenas_i_bins_j_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t j) {
Packit 345191
	if (j > SC_NBINS) {
Packit 345191
		return NULL;
Packit 345191
	}
Packit 345191
	return super_stats_arenas_i_bins_j_node;
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_lextents_j_nmalloc,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->lstats[mib[4]].nmalloc), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_lextents_j_ndalloc,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->lstats[mib[4]].ndalloc), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_lextents_j_nrequests,
Packit 345191
    ctl_arena_stats_read_u64(
Packit 345191
    &arenas_i(mib[2])->astats->lstats[mib[4]].nrequests), uint64_t)
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_lextents_j_curlextents,
Packit 345191
    arenas_i(mib[2])->astats->lstats[mib[4]].curlextents, size_t)
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
stats_arenas_i_lextents_j_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t j) {
Packit 345191
	if (j > SC_NSIZES - SC_NBINS) {
Packit 345191
		return NULL;
Packit 345191
	}
Packit 345191
	return super_stats_arenas_i_lextents_j_node;
Packit 345191
}
Packit 345191
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_ndirty,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].ndirty,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_nmuzzy,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].nmuzzy,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_nretained,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].nretained,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_dirty_bytes,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].dirty_bytes,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_muzzy_bytes,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].muzzy_bytes,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
CTL_RO_CGEN(config_stats, stats_arenas_i_extents_j_retained_bytes,
Packit 345191
    atomic_load_zu(
Packit 345191
        &arenas_i(mib[2])->astats->estats[mib[4]].retained_bytes,
Packit 345191
	ATOMIC_RELAXED), size_t);
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
stats_arenas_i_extents_j_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t j) {
Packit 345191
	if (j >= SC_NPSIZES) {
Packit 345191
		return NULL;
Packit 345191
	}
Packit 345191
	return super_stats_arenas_i_extents_j_node;
Packit 345191
}
Packit 345191
Packit 345191
static bool
Packit 345191
ctl_arenas_i_verify(size_t i) {
Packit 345191
	size_t a = arenas_i2a_impl(i, true, true);
Packit 345191
	if (a == UINT_MAX || !ctl_arenas->arenas[a]->initialized) {
Packit 345191
		return true;
Packit 345191
	}
Packit 345191
Packit 345191
	return false;
Packit 345191
}
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
stats_arenas_i_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t i) {
Packit 345191
	const ctl_named_node_t *ret;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	if (ctl_arenas_i_verify(i)) {
Packit 345191
		ret = NULL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	ret = super_stats_arenas_i_node;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
experimental_hooks_install_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	if (oldp == NULL || oldlenp == NULL|| newp == NULL) {
Packit 345191
		ret = EINVAL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	/*
Packit 345191
	 * Note: this is a *private* struct.  This is an experimental interface;
Packit 345191
	 * forcing the user to know the jemalloc internals well enough to
Packit 345191
	 * extract the ABI hopefully ensures nobody gets too comfortable with
Packit 345191
	 * this API, which can change at a moment's notice.
Packit 345191
	 */
Packit 345191
	hooks_t hooks;
Packit 345191
	WRITE(hooks, hooks_t);
Packit 345191
	void *handle = hook_install(tsd_tsdn(tsd), &hooks;;
Packit 345191
	if (handle == NULL) {
Packit 345191
		ret = EAGAIN;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	READ(handle, void *);
Packit 345191
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
experimental_hooks_remove_ctl(tsd_t *tsd, const size_t *mib, size_t miblen,
Packit 345191
    void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
	WRITEONLY();
Packit 345191
	void *handle = NULL;
Packit 345191
	WRITE(handle, void *);
Packit 345191
	if (handle == NULL) {
Packit 345191
		ret = EINVAL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	hook_remove(tsd_tsdn(tsd), handle);
Packit 345191
	ret = 0;
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/*
Packit 345191
 * Output six memory utilization entries for an input pointer, the first one of
Packit 345191
 * type (void *) and the remaining five of type size_t, describing the following
Packit 345191
 * (in the same order):
Packit 345191
 *
Packit 345191
 * (a) memory address of the extent a potential reallocation would go into,
Packit 345191
 * == the five fields below describe about the extent the pointer resides in ==
Packit 345191
 * (b) number of free regions in the extent,
Packit 345191
 * (c) number of regions in the extent,
Packit 345191
 * (d) size of the extent in terms of bytes,
Packit 345191
 * (e) total number of free regions in the bin the extent belongs to, and
Packit 345191
 * (f) total number of regions in the bin the extent belongs to.
Packit 345191
 *
Packit 345191
 * Note that "(e)" and "(f)" are only available when stats are enabled;
Packit 345191
 * otherwise their values are undefined.
Packit 345191
 *
Packit 345191
 * This API is mainly intended for small class allocations, where extents are
Packit 345191
 * used as slab.  Note that if the bin the extent belongs to is completely
Packit 345191
 * full, "(a)" will be NULL.
Packit 345191
 *
Packit 345191
 * In case of large class allocations, "(a)" will be NULL, and "(e)" and "(f)"
Packit 345191
 * will be zero (if stats are enabled; otherwise undefined).  The other three
Packit 345191
 * fields will be properly set though the values are trivial: "(b)" will be 0,
Packit 345191
 * "(c)" will be 1, and "(d)" will be the usable size.
Packit 345191
 *
Packit 345191
 * The input pointer and size are respectively passed in by newp and newlen,
Packit 345191
 * and the output fields and size are respectively oldp and *oldlenp.
Packit 345191
 *
Packit 345191
 * It can be beneficial to define the following macros to make it easier to
Packit 345191
 * access the output:
Packit 345191
 *
Packit 345191
 * #define SLABCUR_READ(out) (*(void **)out)
Packit 345191
 * #define COUNTS(out) ((size_t *)((void **)out + 1))
Packit 345191
 * #define NFREE_READ(out) COUNTS(out)[0]
Packit 345191
 * #define NREGS_READ(out) COUNTS(out)[1]
Packit 345191
 * #define SIZE_READ(out) COUNTS(out)[2]
Packit 345191
 * #define BIN_NFREE_READ(out) COUNTS(out)[3]
Packit 345191
 * #define BIN_NREGS_READ(out) COUNTS(out)[4]
Packit 345191
 *
Packit 345191
 * and then write e.g. NFREE_READ(oldp) to fetch the output.  See the unit test
Packit 345191
 * test_query in test/unit/extent_util.c for an example.
Packit 345191
 *
Packit 345191
 * For a typical defragmentation workflow making use of this API for
Packit 345191
 * understanding the fragmentation level, please refer to the comment for
Packit 345191
 * experimental_utilization_batch_query_ctl.
Packit 345191
 *
Packit 345191
 * It's up to the application how to determine the significance of
Packit 345191
 * fragmentation relying on the outputs returned.  Possible choices are:
Packit 345191
 *
Packit 345191
 * (a) if extent utilization ratio is below certain threshold,
Packit 345191
 * (b) if extent memory consumption is above certain threshold,
Packit 345191
 * (c) if extent utilization ratio is significantly below bin utilization ratio,
Packit 345191
 * (d) if input pointer deviates a lot from potential reallocation address, or
Packit 345191
 * (e) some selection/combination of the above.
Packit 345191
 *
Packit 345191
 * The caller needs to make sure that the input/output arguments are valid,
Packit 345191
 * in particular, that the size of the output is correct, i.e.:
Packit 345191
 *
Packit 345191
 *     *oldlenp = sizeof(void *) + sizeof(size_t) * 5
Packit 345191
 *
Packit 345191
 * Otherwise, the function immediately returns EINVAL without touching anything.
Packit 345191
 *
Packit 345191
 * In the rare case where there's no associated extent found for the input
Packit 345191
 * pointer, the function zeros out all output fields and return.  Please refer
Packit 345191
 * to the comment for experimental_utilization_batch_query_ctl to understand the
Packit 345191
 * motivation from C++.
Packit 345191
 */
Packit 345191
static int
Packit 345191
experimental_utilization_query_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	assert(sizeof(extent_util_stats_verbose_t)
Packit 345191
	    == sizeof(void *) + sizeof(size_t) * 5);
Packit 345191
Packit 345191
	if (oldp == NULL || oldlenp == NULL
Packit 345191
	    || *oldlenp != sizeof(extent_util_stats_verbose_t)
Packit 345191
	    || newp == NULL) {
Packit 345191
		ret = EINVAL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	void *ptr = NULL;
Packit 345191
	WRITE(ptr, void *);
Packit 345191
	extent_util_stats_verbose_t *util_stats
Packit 345191
	    = (extent_util_stats_verbose_t *)oldp;
Packit 345191
	extent_util_stats_verbose_get(tsd_tsdn(tsd), ptr,
Packit 345191
	    &util_stats->nfree, &util_stats->nregs, &util_stats->size,
Packit 345191
	    &util_stats->bin_nfree, &util_stats->bin_nregs,
Packit 345191
	    &util_stats->slabcur_addr);
Packit 345191
	ret = 0;
Packit 345191
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
/*
Packit 345191
 * Given an input array of pointers, output three memory utilization entries of
Packit 345191
 * type size_t for each input pointer about the extent it resides in:
Packit 345191
 *
Packit 345191
 * (a) number of free regions in the extent,
Packit 345191
 * (b) number of regions in the extent, and
Packit 345191
 * (c) size of the extent in terms of bytes.
Packit 345191
 *
Packit 345191
 * This API is mainly intended for small class allocations, where extents are
Packit 345191
 * used as slab.  In case of large class allocations, the outputs are trivial:
Packit 345191
 * "(a)" will be 0, "(b)" will be 1, and "(c)" will be the usable size.
Packit 345191
 *
Packit 345191
 * Note that multiple input pointers may reside on a same extent so the output
Packit 345191
 * fields may contain duplicates.
Packit 345191
 *
Packit 345191
 * The format of the input/output looks like:
Packit 345191
 *
Packit 345191
 * input[0]:  1st_pointer_to_query	|  output[0]: 1st_extent_n_free_regions
Packit 345191
 *					|  output[1]: 1st_extent_n_regions
Packit 345191
 *					|  output[2]: 1st_extent_size
Packit 345191
 * input[1]:  2nd_pointer_to_query	|  output[3]: 2nd_extent_n_free_regions
Packit 345191
 *					|  output[4]: 2nd_extent_n_regions
Packit 345191
 *					|  output[5]: 2nd_extent_size
Packit 345191
 * ...					|  ...
Packit 345191
 *
Packit 345191
 * The input array and size are respectively passed in by newp and newlen, and
Packit 345191
 * the output array and size are respectively oldp and *oldlenp.
Packit 345191
 *
Packit 345191
 * It can be beneficial to define the following macros to make it easier to
Packit 345191
 * access the output:
Packit 345191
 *
Packit 345191
 * #define NFREE_READ(out, i) out[(i) * 3]
Packit 345191
 * #define NREGS_READ(out, i) out[(i) * 3 + 1]
Packit 345191
 * #define SIZE_READ(out, i) out[(i) * 3 + 2]
Packit 345191
 *
Packit 345191
 * and then write e.g. NFREE_READ(oldp, i) to fetch the output.  See the unit
Packit 345191
 * test test_batch in test/unit/extent_util.c for a concrete example.
Packit 345191
 *
Packit 345191
 * A typical workflow would be composed of the following steps:
Packit 345191
 *
Packit 345191
 * (1) flush tcache: mallctl("thread.tcache.flush", ...)
Packit 345191
 * (2) initialize input array of pointers to query fragmentation
Packit 345191
 * (3) allocate output array to hold utilization statistics
Packit 345191
 * (4) query utilization: mallctl("experimental.utilization.batch_query", ...)
Packit 345191
 * (5) (optional) decide if it's worthwhile to defragment; otherwise stop here
Packit 345191
 * (6) disable tcache: mallctl("thread.tcache.enabled", ...)
Packit 345191
 * (7) defragment allocations with significant fragmentation, e.g.:
Packit 345191
 *         for each allocation {
Packit 345191
 *             if it's fragmented {
Packit 345191
 *                 malloc(...);
Packit 345191
 *                 memcpy(...);
Packit 345191
 *                 free(...);
Packit 345191
 *             }
Packit 345191
 *         }
Packit 345191
 * (8) enable tcache: mallctl("thread.tcache.enabled", ...)
Packit 345191
 *
Packit 345191
 * The application can determine the significance of fragmentation themselves
Packit 345191
 * relying on the statistics returned, both at the overall level i.e. step "(5)"
Packit 345191
 * and at individual allocation level i.e. within step "(7)".  Possible choices
Packit 345191
 * are:
Packit 345191
 *
Packit 345191
 * (a) whether memory utilization ratio is below certain threshold,
Packit 345191
 * (b) whether memory consumption is above certain threshold, or
Packit 345191
 * (c) some combination of the two.
Packit 345191
 *
Packit 345191
 * The caller needs to make sure that the input/output arrays are valid and
Packit 345191
 * their sizes are proper as well as matched, meaning:
Packit 345191
 *
Packit 345191
 * (a) newlen = n_pointers * sizeof(const void *)
Packit 345191
 * (b) *oldlenp = n_pointers * sizeof(size_t) * 3
Packit 345191
 * (c) n_pointers > 0
Packit 345191
 *
Packit 345191
 * Otherwise, the function immediately returns EINVAL without touching anything.
Packit 345191
 *
Packit 345191
 * In the rare case where there's no associated extent found for some pointers,
Packit 345191
 * rather than immediately terminating the computation and raising an error,
Packit 345191
 * the function simply zeros out the corresponding output fields and continues
Packit 345191
 * the computation until all input pointers are handled.  The motivations of
Packit 345191
 * such a design are as follows:
Packit 345191
 *
Packit 345191
 * (a) The function always either processes nothing or processes everything, and
Packit 345191
 * never leaves the output half touched and half untouched.
Packit 345191
 *
Packit 345191
 * (b) It facilitates usage needs especially common in C++.  A vast variety of
Packit 345191
 * C++ objects are instantiated with multiple dynamic memory allocations.  For
Packit 345191
 * example, std::string and std::vector typically use at least two allocations,
Packit 345191
 * one for the metadata and one for the actual content.  Other types may use
Packit 345191
 * even more allocations.  When inquiring about utilization statistics, the
Packit 345191
 * caller often wants to examine into all such allocations, especially internal
Packit 345191
 * one(s), rather than just the topmost one.  The issue comes when some
Packit 345191
 * implementations do certain optimizations to reduce/aggregate some internal
Packit 345191
 * allocations, e.g. putting short strings directly into the metadata, and such
Packit 345191
 * decisions are not known to the caller.  Therefore, we permit pointers to
Packit 345191
 * memory usages that may not be returned by previous malloc calls, and we
Packit 345191
 * provide the caller a convenient way to identify such cases.
Packit 345191
 */
Packit 345191
static int
Packit 345191
experimental_utilization_batch_query_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	int ret;
Packit 345191
Packit 345191
	assert(sizeof(extent_util_stats_t) == sizeof(size_t) * 3);
Packit 345191
Packit 345191
	const size_t len = newlen / sizeof(const void *);
Packit 345191
	if (oldp == NULL || oldlenp == NULL || newp == NULL || newlen == 0
Packit 345191
	    || newlen != len * sizeof(const void *)
Packit 345191
	    || *oldlenp != len * sizeof(extent_util_stats_t)) {
Packit 345191
		ret = EINVAL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
Packit 345191
	void **ptrs = (void **)newp;
Packit 345191
	extent_util_stats_t *util_stats = (extent_util_stats_t *)oldp;
Packit 345191
	size_t i;
Packit 345191
	for (i = 0; i < len; ++i) {
Packit 345191
		extent_util_stats_get(tsd_tsdn(tsd), ptrs[i],
Packit 345191
		    &util_stats[i].nfree, &util_stats[i].nregs,
Packit 345191
		    &util_stats[i].size);
Packit 345191
	}
Packit 345191
	ret = 0;
Packit 345191
Packit 345191
label_return:
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static const ctl_named_node_t *
Packit 345191
experimental_arenas_i_index(tsdn_t *tsdn, const size_t *mib,
Packit 345191
    size_t miblen, size_t i) {
Packit 345191
	const ctl_named_node_t *ret;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsdn, &ctl_mtx);
Packit 345191
	if (ctl_arenas_i_verify(i)) {
Packit 345191
		ret = NULL;
Packit 345191
		goto label_return;
Packit 345191
	}
Packit 345191
	ret = super_experimental_arenas_i_node;
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsdn, &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}
Packit 345191
Packit 345191
static int
Packit 345191
experimental_arenas_i_pactivep_ctl(tsd_t *tsd, const size_t *mib,
Packit 345191
    size_t miblen, void *oldp, size_t *oldlenp, void *newp, size_t newlen) {
Packit 345191
	if (!config_stats) {
Packit 345191
		return ENOENT;
Packit 345191
	}
Packit 345191
	if (oldp == NULL || oldlenp == NULL || *oldlenp != sizeof(size_t *)) {
Packit 345191
		return EINVAL;
Packit 345191
	}
Packit 345191
Packit 345191
	unsigned arena_ind;
Packit 345191
	arena_t *arena;
Packit 345191
	int ret;
Packit 345191
	size_t *pactivep;
Packit 345191
Packit 345191
	malloc_mutex_lock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	READONLY();
Packit 345191
	MIB_UNSIGNED(arena_ind, 2);
Packit 345191
	if (arena_ind < narenas_total_get() && (arena =
Packit 345191
	    arena_get(tsd_tsdn(tsd), arena_ind, false)) != NULL) {
Packit 345191
#if defined(JEMALLOC_GCC_ATOMIC_ATOMICS) ||				\
Packit 345191
    defined(JEMALLOC_GCC_SYNC_ATOMICS) || defined(_MSC_VER)
Packit 345191
		/* Expose the underlying counter for fast read. */
Packit 345191
		pactivep = (size_t *)&(arena->nactive.repr);
Packit 345191
		READ(pactivep, size_t *);
Packit 345191
		ret = 0;
Packit 345191
#else
Packit 345191
		ret = EFAULT;
Packit 345191
#endif
Packit 345191
	} else {
Packit 345191
		ret = EFAULT;
Packit 345191
	}
Packit 345191
label_return:
Packit 345191
	malloc_mutex_unlock(tsd_tsdn(tsd), &ctl_mtx);
Packit 345191
	return ret;
Packit 345191
}