Home | History | Annotate | Download | only in src
      1 #define	JEMALLOC_STATS_C_
      2 #include "jemalloc/internal/jemalloc_internal.h"
      3 
      4 #define	CTL_GET(n, v, t) do {						\
      5 	size_t sz = sizeof(t);						\
      6 	xmallctl(n, v, &sz, NULL, 0);					\
      7 } while (0)
      8 
      9 #define	CTL_M2_GET(n, i, v, t) do {					\
     10 	size_t mib[6];							\
     11 	size_t miblen = sizeof(mib) / sizeof(size_t);			\
     12 	size_t sz = sizeof(t);						\
     13 	xmallctlnametomib(n, mib, &miblen);				\
     14 	mib[2] = (i);							\
     15 	xmallctlbymib(mib, miblen, v, &sz, NULL, 0);			\
     16 } while (0)
     17 
     18 #define	CTL_M2_M4_GET(n, i, j, v, t) do {				\
     19 	size_t mib[6];							\
     20 	size_t miblen = sizeof(mib) / sizeof(size_t);			\
     21 	size_t sz = sizeof(t);						\
     22 	xmallctlnametomib(n, mib, &miblen);				\
     23 	mib[2] = (i);							\
     24 	mib[4] = (j);							\
     25 	xmallctlbymib(mib, miblen, v, &sz, NULL, 0);			\
     26 } while (0)
     27 
     28 /******************************************************************************/
     29 /* Data. */
     30 
     31 bool	opt_stats_print = false;
     32 
     33 size_t	stats_cactive = 0;
     34 
     35 /******************************************************************************/
     36 /* Function prototypes for non-inline static functions. */
     37 
     38 static void	stats_arena_bins_print(void (*write_cb)(void *, const char *),
     39     void *cbopaque, unsigned i);
     40 static void	stats_arena_lruns_print(void (*write_cb)(void *, const char *),
     41     void *cbopaque, unsigned i);
     42 static void	stats_arena_hchunks_print(
     43     void (*write_cb)(void *, const char *), void *cbopaque, unsigned i);
     44 static void	stats_arena_print(void (*write_cb)(void *, const char *),
     45     void *cbopaque, unsigned i, bool bins, bool large, bool huge);
     46 
     47 /******************************************************************************/
     48 
     49 static void
     50 stats_arena_bins_print(void (*write_cb)(void *, const char *), void *cbopaque,
     51     unsigned i)
     52 {
     53 	size_t page;
     54 	bool config_tcache, in_gap;
     55 	unsigned nbins, j;
     56 
     57 	CTL_GET("arenas.page", &page, size_t);
     58 
     59 	CTL_GET("config.tcache", &config_tcache, bool);
     60 	if (config_tcache) {
     61 		malloc_cprintf(write_cb, cbopaque,
     62 		    "bins:           size ind    allocated      nmalloc"
     63 		    "      ndalloc    nrequests      curregs      curruns regs"
     64 		    " pgs  util       nfills     nflushes      newruns"
     65 		    "       reruns\n");
     66 	} else {
     67 		malloc_cprintf(write_cb, cbopaque,
     68 		    "bins:           size ind    allocated      nmalloc"
     69 		    "      ndalloc    nrequests      curregs      curruns regs"
     70 		    " pgs  util      newruns       reruns\n");
     71 	}
     72 	CTL_GET("arenas.nbins", &nbins, unsigned);
     73 	for (j = 0, in_gap = false; j < nbins; j++) {
     74 		uint64_t nruns;
     75 
     76 		CTL_M2_M4_GET("stats.arenas.0.bins.0.nruns", i, j, &nruns,
     77 		    uint64_t);
     78 		if (nruns == 0)
     79 			in_gap = true;
     80 		else {
     81 			size_t reg_size, run_size, curregs, availregs, milli;
     82 			size_t curruns;
     83 			uint32_t nregs;
     84 			uint64_t nmalloc, ndalloc, nrequests, nfills, nflushes;
     85 			uint64_t reruns;
     86 			char util[6]; /* "x.yyy". */
     87 
     88 			if (in_gap) {
     89 				malloc_cprintf(write_cb, cbopaque,
     90 				    "                     ---\n");
     91 				in_gap = false;
     92 			}
     93 			CTL_M2_GET("arenas.bin.0.size", j, &reg_size, size_t);
     94 			CTL_M2_GET("arenas.bin.0.nregs", j, &nregs, uint32_t);
     95 			CTL_M2_GET("arenas.bin.0.run_size", j, &run_size,
     96 			    size_t);
     97 			CTL_M2_M4_GET("stats.arenas.0.bins.0.nmalloc", i, j,
     98 			    &nmalloc, uint64_t);
     99 			CTL_M2_M4_GET("stats.arenas.0.bins.0.ndalloc", i, j,
    100 			    &ndalloc, uint64_t);
    101 			CTL_M2_M4_GET("stats.arenas.0.bins.0.curregs", i, j,
    102 			    &curregs, size_t);
    103 			CTL_M2_M4_GET("stats.arenas.0.bins.0.nrequests", i, j,
    104 			    &nrequests, uint64_t);
    105 			if (config_tcache) {
    106 				CTL_M2_M4_GET("stats.arenas.0.bins.0.nfills", i,
    107 				    j, &nfills, uint64_t);
    108 				CTL_M2_M4_GET("stats.arenas.0.bins.0.nflushes",
    109 				    i, j, &nflushes, uint64_t);
    110 			}
    111 			CTL_M2_M4_GET("stats.arenas.0.bins.0.nreruns", i, j,
    112 			    &reruns, uint64_t);
    113 			CTL_M2_M4_GET("stats.arenas.0.bins.0.curruns", i, j,
    114 			    &curruns, size_t);
    115 
    116 			availregs = nregs * curruns;
    117 			milli = (availregs != 0) ? (1000 * curregs) / availregs
    118 			    : 1000;
    119 			assert(milli <= 1000);
    120 			if (milli < 10) {
    121 				malloc_snprintf(util, sizeof(util),
    122 				    "0.00%zu", milli);
    123 			} else if (milli < 100) {
    124 				malloc_snprintf(util, sizeof(util), "0.0%zu",
    125 				    milli);
    126 			} else if (milli < 1000) {
    127 				malloc_snprintf(util, sizeof(util), "0.%zu",
    128 				    milli);
    129 			} else
    130 				malloc_snprintf(util, sizeof(util), "1");
    131 
    132 			if (config_tcache) {
    133 				malloc_cprintf(write_cb, cbopaque,
    134 				    "%20zu %3u %12zu %12"FMTu64
    135 				    " %12"FMTu64" %12"FMTu64" %12zu"
    136 				    " %12zu %4u %3zu %-5s %12"FMTu64
    137 				    " %12"FMTu64" %12"FMTu64" %12"FMTu64"\n",
    138 				    reg_size, j, curregs * reg_size, nmalloc,
    139 				    ndalloc, nrequests, curregs, curruns, nregs,
    140 				    run_size / page, util, nfills, nflushes,
    141 				    nruns, reruns);
    142 			} else {
    143 				malloc_cprintf(write_cb, cbopaque,
    144 				    "%20zu %3u %12zu %12"FMTu64
    145 				    " %12"FMTu64" %12"FMTu64" %12zu"
    146 				    " %12zu %4u %3zu %-5s %12"FMTu64
    147 				    " %12"FMTu64"\n",
    148 				    reg_size, j, curregs * reg_size, nmalloc,
    149 				    ndalloc, nrequests, curregs, curruns, nregs,
    150 				    run_size / page, util, nruns, reruns);
    151 			}
    152 		}
    153 	}
    154 	if (in_gap) {
    155 		malloc_cprintf(write_cb, cbopaque,
    156 		    "                     ---\n");
    157 	}
    158 }
    159 
    160 static void
    161 stats_arena_lruns_print(void (*write_cb)(void *, const char *), void *cbopaque,
    162     unsigned i)
    163 {
    164 	unsigned nbins, nlruns, j;
    165 	bool in_gap;
    166 
    167 	malloc_cprintf(write_cb, cbopaque,
    168 	    "large:          size ind    allocated      nmalloc      ndalloc"
    169 	    "    nrequests      curruns\n");
    170 	CTL_GET("arenas.nbins", &nbins, unsigned);
    171 	CTL_GET("arenas.nlruns", &nlruns, unsigned);
    172 	for (j = 0, in_gap = false; j < nlruns; j++) {
    173 		uint64_t nmalloc, ndalloc, nrequests;
    174 		size_t run_size, curruns;
    175 
    176 		CTL_M2_M4_GET("stats.arenas.0.lruns.0.nmalloc", i, j, &nmalloc,
    177 		    uint64_t);
    178 		CTL_M2_M4_GET("stats.arenas.0.lruns.0.ndalloc", i, j, &ndalloc,
    179 		    uint64_t);
    180 		CTL_M2_M4_GET("stats.arenas.0.lruns.0.nrequests", i, j,
    181 		    &nrequests, uint64_t);
    182 		if (nrequests == 0)
    183 			in_gap = true;
    184 		else {
    185 			CTL_M2_GET("arenas.lrun.0.size", j, &run_size, size_t);
    186 			CTL_M2_M4_GET("stats.arenas.0.lruns.0.curruns", i, j,
    187 			    &curruns, size_t);
    188 			if (in_gap) {
    189 				malloc_cprintf(write_cb, cbopaque,
    190 				    "                     ---\n");
    191 				in_gap = false;
    192 			}
    193 			malloc_cprintf(write_cb, cbopaque,
    194 			    "%20zu %3u %12zu %12"FMTu64" %12"FMTu64
    195 			    " %12"FMTu64" %12zu\n",
    196 			    run_size, nbins + j, curruns * run_size, nmalloc,
    197 			    ndalloc, nrequests, curruns);
    198 		}
    199 	}
    200 	if (in_gap) {
    201 		malloc_cprintf(write_cb, cbopaque,
    202 		    "                     ---\n");
    203 	}
    204 }
    205 
    206 static void
    207 stats_arena_hchunks_print(void (*write_cb)(void *, const char *),
    208     void *cbopaque, unsigned i)
    209 {
    210 	unsigned nbins, nlruns, nhchunks, j;
    211 	bool in_gap;
    212 
    213 	malloc_cprintf(write_cb, cbopaque,
    214 	    "huge:           size ind    allocated      nmalloc      ndalloc"
    215 	    "    nrequests   curhchunks\n");
    216 	CTL_GET("arenas.nbins", &nbins, unsigned);
    217 	CTL_GET("arenas.nlruns", &nlruns, unsigned);
    218 	CTL_GET("arenas.nhchunks", &nhchunks, unsigned);
    219 	for (j = 0, in_gap = false; j < nhchunks; j++) {
    220 		uint64_t nmalloc, ndalloc, nrequests;
    221 		size_t hchunk_size, curhchunks;
    222 
    223 		CTL_M2_M4_GET("stats.arenas.0.hchunks.0.nmalloc", i, j,
    224 		    &nmalloc, uint64_t);
    225 		CTL_M2_M4_GET("stats.arenas.0.hchunks.0.ndalloc", i, j,
    226 		    &ndalloc, uint64_t);
    227 		CTL_M2_M4_GET("stats.arenas.0.hchunks.0.nrequests", i, j,
    228 		    &nrequests, uint64_t);
    229 		if (nrequests == 0)
    230 			in_gap = true;
    231 		else {
    232 			CTL_M2_GET("arenas.hchunk.0.size", j, &hchunk_size,
    233 			    size_t);
    234 			CTL_M2_M4_GET("stats.arenas.0.hchunks.0.curhchunks", i,
    235 			    j, &curhchunks, size_t);
    236 			if (in_gap) {
    237 				malloc_cprintf(write_cb, cbopaque,
    238 				    "                     ---\n");
    239 				in_gap = false;
    240 			}
    241 			malloc_cprintf(write_cb, cbopaque,
    242 			    "%20zu %3u %12zu %12"FMTu64" %12"FMTu64
    243 			    " %12"FMTu64" %12zu\n",
    244 			    hchunk_size, nbins + nlruns + j,
    245 			    curhchunks * hchunk_size, nmalloc, ndalloc,
    246 			    nrequests, curhchunks);
    247 		}
    248 	}
    249 	if (in_gap) {
    250 		malloc_cprintf(write_cb, cbopaque,
    251 		    "                     ---\n");
    252 	}
    253 }
    254 
    255 static void
    256 stats_arena_print(void (*write_cb)(void *, const char *), void *cbopaque,
    257     unsigned i, bool bins, bool large, bool huge)
    258 {
    259 	unsigned nthreads;
    260 	const char *dss;
    261 	ssize_t lg_dirty_mult, decay_time;
    262 	size_t page, pactive, pdirty, mapped;
    263 	size_t metadata_mapped, metadata_allocated;
    264 	uint64_t npurge, nmadvise, purged;
    265 	size_t small_allocated;
    266 	uint64_t small_nmalloc, small_ndalloc, small_nrequests;
    267 	size_t large_allocated;
    268 	uint64_t large_nmalloc, large_ndalloc, large_nrequests;
    269 	size_t huge_allocated;
    270 	uint64_t huge_nmalloc, huge_ndalloc, huge_nrequests;
    271 
    272 	CTL_GET("arenas.page", &page, size_t);
    273 
    274 	CTL_M2_GET("stats.arenas.0.nthreads", i, &nthreads, unsigned);
    275 	malloc_cprintf(write_cb, cbopaque,
    276 	    "assigned threads: %u\n", nthreads);
    277 	CTL_M2_GET("stats.arenas.0.dss", i, &dss, const char *);
    278 	malloc_cprintf(write_cb, cbopaque, "dss allocation precedence: %s\n",
    279 	    dss);
    280 	CTL_M2_GET("stats.arenas.0.lg_dirty_mult", i, &lg_dirty_mult, ssize_t);
    281 	if (opt_purge == purge_mode_ratio) {
    282 		if (lg_dirty_mult >= 0) {
    283 			malloc_cprintf(write_cb, cbopaque,
    284 			    "min active:dirty page ratio: %u:1\n",
    285 			    (1U << lg_dirty_mult));
    286 		} else {
    287 			malloc_cprintf(write_cb, cbopaque,
    288 			    "min active:dirty page ratio: N/A\n");
    289 		}
    290 	}
    291 	CTL_M2_GET("stats.arenas.0.decay_time", i, &decay_time, ssize_t);
    292 	if (opt_purge == purge_mode_decay) {
    293 		if (decay_time >= 0) {
    294 			malloc_cprintf(write_cb, cbopaque, "decay time: %zd\n",
    295 			    decay_time);
    296 		} else
    297 			malloc_cprintf(write_cb, cbopaque, "decay time: N/A\n");
    298 	}
    299 	CTL_M2_GET("stats.arenas.0.pactive", i, &pactive, size_t);
    300 	CTL_M2_GET("stats.arenas.0.pdirty", i, &pdirty, size_t);
    301 	CTL_M2_GET("stats.arenas.0.npurge", i, &npurge, uint64_t);
    302 	CTL_M2_GET("stats.arenas.0.nmadvise", i, &nmadvise, uint64_t);
    303 	CTL_M2_GET("stats.arenas.0.purged", i, &purged, uint64_t);
    304 	malloc_cprintf(write_cb, cbopaque,
    305 	    "purging: dirty: %zu, sweeps: %"FMTu64", madvises: %"FMTu64", "
    306 	    "purged: %"FMTu64"\n", pdirty, npurge, nmadvise, purged);
    307 
    308 	malloc_cprintf(write_cb, cbopaque,
    309 	    "                            allocated      nmalloc      ndalloc"
    310 	    "    nrequests\n");
    311 	CTL_M2_GET("stats.arenas.0.small.allocated", i, &small_allocated,
    312 	    size_t);
    313 	CTL_M2_GET("stats.arenas.0.small.nmalloc", i, &small_nmalloc, uint64_t);
    314 	CTL_M2_GET("stats.arenas.0.small.ndalloc", i, &small_ndalloc, uint64_t);
    315 	CTL_M2_GET("stats.arenas.0.small.nrequests", i, &small_nrequests,
    316 	    uint64_t);
    317 	malloc_cprintf(write_cb, cbopaque,
    318 	    "small:                   %12zu %12"FMTu64" %12"FMTu64
    319 	    " %12"FMTu64"\n",
    320 	    small_allocated, small_nmalloc, small_ndalloc, small_nrequests);
    321 	CTL_M2_GET("stats.arenas.0.large.allocated", i, &large_allocated,
    322 	    size_t);
    323 	CTL_M2_GET("stats.arenas.0.large.nmalloc", i, &large_nmalloc, uint64_t);
    324 	CTL_M2_GET("stats.arenas.0.large.ndalloc", i, &large_ndalloc, uint64_t);
    325 	CTL_M2_GET("stats.arenas.0.large.nrequests", i, &large_nrequests,
    326 	    uint64_t);
    327 	malloc_cprintf(write_cb, cbopaque,
    328 	    "large:                   %12zu %12"FMTu64" %12"FMTu64
    329 	    " %12"FMTu64"\n",
    330 	    large_allocated, large_nmalloc, large_ndalloc, large_nrequests);
    331 	CTL_M2_GET("stats.arenas.0.huge.allocated", i, &huge_allocated, size_t);
    332 	CTL_M2_GET("stats.arenas.0.huge.nmalloc", i, &huge_nmalloc, uint64_t);
    333 	CTL_M2_GET("stats.arenas.0.huge.ndalloc", i, &huge_ndalloc, uint64_t);
    334 	CTL_M2_GET("stats.arenas.0.huge.nrequests", i, &huge_nrequests,
    335 	    uint64_t);
    336 	malloc_cprintf(write_cb, cbopaque,
    337 	    "huge:                    %12zu %12"FMTu64" %12"FMTu64
    338 	    " %12"FMTu64"\n",
    339 	    huge_allocated, huge_nmalloc, huge_ndalloc, huge_nrequests);
    340 	malloc_cprintf(write_cb, cbopaque,
    341 	    "total:                   %12zu %12"FMTu64" %12"FMTu64
    342 	    " %12"FMTu64"\n",
    343 	    small_allocated + large_allocated + huge_allocated,
    344 	    small_nmalloc + large_nmalloc + huge_nmalloc,
    345 	    small_ndalloc + large_ndalloc + huge_ndalloc,
    346 	    small_nrequests + large_nrequests + huge_nrequests);
    347 	malloc_cprintf(write_cb, cbopaque,
    348 	    "active:                  %12zu\n", pactive * page);
    349 	CTL_M2_GET("stats.arenas.0.mapped", i, &mapped, size_t);
    350 	malloc_cprintf(write_cb, cbopaque,
    351 	    "mapped:                  %12zu\n", mapped);
    352 	CTL_M2_GET("stats.arenas.0.metadata.mapped", i, &metadata_mapped,
    353 	    size_t);
    354 	CTL_M2_GET("stats.arenas.0.metadata.allocated", i, &metadata_allocated,
    355 	    size_t);
    356 	malloc_cprintf(write_cb, cbopaque,
    357 	    "metadata: mapped: %zu, allocated: %zu\n",
    358 	    metadata_mapped, metadata_allocated);
    359 
    360 	if (bins)
    361 		stats_arena_bins_print(write_cb, cbopaque, i);
    362 	if (large)
    363 		stats_arena_lruns_print(write_cb, cbopaque, i);
    364 	if (huge)
    365 		stats_arena_hchunks_print(write_cb, cbopaque, i);
    366 }
    367 
    368 void
    369 stats_print(void (*write_cb)(void *, const char *), void *cbopaque,
    370     const char *opts)
    371 {
    372 	int err;
    373 	uint64_t epoch;
    374 	size_t u64sz;
    375 	bool general = true;
    376 	bool merged = true;
    377 	bool unmerged = true;
    378 	bool bins = true;
    379 	bool large = true;
    380 	bool huge = true;
    381 
    382 	/*
    383 	 * Refresh stats, in case mallctl() was called by the application.
    384 	 *
    385 	 * Check for OOM here, since refreshing the ctl cache can trigger
    386 	 * allocation.  In practice, none of the subsequent mallctl()-related
    387 	 * calls in this function will cause OOM if this one succeeds.
    388 	 * */
    389 	epoch = 1;
    390 	u64sz = sizeof(uint64_t);
    391 	err = je_mallctl("epoch", &epoch, &u64sz, &epoch, sizeof(uint64_t));
    392 	if (err != 0) {
    393 		if (err == EAGAIN) {
    394 			malloc_write("<jemalloc>: Memory allocation failure in "
    395 			    "mallctl(\"epoch\", ...)\n");
    396 			return;
    397 		}
    398 		malloc_write("<jemalloc>: Failure in mallctl(\"epoch\", "
    399 		    "...)\n");
    400 		abort();
    401 	}
    402 
    403 	if (opts != NULL) {
    404 		unsigned i;
    405 
    406 		for (i = 0; opts[i] != '\0'; i++) {
    407 			switch (opts[i]) {
    408 			case 'g':
    409 				general = false;
    410 				break;
    411 			case 'm':
    412 				merged = false;
    413 				break;
    414 			case 'a':
    415 				unmerged = false;
    416 				break;
    417 			case 'b':
    418 				bins = false;
    419 				break;
    420 			case 'l':
    421 				large = false;
    422 				break;
    423 			case 'h':
    424 				huge = false;
    425 				break;
    426 			default:;
    427 			}
    428 		}
    429 	}
    430 
    431 	malloc_cprintf(write_cb, cbopaque,
    432 	    "___ Begin jemalloc statistics ___\n");
    433 	if (general) {
    434 		const char *cpv;
    435 		bool bv;
    436 		unsigned uv;
    437 		ssize_t ssv;
    438 		size_t sv, bsz, usz, ssz, sssz, cpsz;
    439 
    440 		bsz = sizeof(bool);
    441 		usz = sizeof(unsigned);
    442 		ssz = sizeof(size_t);
    443 		sssz = sizeof(ssize_t);
    444 		cpsz = sizeof(const char *);
    445 
    446 		CTL_GET("version", &cpv, const char *);
    447 		malloc_cprintf(write_cb, cbopaque, "Version: %s\n", cpv);
    448 		CTL_GET("config.debug", &bv, bool);
    449 		malloc_cprintf(write_cb, cbopaque, "Assertions %s\n",
    450 		    bv ? "enabled" : "disabled");
    451 		malloc_cprintf(write_cb, cbopaque,
    452 		    "config.malloc_conf: \"%s\"\n", config_malloc_conf);
    453 
    454 #define	OPT_WRITE_BOOL(n)						\
    455 		if (je_mallctl("opt."#n, &bv, &bsz, NULL, 0) == 0) {	\
    456 			malloc_cprintf(write_cb, cbopaque,		\
    457 			    "  opt."#n": %s\n", bv ? "true" : "false");	\
    458 		}
    459 #define	OPT_WRITE_BOOL_MUTABLE(n, m) {					\
    460 		bool bv2;						\
    461 		if (je_mallctl("opt."#n, &bv, &bsz, NULL, 0) == 0 &&	\
    462 		    je_mallctl(#m, &bv2, &bsz, NULL, 0) == 0) {		\
    463 			malloc_cprintf(write_cb, cbopaque,		\
    464 			    "  opt."#n": %s ("#m": %s)\n", bv ? "true"	\
    465 			    : "false", bv2 ? "true" : "false");		\
    466 		}							\
    467 }
    468 #define	OPT_WRITE_UNSIGNED(n)						\
    469 		if (je_mallctl("opt."#n, &uv, &usz, NULL, 0) == 0) {	\
    470 			malloc_cprintf(write_cb, cbopaque,		\
    471 			"  opt."#n": %zu\n", sv);			\
    472 		}
    473 #define	OPT_WRITE_SIZE_T(n)						\
    474 		if (je_mallctl("opt."#n, &sv, &ssz, NULL, 0) == 0) {	\
    475 			malloc_cprintf(write_cb, cbopaque,		\
    476 			"  opt."#n": %zu\n", sv);			\
    477 		}
    478 #define	OPT_WRITE_SSIZE_T(n)						\
    479 		if (je_mallctl("opt."#n, &ssv, &sssz, NULL, 0) == 0) {	\
    480 			malloc_cprintf(write_cb, cbopaque,		\
    481 			    "  opt."#n": %zd\n", ssv);			\
    482 		}
    483 #define	OPT_WRITE_SSIZE_T_MUTABLE(n, m) {				\
    484 		ssize_t ssv2;						\
    485 		if (je_mallctl("opt."#n, &ssv, &sssz, NULL, 0) == 0 &&	\
    486 		    je_mallctl(#m, &ssv2, &sssz, NULL, 0) == 0) {	\
    487 			malloc_cprintf(write_cb, cbopaque,		\
    488 			    "  opt."#n": %zd ("#m": %zd)\n",		\
    489 			    ssv, ssv2);					\
    490 		}							\
    491 }
    492 #define	OPT_WRITE_CHAR_P(n)						\
    493 		if (je_mallctl("opt."#n, &cpv, &cpsz, NULL, 0) == 0) {	\
    494 			malloc_cprintf(write_cb, cbopaque,		\
    495 			    "  opt."#n": \"%s\"\n", cpv);		\
    496 		}
    497 
    498 		malloc_cprintf(write_cb, cbopaque,
    499 		    "Run-time option settings:\n");
    500 		OPT_WRITE_BOOL(abort)
    501 		OPT_WRITE_SIZE_T(lg_chunk)
    502 		OPT_WRITE_CHAR_P(dss)
    503 		OPT_WRITE_UNSIGNED(narenas)
    504 		OPT_WRITE_CHAR_P(purge)
    505 		if (opt_purge == purge_mode_ratio) {
    506 			OPT_WRITE_SSIZE_T_MUTABLE(lg_dirty_mult,
    507 			    arenas.lg_dirty_mult)
    508 		}
    509 		if (opt_purge == purge_mode_decay)
    510 			OPT_WRITE_SSIZE_T_MUTABLE(decay_time, arenas.decay_time)
    511 		OPT_WRITE_BOOL(stats_print)
    512 		OPT_WRITE_CHAR_P(junk)
    513 		OPT_WRITE_SIZE_T(quarantine)
    514 		OPT_WRITE_BOOL(redzone)
    515 		OPT_WRITE_BOOL(zero)
    516 		OPT_WRITE_BOOL(utrace)
    517 		OPT_WRITE_BOOL(valgrind)
    518 		OPT_WRITE_BOOL(xmalloc)
    519 		OPT_WRITE_BOOL(tcache)
    520 		OPT_WRITE_SSIZE_T(lg_tcache_max)
    521 		OPT_WRITE_BOOL(prof)
    522 		OPT_WRITE_CHAR_P(prof_prefix)
    523 		OPT_WRITE_BOOL_MUTABLE(prof_active, prof.active)
    524 		OPT_WRITE_BOOL_MUTABLE(prof_thread_active_init,
    525 		    prof.thread_active_init)
    526 		OPT_WRITE_SSIZE_T(lg_prof_sample)
    527 		OPT_WRITE_BOOL(prof_accum)
    528 		OPT_WRITE_SSIZE_T(lg_prof_interval)
    529 		OPT_WRITE_BOOL(prof_gdump)
    530 		OPT_WRITE_BOOL(prof_final)
    531 		OPT_WRITE_BOOL(prof_leak)
    532 
    533 #undef OPT_WRITE_BOOL
    534 #undef OPT_WRITE_BOOL_MUTABLE
    535 #undef OPT_WRITE_SIZE_T
    536 #undef OPT_WRITE_SSIZE_T
    537 #undef OPT_WRITE_CHAR_P
    538 
    539 		malloc_cprintf(write_cb, cbopaque, "CPUs: %u\n", ncpus);
    540 
    541 		CTL_GET("arenas.narenas", &uv, unsigned);
    542 		malloc_cprintf(write_cb, cbopaque, "Arenas: %u\n", uv);
    543 
    544 		malloc_cprintf(write_cb, cbopaque, "Pointer size: %zu\n",
    545 		    sizeof(void *));
    546 
    547 		CTL_GET("arenas.quantum", &sv, size_t);
    548 		malloc_cprintf(write_cb, cbopaque, "Quantum size: %zu\n",
    549 		    sv);
    550 
    551 		CTL_GET("arenas.page", &sv, size_t);
    552 		malloc_cprintf(write_cb, cbopaque, "Page size: %zu\n", sv);
    553 
    554 		CTL_GET("arenas.lg_dirty_mult", &ssv, ssize_t);
    555 		if (opt_purge == purge_mode_ratio) {
    556 			if (ssv >= 0) {
    557 				malloc_cprintf(write_cb, cbopaque,
    558 				    "Min active:dirty page ratio per arena: "
    559 				    "%u:1\n", (1U << ssv));
    560 			} else {
    561 				malloc_cprintf(write_cb, cbopaque,
    562 				    "Min active:dirty page ratio per arena: "
    563 				    "N/A\n");
    564 			}
    565 		}
    566 		CTL_GET("arenas.decay_time", &ssv, ssize_t);
    567 		if (opt_purge == purge_mode_decay) {
    568 			malloc_cprintf(write_cb, cbopaque,
    569 			    "Unused dirty page decay time: %zd%s\n",
    570 			    ssv, (ssv < 0) ? " (no decay)" : "");
    571 		}
    572 		if (je_mallctl("arenas.tcache_max", &sv, &ssz, NULL, 0) == 0) {
    573 			malloc_cprintf(write_cb, cbopaque,
    574 			    "Maximum thread-cached size class: %zu\n", sv);
    575 		}
    576 		if (je_mallctl("opt.prof", &bv, &bsz, NULL, 0) == 0 && bv) {
    577 			CTL_GET("prof.lg_sample", &sv, size_t);
    578 			malloc_cprintf(write_cb, cbopaque,
    579 			    "Average profile sample interval: %"FMTu64
    580 			    " (2^%zu)\n", (((uint64_t)1U) << sv), sv);
    581 
    582 			CTL_GET("opt.lg_prof_interval", &ssv, ssize_t);
    583 			if (ssv >= 0) {
    584 				malloc_cprintf(write_cb, cbopaque,
    585 				    "Average profile dump interval: %"FMTu64
    586 				    " (2^%zd)\n",
    587 				    (((uint64_t)1U) << ssv), ssv);
    588 			} else {
    589 				malloc_cprintf(write_cb, cbopaque,
    590 				    "Average profile dump interval: N/A\n");
    591 			}
    592 		}
    593 		CTL_GET("opt.lg_chunk", &sv, size_t);
    594 		malloc_cprintf(write_cb, cbopaque,
    595 		    "Chunk size: %zu (2^%zu)\n", (ZU(1) << sv), sv);
    596 	}
    597 
    598 	if (config_stats) {
    599 		size_t *cactive;
    600 		size_t allocated, active, metadata, resident, mapped;
    601 
    602 		CTL_GET("stats.cactive", &cactive, size_t *);
    603 		CTL_GET("stats.allocated", &allocated, size_t);
    604 		CTL_GET("stats.active", &active, size_t);
    605 		CTL_GET("stats.metadata", &metadata, size_t);
    606 		CTL_GET("stats.resident", &resident, size_t);
    607 		CTL_GET("stats.mapped", &mapped, size_t);
    608 		malloc_cprintf(write_cb, cbopaque,
    609 		    "Allocated: %zu, active: %zu, metadata: %zu,"
    610 		    " resident: %zu, mapped: %zu\n",
    611 		    allocated, active, metadata, resident, mapped);
    612 		malloc_cprintf(write_cb, cbopaque,
    613 		    "Current active ceiling: %zu\n",
    614 		    atomic_read_z(cactive));
    615 
    616 		if (merged) {
    617 			unsigned narenas;
    618 
    619 			CTL_GET("arenas.narenas", &narenas, unsigned);
    620 			{
    621 				VARIABLE_ARRAY(bool, initialized, narenas);
    622 				size_t isz;
    623 				unsigned i, ninitialized;
    624 
    625 				isz = sizeof(bool) * narenas;
    626 				xmallctl("arenas.initialized", initialized,
    627 				    &isz, NULL, 0);
    628 				for (i = ninitialized = 0; i < narenas; i++) {
    629 					if (initialized[i])
    630 						ninitialized++;
    631 				}
    632 
    633 				if (ninitialized > 1 || !unmerged) {
    634 					/* Print merged arena stats. */
    635 					malloc_cprintf(write_cb, cbopaque,
    636 					    "\nMerged arenas stats:\n");
    637 					stats_arena_print(write_cb, cbopaque,
    638 					    narenas, bins, large, huge);
    639 				}
    640 			}
    641 		}
    642 
    643 		if (unmerged) {
    644 			unsigned narenas;
    645 
    646 			/* Print stats for each arena. */
    647 
    648 			CTL_GET("arenas.narenas", &narenas, unsigned);
    649 			{
    650 				VARIABLE_ARRAY(bool, initialized, narenas);
    651 				size_t isz;
    652 				unsigned i;
    653 
    654 				isz = sizeof(bool) * narenas;
    655 				xmallctl("arenas.initialized", initialized,
    656 				    &isz, NULL, 0);
    657 
    658 				for (i = 0; i < narenas; i++) {
    659 					if (initialized[i]) {
    660 						malloc_cprintf(write_cb,
    661 						    cbopaque,
    662 						    "\narenas[%u]:\n", i);
    663 						stats_arena_print(write_cb,
    664 						    cbopaque, i, bins, large,
    665 						    huge);
    666 					}
    667 				}
    668 			}
    669 		}
    670 	}
    671 	malloc_cprintf(write_cb, cbopaque, "--- End jemalloc statistics ---\n");
    672 }
    673