1#define JEMALLOC_STATS_C_
2#include "jemalloc/internal/jemalloc_preamble.h"
3#include "jemalloc/internal/jemalloc_internal_includes.h"
4
5#include "jemalloc/internal/assert.h"
6#include "jemalloc/internal/ctl.h"
7#include "jemalloc/internal/emitter.h"
8#include "jemalloc/internal/mutex.h"
9#include "jemalloc/internal/mutex_prof.h"
10
11const char *global_mutex_names[mutex_prof_num_global_mutexes] = {
12#define OP(mtx) #mtx,
13	MUTEX_PROF_GLOBAL_MUTEXES
14#undef OP
15};
16
17const char *arena_mutex_names[mutex_prof_num_arena_mutexes] = {
18#define OP(mtx) #mtx,
19	MUTEX_PROF_ARENA_MUTEXES
20#undef OP
21};
22
23#define CTL_GET(n, v, t) do {						\
24	size_t sz = sizeof(t);						\
25	xmallctl(n, (void *)v, &sz, NULL, 0);				\
26} while (0)
27
28#define CTL_M2_GET(n, i, v, t) do {					\
29	size_t mib[CTL_MAX_DEPTH];					\
30	size_t miblen = sizeof(mib) / sizeof(size_t);			\
31	size_t sz = sizeof(t);						\
32	xmallctlnametomib(n, mib, &miblen);				\
33	mib[2] = (i);							\
34	xmallctlbymib(mib, miblen, (void *)v, &sz, NULL, 0);		\
35} while (0)
36
37#define CTL_M2_M4_GET(n, i, j, v, t) do {				\
38	size_t mib[CTL_MAX_DEPTH];					\
39	size_t miblen = sizeof(mib) / sizeof(size_t);			\
40	size_t sz = sizeof(t);						\
41	xmallctlnametomib(n, mib, &miblen);				\
42	mib[2] = (i);							\
43	mib[4] = (j);							\
44	xmallctlbymib(mib, miblen, (void *)v, &sz, NULL, 0);		\
45} while (0)
46
47/******************************************************************************/
48/* Data. */
49
50bool opt_stats_print = false;
51char opt_stats_print_opts[stats_print_tot_num_options+1] = "";
52
53/******************************************************************************/
54
55static uint64_t
56rate_per_second(uint64_t value, uint64_t uptime_ns) {
57	uint64_t billion = 1000000000;
58	if (uptime_ns == 0 || value == 0) {
59		return 0;
60	}
61	if (uptime_ns < billion) {
62		return value;
63	} else {
64		uint64_t uptime_s = uptime_ns / billion;
65		return value / uptime_s;
66	}
67}
68
69/* Calculate x.yyy and output a string (takes a fixed sized char array). */
70static bool
71get_rate_str(uint64_t dividend, uint64_t divisor, char str[6]) {
72	if (divisor == 0 || dividend > divisor) {
73		/* The rate is not supposed to be greater than 1. */
74		return true;
75	}
76	if (dividend > 0) {
77		assert(UINT64_MAX / dividend >= 1000);
78	}
79
80	unsigned n = (unsigned)((dividend * 1000) / divisor);
81	if (n < 10) {
82		malloc_snprintf(str, 6, "0.00%u", n);
83	} else if (n < 100) {
84		malloc_snprintf(str, 6, "0.0%u", n);
85	} else if (n < 1000) {
86		malloc_snprintf(str, 6, "0.%u", n);
87	} else {
88		malloc_snprintf(str, 6, "1");
89	}
90
91	return false;
92}
93
94#define MUTEX_CTL_STR_MAX_LENGTH 128
95static void
96gen_mutex_ctl_str(char *str, size_t buf_len, const char *prefix,
97    const char *mutex, const char *counter) {
98	malloc_snprintf(str, buf_len, "stats.%s.%s.%s", prefix, mutex, counter);
99}
100
101static void
102mutex_stats_init_cols(emitter_row_t *row, const char *table_name,
103    emitter_col_t *name,
104    emitter_col_t col_uint64_t[mutex_prof_num_uint64_t_counters],
105    emitter_col_t col_uint32_t[mutex_prof_num_uint32_t_counters]) {
106	mutex_prof_uint64_t_counter_ind_t k_uint64_t = 0;
107	mutex_prof_uint32_t_counter_ind_t k_uint32_t = 0;
108
109	emitter_col_t *col;
110
111	if (name != NULL) {
112		emitter_col_init(name, row);
113		name->justify = emitter_justify_left;
114		name->width = 21;
115		name->type = emitter_type_title;
116		name->str_val = table_name;
117	}
118
119#define WIDTH_uint32_t 12
120#define WIDTH_uint64_t 16
121#define OP(counter, counter_type, human, derived, base_counter)	\
122	col = &col_##counter_type[k_##counter_type];			\
123	++k_##counter_type;						\
124	emitter_col_init(col, row);					\
125	col->justify = emitter_justify_right;				\
126	col->width = derived ? 8 : WIDTH_##counter_type;		\
127	col->type = emitter_type_title;					\
128	col->str_val = human;
129	MUTEX_PROF_COUNTERS
130#undef OP
131#undef WIDTH_uint32_t
132#undef WIDTH_uint64_t
133	col_uint64_t[mutex_counter_total_wait_time_ps].width = 10;
134}
135
136static void
137mutex_stats_read_global(const char *name, emitter_col_t *col_name,
138    emitter_col_t col_uint64_t[mutex_prof_num_uint64_t_counters],
139    emitter_col_t col_uint32_t[mutex_prof_num_uint32_t_counters],
140    uint64_t uptime) {
141	char cmd[MUTEX_CTL_STR_MAX_LENGTH];
142
143	col_name->str_val = name;
144
145	emitter_col_t *dst;
146#define EMITTER_TYPE_uint32_t emitter_type_uint32
147#define EMITTER_TYPE_uint64_t emitter_type_uint64
148#define OP(counter, counter_type, human, derived, base_counter)	\
149	dst = &col_##counter_type[mutex_counter_##counter];		\
150	dst->type = EMITTER_TYPE_##counter_type;			\
151	if (!derived) {							\
152		gen_mutex_ctl_str(cmd, MUTEX_CTL_STR_MAX_LENGTH,	\
153		    "mutexes", name, #counter);				\
154		CTL_GET(cmd, (counter_type *)&dst->bool_val, counter_type);	\
155	} else { \
156	    emitter_col_t *base = &col_##counter_type[mutex_counter_##base_counter];	\
157	    dst->counter_type##_val = rate_per_second(base->counter_type##_val, uptime); \
158	}
159	MUTEX_PROF_COUNTERS
160#undef OP
161#undef EMITTER_TYPE_uint32_t
162#undef EMITTER_TYPE_uint64_t
163}
164
165static void
166mutex_stats_read_arena(unsigned arena_ind, mutex_prof_arena_ind_t mutex_ind,
167    const char *name, emitter_col_t *col_name,
168    emitter_col_t col_uint64_t[mutex_prof_num_uint64_t_counters],
169    emitter_col_t col_uint32_t[mutex_prof_num_uint32_t_counters],
170    uint64_t uptime) {
171	char cmd[MUTEX_CTL_STR_MAX_LENGTH];
172
173	col_name->str_val = name;
174
175	emitter_col_t *dst;
176#define EMITTER_TYPE_uint32_t emitter_type_uint32
177#define EMITTER_TYPE_uint64_t emitter_type_uint64
178#define OP(counter, counter_type, human, derived, base_counter)	\
179	dst = &col_##counter_type[mutex_counter_##counter];		\
180	dst->type = EMITTER_TYPE_##counter_type;			\
181	if (!derived) {                                   \
182		gen_mutex_ctl_str(cmd, MUTEX_CTL_STR_MAX_LENGTH,        \
183		    "arenas.0.mutexes", arena_mutex_names[mutex_ind], #counter);\
184		CTL_M2_GET(cmd, arena_ind, (counter_type *)&dst->bool_val, counter_type); \
185	} else {                      \
186		emitter_col_t *base = &col_##counter_type[mutex_counter_##base_counter];	\
187		dst->counter_type##_val = rate_per_second(base->counter_type##_val, uptime); \
188	}
189	MUTEX_PROF_COUNTERS
190#undef OP
191#undef EMITTER_TYPE_uint32_t
192#undef EMITTER_TYPE_uint64_t
193}
194
195static void
196mutex_stats_read_arena_bin(unsigned arena_ind, unsigned bin_ind,
197    emitter_col_t col_uint64_t[mutex_prof_num_uint64_t_counters],
198    emitter_col_t col_uint32_t[mutex_prof_num_uint32_t_counters],
199    uint64_t uptime) {
200	char cmd[MUTEX_CTL_STR_MAX_LENGTH];
201	emitter_col_t *dst;
202
203#define EMITTER_TYPE_uint32_t emitter_type_uint32
204#define EMITTER_TYPE_uint64_t emitter_type_uint64
205#define OP(counter, counter_type, human, derived, base_counter)	\
206	dst = &col_##counter_type[mutex_counter_##counter];		\
207	dst->type = EMITTER_TYPE_##counter_type;			\
208	if (!derived) {                                   \
209		gen_mutex_ctl_str(cmd, MUTEX_CTL_STR_MAX_LENGTH,        \
210		    "arenas.0.bins.0","mutex", #counter);            \
211		CTL_M2_M4_GET(cmd, arena_ind, bin_ind,                \
212		    (counter_type *)&dst->bool_val, counter_type);  \
213	} else {                      \
214		emitter_col_t *base = &col_##counter_type[mutex_counter_##base_counter]; \
215		dst->counter_type##_val = rate_per_second(base->counter_type##_val, uptime); \
216	}
217	MUTEX_PROF_COUNTERS
218#undef OP
219#undef EMITTER_TYPE_uint32_t
220#undef EMITTER_TYPE_uint64_t
221}
222
223/* "row" can be NULL to avoid emitting in table mode. */
224static void
225mutex_stats_emit(emitter_t *emitter, emitter_row_t *row,
226    emitter_col_t col_uint64_t[mutex_prof_num_uint64_t_counters],
227    emitter_col_t col_uint32_t[mutex_prof_num_uint32_t_counters]) {
228	if (row != NULL) {
229		emitter_table_row(emitter, row);
230	}
231
232	mutex_prof_uint64_t_counter_ind_t k_uint64_t = 0;
233	mutex_prof_uint32_t_counter_ind_t k_uint32_t = 0;
234
235	emitter_col_t *col;
236
237#define EMITTER_TYPE_uint32_t emitter_type_uint32
238#define EMITTER_TYPE_uint64_t emitter_type_uint64
239#define OP(counter, type, human, derived, base_counter)		\
240	if (!derived) {                    \
241		col = &col_##type[k_##type];                        \
242		++k_##type;                            \
243		emitter_json_kv(emitter, #counter, EMITTER_TYPE_##type,        \
244		    (const void *)&col->bool_val); \
245	}
246	MUTEX_PROF_COUNTERS;
247#undef OP
248#undef EMITTER_TYPE_uint32_t
249#undef EMITTER_TYPE_uint64_t
250}
251
252#define COL(row_name, column_name, left_or_right, col_width, etype)      \
253	emitter_col_t col_##column_name;                                     \
254	emitter_col_init(&col_##column_name, &row_name);                     \
255	col_##column_name.justify = emitter_justify_##left_or_right;         \
256	col_##column_name.width = col_width;                                 \
257	col_##column_name.type = emitter_type_##etype;
258
259#define COL_HDR(row_name, column_name, human, left_or_right, col_width, etype)  \
260	COL(row_name, column_name, left_or_right, col_width, etype)	         \
261	emitter_col_t header_##column_name;                                  \
262	emitter_col_init(&header_##column_name, &header_##row_name);         \
263	header_##column_name.justify = emitter_justify_##left_or_right;      \
264	header_##column_name.width = col_width;                              \
265	header_##column_name.type = emitter_type_title;                      \
266	header_##column_name.str_val = human ? human : #column_name;
267
268
269static void
270stats_arena_bins_print(emitter_t *emitter, bool mutex, unsigned i, uint64_t uptime) {
271	size_t page;
272	bool in_gap, in_gap_prev;
273	unsigned nbins, j;
274
275	CTL_GET("arenas.page", &page, size_t);
276
277	CTL_GET("arenas.nbins", &nbins, unsigned);
278
279	emitter_row_t header_row;
280	emitter_row_init(&header_row);
281
282	emitter_row_t row;
283	emitter_row_init(&row);
284
285	COL_HDR(row, size, NULL, right, 20, size)
286	COL_HDR(row, ind, NULL, right, 4, unsigned)
287	COL_HDR(row, allocated, NULL, right, 13, uint64)
288	COL_HDR(row, nmalloc, NULL, right, 13, uint64)
289	COL_HDR(row, nmalloc_ps, "(#/sec)", right, 8, uint64)
290	COL_HDR(row, ndalloc, NULL, right, 13, uint64)
291	COL_HDR(row, ndalloc_ps, "(#/sec)", right, 8, uint64)
292	COL_HDR(row, nrequests, NULL, right, 13, uint64)
293	COL_HDR(row, nrequests_ps, "(#/sec)", right, 10, uint64)
294	COL_HDR(row, nshards, NULL, right, 9, unsigned)
295	COL_HDR(row, curregs, NULL, right, 13, size)
296	COL_HDR(row, curslabs, NULL, right, 13, size)
297	COL_HDR(row, nonfull_slabs, NULL, right, 15, size)
298	COL_HDR(row, regs, NULL, right, 5, unsigned)
299	COL_HDR(row, pgs, NULL, right, 4, size)
300	/* To buffer a right- and left-justified column. */
301	COL_HDR(row, justify_spacer, NULL, right, 1, title)
302	COL_HDR(row, util, NULL, right, 6, title)
303	COL_HDR(row, nfills, NULL, right, 13, uint64)
304	COL_HDR(row, nfills_ps, "(#/sec)", right, 8, uint64)
305	COL_HDR(row, nflushes, NULL, right, 13, uint64)
306	COL_HDR(row, nflushes_ps, "(#/sec)", right, 8, uint64)
307	COL_HDR(row, nslabs, NULL, right, 13, uint64)
308	COL_HDR(row, nreslabs, NULL, right, 13, uint64)
309	COL_HDR(row, nreslabs_ps, "(#/sec)", right, 8, uint64)
310
311	/* Don't want to actually print the name. */
312	header_justify_spacer.str_val = " ";
313	col_justify_spacer.str_val = " ";
314
315	emitter_col_t col_mutex64[mutex_prof_num_uint64_t_counters];
316	emitter_col_t col_mutex32[mutex_prof_num_uint32_t_counters];
317
318	emitter_col_t header_mutex64[mutex_prof_num_uint64_t_counters];
319	emitter_col_t header_mutex32[mutex_prof_num_uint32_t_counters];
320
321	if (mutex) {
322		mutex_stats_init_cols(&row, NULL, NULL, col_mutex64,
323		    col_mutex32);
324		mutex_stats_init_cols(&header_row, NULL, NULL, header_mutex64,
325		    header_mutex32);
326	}
327
328	/*
329	 * We print a "bins:" header as part of the table row; we need to adjust
330	 * the header size column to compensate.
331	 */
332	header_size.width -=5;
333	emitter_table_printf(emitter, "bins:");
334	emitter_table_row(emitter, &header_row);
335	emitter_json_array_kv_begin(emitter, "bins");
336
337	for (j = 0, in_gap = false; j < nbins; j++) {
338		uint64_t nslabs;
339		size_t reg_size, slab_size, curregs;
340		size_t curslabs;
341		size_t nonfull_slabs;
342		uint32_t nregs, nshards;
343		uint64_t nmalloc, ndalloc, nrequests, nfills, nflushes;
344		uint64_t nreslabs;
345
346		CTL_M2_M4_GET("stats.arenas.0.bins.0.nslabs", i, j, &nslabs,
347		    uint64_t);
348		in_gap_prev = in_gap;
349		in_gap = (nslabs == 0);
350
351		if (in_gap_prev && !in_gap) {
352			emitter_table_printf(emitter,
353			    "                     ---\n");
354		}
355
356		CTL_M2_GET("arenas.bin.0.size", j, &reg_size, size_t);
357		CTL_M2_GET("arenas.bin.0.nregs", j, &nregs, uint32_t);
358		CTL_M2_GET("arenas.bin.0.slab_size", j, &slab_size, size_t);
359		CTL_M2_GET("arenas.bin.0.nshards", j, &nshards, uint32_t);
360
361		CTL_M2_M4_GET("stats.arenas.0.bins.0.nmalloc", i, j, &nmalloc,
362		    uint64_t);
363		CTL_M2_M4_GET("stats.arenas.0.bins.0.ndalloc", i, j, &ndalloc,
364		    uint64_t);
365		CTL_M2_M4_GET("stats.arenas.0.bins.0.curregs", i, j, &curregs,
366		    size_t);
367		CTL_M2_M4_GET("stats.arenas.0.bins.0.nrequests", i, j,
368		    &nrequests, uint64_t);
369		CTL_M2_M4_GET("stats.arenas.0.bins.0.nfills", i, j, &nfills,
370		    uint64_t);
371		CTL_M2_M4_GET("stats.arenas.0.bins.0.nflushes", i, j, &nflushes,
372		    uint64_t);
373		CTL_M2_M4_GET("stats.arenas.0.bins.0.nreslabs", i, j, &nreslabs,
374		    uint64_t);
375		CTL_M2_M4_GET("stats.arenas.0.bins.0.curslabs", i, j, &curslabs,
376		    size_t);
377		CTL_M2_M4_GET("stats.arenas.0.bins.0.nonfull_slabs", i, j, &nonfull_slabs,
378		    size_t);
379
380		if (mutex) {
381			mutex_stats_read_arena_bin(i, j, col_mutex64,
382			    col_mutex32, uptime);
383		}
384
385		emitter_json_object_begin(emitter);
386		emitter_json_kv(emitter, "nmalloc", emitter_type_uint64,
387		    &nmalloc);
388		emitter_json_kv(emitter, "ndalloc", emitter_type_uint64,
389		    &ndalloc);
390		emitter_json_kv(emitter, "curregs", emitter_type_size,
391		    &curregs);
392		emitter_json_kv(emitter, "nrequests", emitter_type_uint64,
393		    &nrequests);
394		emitter_json_kv(emitter, "nfills", emitter_type_uint64,
395		    &nfills);
396		emitter_json_kv(emitter, "nflushes", emitter_type_uint64,
397		    &nflushes);
398		emitter_json_kv(emitter, "nreslabs", emitter_type_uint64,
399		    &nreslabs);
400		emitter_json_kv(emitter, "curslabs", emitter_type_size,
401		    &curslabs);
402		emitter_json_kv(emitter, "nonfull_slabs", emitter_type_size,
403		    &nonfull_slabs);
404		if (mutex) {
405			emitter_json_object_kv_begin(emitter, "mutex");
406			mutex_stats_emit(emitter, NULL, col_mutex64,
407			    col_mutex32);
408			emitter_json_object_end(emitter);
409		}
410		emitter_json_object_end(emitter);
411
412		size_t availregs = nregs * curslabs;
413		char util[6];
414		if (get_rate_str((uint64_t)curregs, (uint64_t)availregs, util))
415		{
416			if (availregs == 0) {
417				malloc_snprintf(util, sizeof(util), "1");
418			} else if (curregs > availregs) {
419				/*
420				 * Race detected: the counters were read in
421				 * separate mallctl calls and concurrent
422				 * operations happened in between.  In this case
423				 * no meaningful utilization can be computed.
424				 */
425				malloc_snprintf(util, sizeof(util), " race");
426			} else {
427				not_reached();
428			}
429		}
430
431		col_size.size_val = reg_size;
432		col_ind.unsigned_val = j;
433		col_allocated.size_val = curregs * reg_size;
434		col_nmalloc.uint64_val = nmalloc;
435		col_nmalloc_ps.uint64_val = rate_per_second(nmalloc, uptime);
436		col_ndalloc.uint64_val = ndalloc;
437		col_ndalloc_ps.uint64_val = rate_per_second(ndalloc, uptime);
438		col_nrequests.uint64_val = nrequests;
439		col_nrequests_ps.uint64_val = rate_per_second(nrequests, uptime);
440		col_nshards.unsigned_val = nshards;
441		col_curregs.size_val = curregs;
442		col_curslabs.size_val = curslabs;
443		col_nonfull_slabs.size_val = nonfull_slabs;
444		col_regs.unsigned_val = nregs;
445		col_pgs.size_val = slab_size / page;
446		col_util.str_val = util;
447		col_nfills.uint64_val = nfills;
448		col_nfills_ps.uint64_val = rate_per_second(nfills, uptime);
449		col_nflushes.uint64_val = nflushes;
450		col_nflushes_ps.uint64_val = rate_per_second(nflushes, uptime);
451		col_nslabs.uint64_val = nslabs;
452		col_nreslabs.uint64_val = nreslabs;
453		col_nreslabs_ps.uint64_val = rate_per_second(nreslabs, uptime);
454
455		/*
456		 * Note that mutex columns were initialized above, if mutex ==
457		 * true.
458		 */
459
460		emitter_table_row(emitter, &row);
461	}
462	emitter_json_array_end(emitter); /* Close "bins". */
463
464	if (in_gap) {
465		emitter_table_printf(emitter, "                     ---\n");
466	}
467}
468
469static void
470stats_arena_lextents_print(emitter_t *emitter, unsigned i, uint64_t uptime) {
471	unsigned nbins, nlextents, j;
472	bool in_gap, in_gap_prev;
473
474	CTL_GET("arenas.nbins", &nbins, unsigned);
475	CTL_GET("arenas.nlextents", &nlextents, unsigned);
476
477	emitter_row_t header_row;
478	emitter_row_init(&header_row);
479	emitter_row_t row;
480	emitter_row_init(&row);
481
482	COL_HDR(row, size, NULL, right, 20, size)
483	COL_HDR(row, ind, NULL, right, 4, unsigned)
484	COL_HDR(row, allocated, NULL, right, 13, size)
485	COL_HDR(row, nmalloc, NULL, right, 13, uint64)
486	COL_HDR(row, nmalloc_ps, "(#/sec)", right, 8, uint64)
487	COL_HDR(row, ndalloc, NULL, right, 13, uint64)
488	COL_HDR(row, ndalloc_ps, "(#/sec)", right, 8, uint64)
489	COL_HDR(row, nrequests, NULL, right, 13, uint64)
490	COL_HDR(row, nrequests_ps, "(#/sec)", right, 8, uint64)
491	COL_HDR(row, curlextents, NULL, right, 13, size)
492
493	/* As with bins, we label the large extents table. */
494	header_size.width -= 6;
495	emitter_table_printf(emitter, "large:");
496	emitter_table_row(emitter, &header_row);
497	emitter_json_array_kv_begin(emitter, "lextents");
498
499	for (j = 0, in_gap = false; j < nlextents; j++) {
500		uint64_t nmalloc, ndalloc, nrequests;
501		size_t lextent_size, curlextents;
502
503		CTL_M2_M4_GET("stats.arenas.0.lextents.0.nmalloc", i, j,
504		    &nmalloc, uint64_t);
505		CTL_M2_M4_GET("stats.arenas.0.lextents.0.ndalloc", i, j,
506		    &ndalloc, uint64_t);
507		CTL_M2_M4_GET("stats.arenas.0.lextents.0.nrequests", i, j,
508		    &nrequests, uint64_t);
509		in_gap_prev = in_gap;
510		in_gap = (nrequests == 0);
511
512		if (in_gap_prev && !in_gap) {
513			emitter_table_printf(emitter,
514			    "                     ---\n");
515		}
516
517		CTL_M2_GET("arenas.lextent.0.size", j, &lextent_size, size_t);
518		CTL_M2_M4_GET("stats.arenas.0.lextents.0.curlextents", i, j,
519		    &curlextents, size_t);
520
521		emitter_json_object_begin(emitter);
522		emitter_json_kv(emitter, "curlextents", emitter_type_size,
523		    &curlextents);
524		emitter_json_object_end(emitter);
525
526		col_size.size_val = lextent_size;
527		col_ind.unsigned_val = nbins + j;
528		col_allocated.size_val = curlextents * lextent_size;
529		col_nmalloc.uint64_val = nmalloc;
530		col_nmalloc_ps.uint64_val = rate_per_second(nmalloc, uptime);
531		col_ndalloc.uint64_val = ndalloc;
532		col_ndalloc_ps.uint64_val = rate_per_second(ndalloc, uptime);
533		col_nrequests.uint64_val = nrequests;
534		col_nrequests_ps.uint64_val = rate_per_second(nrequests, uptime);
535		col_curlextents.size_val = curlextents;
536
537		if (!in_gap) {
538			emitter_table_row(emitter, &row);
539		}
540	}
541	emitter_json_array_end(emitter); /* Close "lextents". */
542	if (in_gap) {
543		emitter_table_printf(emitter, "                     ---\n");
544	}
545}
546
547static void
548stats_arena_extents_print(emitter_t *emitter, unsigned i) {
549	unsigned j;
550	bool in_gap, in_gap_prev;
551	emitter_row_t header_row;
552	emitter_row_init(&header_row);
553	emitter_row_t row;
554	emitter_row_init(&row);
555
556	COL_HDR(row, size, NULL, right, 20, size)
557	COL_HDR(row, ind, NULL, right, 4, unsigned)
558	COL_HDR(row, ndirty, NULL, right, 13, size)
559	COL_HDR(row, dirty, NULL, right, 13, size)
560	COL_HDR(row, nmuzzy, NULL, right, 13, size)
561	COL_HDR(row, muzzy, NULL, right, 13, size)
562	COL_HDR(row, nretained, NULL, right, 13, size)
563	COL_HDR(row, retained, NULL, right, 13, size)
564	COL_HDR(row, ntotal, NULL, right, 13, size)
565	COL_HDR(row, total, NULL, right, 13, size)
566
567	/* Label this section. */
568	header_size.width -= 8;
569	emitter_table_printf(emitter, "extents:");
570	emitter_table_row(emitter, &header_row);
571	emitter_json_array_kv_begin(emitter, "extents");
572
573	in_gap = false;
574	for (j = 0; j < SC_NPSIZES; j++) {
575		size_t ndirty, nmuzzy, nretained, total, dirty_bytes,
576		    muzzy_bytes, retained_bytes, total_bytes;
577		CTL_M2_M4_GET("stats.arenas.0.extents.0.ndirty", i, j,
578		    &ndirty, size_t);
579		CTL_M2_M4_GET("stats.arenas.0.extents.0.nmuzzy", i, j,
580		    &nmuzzy, size_t);
581		CTL_M2_M4_GET("stats.arenas.0.extents.0.nretained", i, j,
582		    &nretained, size_t);
583		CTL_M2_M4_GET("stats.arenas.0.extents.0.dirty_bytes", i, j,
584		    &dirty_bytes, size_t);
585		CTL_M2_M4_GET("stats.arenas.0.extents.0.muzzy_bytes", i, j,
586		    &muzzy_bytes, size_t);
587		CTL_M2_M4_GET("stats.arenas.0.extents.0.retained_bytes", i, j,
588		    &retained_bytes, size_t);
589		total = ndirty + nmuzzy + nretained;
590		total_bytes = dirty_bytes + muzzy_bytes + retained_bytes;
591
592		in_gap_prev = in_gap;
593		in_gap = (total == 0);
594
595		if (in_gap_prev && !in_gap) {
596			emitter_table_printf(emitter,
597			    "                     ---\n");
598		}
599
600		emitter_json_object_begin(emitter);
601		emitter_json_kv(emitter, "ndirty", emitter_type_size, &ndirty);
602		emitter_json_kv(emitter, "nmuzzy", emitter_type_size, &nmuzzy);
603		emitter_json_kv(emitter, "nretained", emitter_type_size,
604		    &nretained);
605
606		emitter_json_kv(emitter, "dirty_bytes", emitter_type_size,
607		    &dirty_bytes);
608		emitter_json_kv(emitter, "muzzy_bytes", emitter_type_size,
609		    &muzzy_bytes);
610		emitter_json_kv(emitter, "retained_bytes", emitter_type_size,
611		    &retained_bytes);
612		emitter_json_object_end(emitter);
613
614		col_size.size_val = sz_pind2sz(j);
615		col_ind.size_val = j;
616		col_ndirty.size_val = ndirty;
617		col_dirty.size_val = dirty_bytes;
618		col_nmuzzy.size_val = nmuzzy;
619		col_muzzy.size_val = muzzy_bytes;
620		col_nretained.size_val = nretained;
621		col_retained.size_val = retained_bytes;
622		col_ntotal.size_val = total;
623		col_total.size_val = total_bytes;
624
625		if (!in_gap) {
626			emitter_table_row(emitter, &row);
627		}
628	}
629	emitter_json_array_end(emitter); /* Close "extents". */
630	if (in_gap) {
631		emitter_table_printf(emitter, "                     ---\n");
632	}
633}
634
635static void
636stats_arena_mutexes_print(emitter_t *emitter, unsigned arena_ind, uint64_t uptime) {
637	emitter_row_t row;
638	emitter_col_t col_name;
639	emitter_col_t col64[mutex_prof_num_uint64_t_counters];
640	emitter_col_t col32[mutex_prof_num_uint32_t_counters];
641
642	emitter_row_init(&row);
643	mutex_stats_init_cols(&row, "", &col_name, col64, col32);
644
645	emitter_json_object_kv_begin(emitter, "mutexes");
646	emitter_table_row(emitter, &row);
647
648	for (mutex_prof_arena_ind_t i = 0; i < mutex_prof_num_arena_mutexes;
649	    i++) {
650		const char *name = arena_mutex_names[i];
651		emitter_json_object_kv_begin(emitter, name);
652		mutex_stats_read_arena(arena_ind, i, name, &col_name, col64,
653		    col32, uptime);
654		mutex_stats_emit(emitter, &row, col64, col32);
655		emitter_json_object_end(emitter); /* Close the mutex dict. */
656	}
657	emitter_json_object_end(emitter); /* End "mutexes". */
658}
659
660static void
661stats_arena_print(emitter_t *emitter, unsigned i, bool bins, bool large,
662    bool mutex, bool extents) {
663	unsigned nthreads;
664	const char *dss;
665	ssize_t dirty_decay_ms, muzzy_decay_ms;
666	size_t page, pactive, pdirty, pmuzzy, mapped, retained;
667	size_t base, internal, resident, metadata_thp, extent_avail;
668	uint64_t dirty_npurge, dirty_nmadvise, dirty_purged;
669	uint64_t muzzy_npurge, muzzy_nmadvise, muzzy_purged;
670	size_t small_allocated;
671	uint64_t small_nmalloc, small_ndalloc, small_nrequests, small_nfills,
672	    small_nflushes;
673	size_t large_allocated;
674	uint64_t large_nmalloc, large_ndalloc, large_nrequests, large_nfills,
675	    large_nflushes;
676	size_t tcache_bytes, abandoned_vm;
677	uint64_t uptime;
678
679	CTL_GET("arenas.page", &page, size_t);
680
681	CTL_M2_GET("stats.arenas.0.nthreads", i, &nthreads, unsigned);
682	emitter_kv(emitter, "nthreads", "assigned threads",
683	    emitter_type_unsigned, &nthreads);
684
685	CTL_M2_GET("stats.arenas.0.uptime", i, &uptime, uint64_t);
686	emitter_kv(emitter, "uptime_ns", "uptime", emitter_type_uint64,
687	    &uptime);
688
689	CTL_M2_GET("stats.arenas.0.dss", i, &dss, const char *);
690	emitter_kv(emitter, "dss", "dss allocation precedence",
691	    emitter_type_string, &dss);
692
693	CTL_M2_GET("stats.arenas.0.dirty_decay_ms", i, &dirty_decay_ms,
694	    ssize_t);
695	CTL_M2_GET("stats.arenas.0.muzzy_decay_ms", i, &muzzy_decay_ms,
696	    ssize_t);
697	CTL_M2_GET("stats.arenas.0.pactive", i, &pactive, size_t);
698	CTL_M2_GET("stats.arenas.0.pdirty", i, &pdirty, size_t);
699	CTL_M2_GET("stats.arenas.0.pmuzzy", i, &pmuzzy, size_t);
700	CTL_M2_GET("stats.arenas.0.dirty_npurge", i, &dirty_npurge, uint64_t);
701	CTL_M2_GET("stats.arenas.0.dirty_nmadvise", i, &dirty_nmadvise,
702	    uint64_t);
703	CTL_M2_GET("stats.arenas.0.dirty_purged", i, &dirty_purged, uint64_t);
704	CTL_M2_GET("stats.arenas.0.muzzy_npurge", i, &muzzy_npurge, uint64_t);
705	CTL_M2_GET("stats.arenas.0.muzzy_nmadvise", i, &muzzy_nmadvise,
706	    uint64_t);
707	CTL_M2_GET("stats.arenas.0.muzzy_purged", i, &muzzy_purged, uint64_t);
708
709	emitter_row_t decay_row;
710	emitter_row_init(&decay_row);
711
712	/* JSON-style emission. */
713	emitter_json_kv(emitter, "dirty_decay_ms", emitter_type_ssize,
714	    &dirty_decay_ms);
715	emitter_json_kv(emitter, "muzzy_decay_ms", emitter_type_ssize,
716	    &muzzy_decay_ms);
717
718	emitter_json_kv(emitter, "pactive", emitter_type_size, &pactive);
719	emitter_json_kv(emitter, "pdirty", emitter_type_size, &pdirty);
720	emitter_json_kv(emitter, "pmuzzy", emitter_type_size, &pmuzzy);
721
722	emitter_json_kv(emitter, "dirty_npurge", emitter_type_uint64,
723	    &dirty_npurge);
724	emitter_json_kv(emitter, "dirty_nmadvise", emitter_type_uint64,
725	    &dirty_nmadvise);
726	emitter_json_kv(emitter, "dirty_purged", emitter_type_uint64,
727	    &dirty_purged);
728
729	emitter_json_kv(emitter, "muzzy_npurge", emitter_type_uint64,
730	    &muzzy_npurge);
731	emitter_json_kv(emitter, "muzzy_nmadvise", emitter_type_uint64,
732	    &muzzy_nmadvise);
733	emitter_json_kv(emitter, "muzzy_purged", emitter_type_uint64,
734	    &muzzy_purged);
735
736	/* Table-style emission. */
737	COL(decay_row, decay_type, right, 9, title);
738	col_decay_type.str_val = "decaying:";
739
740	COL(decay_row, decay_time, right, 6, title);
741	col_decay_time.str_val = "time";
742
743	COL(decay_row, decay_npages, right, 13, title);
744	col_decay_npages.str_val = "npages";
745
746	COL(decay_row, decay_sweeps, right, 13, title);
747	col_decay_sweeps.str_val = "sweeps";
748
749	COL(decay_row, decay_madvises, right, 13, title);
750	col_decay_madvises.str_val = "madvises";
751
752	COL(decay_row, decay_purged, right, 13, title);
753	col_decay_purged.str_val = "purged";
754
755	/* Title row. */
756	emitter_table_row(emitter, &decay_row);
757
758	/* Dirty row. */
759	col_decay_type.str_val = "dirty:";
760
761	if (dirty_decay_ms >= 0) {
762		col_decay_time.type = emitter_type_ssize;
763		col_decay_time.ssize_val = dirty_decay_ms;
764	} else {
765		col_decay_time.type = emitter_type_title;
766		col_decay_time.str_val = "N/A";
767	}
768
769	col_decay_npages.type = emitter_type_size;
770	col_decay_npages.size_val = pdirty;
771
772	col_decay_sweeps.type = emitter_type_uint64;
773	col_decay_sweeps.uint64_val = dirty_npurge;
774
775	col_decay_madvises.type = emitter_type_uint64;
776	col_decay_madvises.uint64_val = dirty_nmadvise;
777
778	col_decay_purged.type = emitter_type_uint64;
779	col_decay_purged.uint64_val = dirty_purged;
780
781	emitter_table_row(emitter, &decay_row);
782
783	/* Muzzy row. */
784	col_decay_type.str_val = "muzzy:";
785
786	if (muzzy_decay_ms >= 0) {
787		col_decay_time.type = emitter_type_ssize;
788		col_decay_time.ssize_val = muzzy_decay_ms;
789	} else {
790		col_decay_time.type = emitter_type_title;
791		col_decay_time.str_val = "N/A";
792	}
793
794	col_decay_npages.type = emitter_type_size;
795	col_decay_npages.size_val = pmuzzy;
796
797	col_decay_sweeps.type = emitter_type_uint64;
798	col_decay_sweeps.uint64_val = muzzy_npurge;
799
800	col_decay_madvises.type = emitter_type_uint64;
801	col_decay_madvises.uint64_val = muzzy_nmadvise;
802
803	col_decay_purged.type = emitter_type_uint64;
804	col_decay_purged.uint64_val = muzzy_purged;
805
806	emitter_table_row(emitter, &decay_row);
807
808	/* Small / large / total allocation counts. */
809	emitter_row_t alloc_count_row;
810	emitter_row_init(&alloc_count_row);
811
812	COL(alloc_count_row, count_title, left, 21, title);
813	col_count_title.str_val = "";
814
815	COL(alloc_count_row, count_allocated, right, 16, title);
816	col_count_allocated.str_val = "allocated";
817
818	COL(alloc_count_row, count_nmalloc, right, 16, title);
819	col_count_nmalloc.str_val = "nmalloc";
820	COL(alloc_count_row, count_nmalloc_ps, right, 8, title);
821	col_count_nmalloc_ps.str_val = "(#/sec)";
822
823	COL(alloc_count_row, count_ndalloc, right, 16, title);
824	col_count_ndalloc.str_val = "ndalloc";
825	COL(alloc_count_row, count_ndalloc_ps, right, 8, title);
826	col_count_ndalloc_ps.str_val = "(#/sec)";
827
828	COL(alloc_count_row, count_nrequests, right, 16, title);
829	col_count_nrequests.str_val = "nrequests";
830	COL(alloc_count_row, count_nrequests_ps, right, 10, title);
831	col_count_nrequests_ps.str_val = "(#/sec)";
832
833	COL(alloc_count_row, count_nfills, right, 16, title);
834	col_count_nfills.str_val = "nfill";
835	COL(alloc_count_row, count_nfills_ps, right, 10, title);
836	col_count_nfills_ps.str_val = "(#/sec)";
837
838	COL(alloc_count_row, count_nflushes, right, 16, title);
839	col_count_nflushes.str_val = "nflush";
840	COL(alloc_count_row, count_nflushes_ps, right, 10, title);
841	col_count_nflushes_ps.str_val = "(#/sec)";
842
843	emitter_table_row(emitter, &alloc_count_row);
844
845	col_count_nmalloc_ps.type = emitter_type_uint64;
846	col_count_ndalloc_ps.type = emitter_type_uint64;
847	col_count_nrequests_ps.type = emitter_type_uint64;
848	col_count_nfills_ps.type = emitter_type_uint64;
849	col_count_nflushes_ps.type = emitter_type_uint64;
850
851#define GET_AND_EMIT_ALLOC_STAT(small_or_large, name, valtype)		\
852	CTL_M2_GET("stats.arenas.0." #small_or_large "." #name, i,	\
853	    &small_or_large##_##name, valtype##_t);			\
854	emitter_json_kv(emitter, #name, emitter_type_##valtype,		\
855	    &small_or_large##_##name);					\
856	col_count_##name.type = emitter_type_##valtype;		\
857	col_count_##name.valtype##_val = small_or_large##_##name;
858
859	emitter_json_object_kv_begin(emitter, "small");
860	col_count_title.str_val = "small:";
861
862	GET_AND_EMIT_ALLOC_STAT(small, allocated, size)
863	GET_AND_EMIT_ALLOC_STAT(small, nmalloc, uint64)
864	col_count_nmalloc_ps.uint64_val =
865	    rate_per_second(col_count_nmalloc.uint64_val, uptime);
866	GET_AND_EMIT_ALLOC_STAT(small, ndalloc, uint64)
867	col_count_ndalloc_ps.uint64_val =
868	    rate_per_second(col_count_ndalloc.uint64_val, uptime);
869	GET_AND_EMIT_ALLOC_STAT(small, nrequests, uint64)
870	col_count_nrequests_ps.uint64_val =
871	    rate_per_second(col_count_nrequests.uint64_val, uptime);
872	GET_AND_EMIT_ALLOC_STAT(small, nfills, uint64)
873	col_count_nfills_ps.uint64_val =
874	    rate_per_second(col_count_nfills.uint64_val, uptime);
875	GET_AND_EMIT_ALLOC_STAT(small, nflushes, uint64)
876	col_count_nflushes_ps.uint64_val =
877	    rate_per_second(col_count_nflushes.uint64_val, uptime);
878
879	emitter_table_row(emitter, &alloc_count_row);
880	emitter_json_object_end(emitter); /* Close "small". */
881
882	emitter_json_object_kv_begin(emitter, "large");
883	col_count_title.str_val = "large:";
884
885	GET_AND_EMIT_ALLOC_STAT(large, allocated, size)
886	GET_AND_EMIT_ALLOC_STAT(large, nmalloc, uint64)
887	col_count_nmalloc_ps.uint64_val =
888	    rate_per_second(col_count_nmalloc.uint64_val, uptime);
889	GET_AND_EMIT_ALLOC_STAT(large, ndalloc, uint64)
890	col_count_ndalloc_ps.uint64_val =
891	    rate_per_second(col_count_ndalloc.uint64_val, uptime);
892	GET_AND_EMIT_ALLOC_STAT(large, nrequests, uint64)
893	col_count_nrequests_ps.uint64_val =
894	    rate_per_second(col_count_nrequests.uint64_val, uptime);
895	GET_AND_EMIT_ALLOC_STAT(large, nfills, uint64)
896	col_count_nfills_ps.uint64_val =
897	    rate_per_second(col_count_nfills.uint64_val, uptime);
898	GET_AND_EMIT_ALLOC_STAT(large, nflushes, uint64)
899	col_count_nflushes_ps.uint64_val =
900	    rate_per_second(col_count_nflushes.uint64_val, uptime);
901
902	emitter_table_row(emitter, &alloc_count_row);
903	emitter_json_object_end(emitter); /* Close "large". */
904
905#undef GET_AND_EMIT_ALLOC_STAT
906
907	/* Aggregated small + large stats are emitter only in table mode. */
908	col_count_title.str_val = "total:";
909	col_count_allocated.size_val = small_allocated + large_allocated;
910	col_count_nmalloc.uint64_val = small_nmalloc + large_nmalloc;
911	col_count_ndalloc.uint64_val = small_ndalloc + large_ndalloc;
912	col_count_nrequests.uint64_val = small_nrequests + large_nrequests;
913	col_count_nfills.uint64_val = small_nfills + large_nfills;
914	col_count_nflushes.uint64_val = small_nflushes + large_nflushes;
915	col_count_nmalloc_ps.uint64_val =
916	    rate_per_second(col_count_nmalloc.uint64_val, uptime);
917	col_count_ndalloc_ps.uint64_val =
918	    rate_per_second(col_count_ndalloc.uint64_val, uptime);
919	col_count_nrequests_ps.uint64_val =
920	    rate_per_second(col_count_nrequests.uint64_val, uptime);
921	col_count_nfills_ps.uint64_val =
922	    rate_per_second(col_count_nfills.uint64_val, uptime);
923	col_count_nflushes_ps.uint64_val =
924	    rate_per_second(col_count_nflushes.uint64_val, uptime);
925	emitter_table_row(emitter, &alloc_count_row);
926
927	emitter_row_t mem_count_row;
928	emitter_row_init(&mem_count_row);
929
930	emitter_col_t mem_count_title;
931	emitter_col_init(&mem_count_title, &mem_count_row);
932	mem_count_title.justify = emitter_justify_left;
933	mem_count_title.width = 21;
934	mem_count_title.type = emitter_type_title;
935	mem_count_title.str_val = "";
936
937	emitter_col_t mem_count_val;
938	emitter_col_init(&mem_count_val, &mem_count_row);
939	mem_count_val.justify = emitter_justify_right;
940	mem_count_val.width = 16;
941	mem_count_val.type = emitter_type_title;
942	mem_count_val.str_val = "";
943
944	emitter_table_row(emitter, &mem_count_row);
945	mem_count_val.type = emitter_type_size;
946
947	/* Active count in bytes is emitted only in table mode. */
948	mem_count_title.str_val = "active:";
949	mem_count_val.size_val = pactive * page;
950	emitter_table_row(emitter, &mem_count_row);
951
952#define GET_AND_EMIT_MEM_STAT(stat)					\
953	CTL_M2_GET("stats.arenas.0."#stat, i, &stat, size_t);		\
954	emitter_json_kv(emitter, #stat, emitter_type_size, &stat);	\
955	mem_count_title.str_val = #stat":";				\
956	mem_count_val.size_val = stat;					\
957	emitter_table_row(emitter, &mem_count_row);
958
959	GET_AND_EMIT_MEM_STAT(mapped)
960	GET_AND_EMIT_MEM_STAT(retained)
961	GET_AND_EMIT_MEM_STAT(base)
962	GET_AND_EMIT_MEM_STAT(internal)
963	GET_AND_EMIT_MEM_STAT(metadata_thp)
964	GET_AND_EMIT_MEM_STAT(tcache_bytes)
965	GET_AND_EMIT_MEM_STAT(resident)
966	GET_AND_EMIT_MEM_STAT(abandoned_vm)
967	GET_AND_EMIT_MEM_STAT(extent_avail)
968#undef GET_AND_EMIT_MEM_STAT
969
970	if (mutex) {
971		stats_arena_mutexes_print(emitter, i, uptime);
972	}
973	if (bins) {
974		stats_arena_bins_print(emitter, mutex, i, uptime);
975	}
976	if (large) {
977		stats_arena_lextents_print(emitter, i, uptime);
978	}
979	if (extents) {
980		stats_arena_extents_print(emitter, i);
981	}
982}
983
984static void
985stats_general_print(emitter_t *emitter) {
986	const char *cpv;
987	bool bv, bv2;
988	unsigned uv;
989	uint32_t u32v;
990	uint64_t u64v;
991	ssize_t ssv, ssv2;
992	size_t sv, bsz, usz, ssz, sssz, cpsz;
993
994	bsz = sizeof(bool);
995	usz = sizeof(unsigned);
996	ssz = sizeof(size_t);
997	sssz = sizeof(ssize_t);
998	cpsz = sizeof(const char *);
999
1000	CTL_GET("version", &cpv, const char *);
1001	emitter_kv(emitter, "version", "Version", emitter_type_string, &cpv);
1002
1003	/* config. */
1004	emitter_dict_begin(emitter, "config", "Build-time option settings");
1005#define CONFIG_WRITE_BOOL(name)						\
1006	do {								\
1007		CTL_GET("config."#name, &bv, bool);			\
1008		emitter_kv(emitter, #name, "config."#name,		\
1009		    emitter_type_bool, &bv);				\
1010	} while (0)
1011
1012	CONFIG_WRITE_BOOL(cache_oblivious);
1013	CONFIG_WRITE_BOOL(debug);
1014	CONFIG_WRITE_BOOL(fill);
1015	CONFIG_WRITE_BOOL(lazy_lock);
1016	emitter_kv(emitter, "malloc_conf", "config.malloc_conf",
1017	    emitter_type_string, &config_malloc_conf);
1018
1019	CONFIG_WRITE_BOOL(opt_safety_checks);
1020	CONFIG_WRITE_BOOL(prof);
1021	CONFIG_WRITE_BOOL(prof_libgcc);
1022	CONFIG_WRITE_BOOL(prof_libunwind);
1023	CONFIG_WRITE_BOOL(stats);
1024	CONFIG_WRITE_BOOL(utrace);
1025	CONFIG_WRITE_BOOL(xmalloc);
1026#undef CONFIG_WRITE_BOOL
1027	emitter_dict_end(emitter); /* Close "config" dict. */
1028
1029	/* opt. */
1030#define OPT_WRITE(name, var, size, emitter_type)			\
1031	if (je_mallctl("opt."name, (void *)&var, &size, NULL, 0) ==	\
1032	    0) {							\
1033		emitter_kv(emitter, name, "opt."name, emitter_type,	\
1034		    &var);						\
1035	}
1036
1037#define OPT_WRITE_MUTABLE(name, var1, var2, size, emitter_type,		\
1038    altname)								\
1039	if (je_mallctl("opt."name, (void *)&var1, &size, NULL, 0) ==	\
1040	    0 && je_mallctl(altname, (void *)&var2, &size, NULL, 0)	\
1041	    == 0) {							\
1042		emitter_kv_note(emitter, name, "opt."name,		\
1043		    emitter_type, &var1, altname, emitter_type,		\
1044		    &var2);						\
1045	}
1046
1047#define OPT_WRITE_BOOL(name) OPT_WRITE(name, bv, bsz, emitter_type_bool)
1048#define OPT_WRITE_BOOL_MUTABLE(name, altname)				\
1049	OPT_WRITE_MUTABLE(name, bv, bv2, bsz, emitter_type_bool, altname)
1050
1051#define OPT_WRITE_UNSIGNED(name)					\
1052	OPT_WRITE(name, uv, usz, emitter_type_unsigned)
1053
1054#define OPT_WRITE_SIZE_T(name)						\
1055	OPT_WRITE(name, sv, ssz, emitter_type_size)
1056#define OPT_WRITE_SSIZE_T(name)						\
1057	OPT_WRITE(name, ssv, sssz, emitter_type_ssize)
1058#define OPT_WRITE_SSIZE_T_MUTABLE(name, altname)			\
1059	OPT_WRITE_MUTABLE(name, ssv, ssv2, sssz, emitter_type_ssize,	\
1060	    altname)
1061
1062#define OPT_WRITE_CHAR_P(name)						\
1063	OPT_WRITE(name, cpv, cpsz, emitter_type_string)
1064
1065	emitter_dict_begin(emitter, "opt", "Run-time option settings");
1066
1067	OPT_WRITE_BOOL("abort")
1068	OPT_WRITE_BOOL("abort_conf")
1069	OPT_WRITE_BOOL("confirm_conf")
1070	OPT_WRITE_BOOL("retain")
1071	OPT_WRITE_CHAR_P("dss")
1072	OPT_WRITE_UNSIGNED("narenas")
1073	OPT_WRITE_CHAR_P("percpu_arena")
1074	OPT_WRITE_SIZE_T("oversize_threshold")
1075	OPT_WRITE_CHAR_P("metadata_thp")
1076	OPT_WRITE_BOOL_MUTABLE("background_thread", "background_thread")
1077	OPT_WRITE_SSIZE_T_MUTABLE("dirty_decay_ms", "arenas.dirty_decay_ms")
1078	OPT_WRITE_SSIZE_T_MUTABLE("muzzy_decay_ms", "arenas.muzzy_decay_ms")
1079	OPT_WRITE_SIZE_T("lg_extent_max_active_fit")
1080	OPT_WRITE_CHAR_P("junk")
1081	OPT_WRITE_BOOL("zero")
1082	OPT_WRITE_BOOL("utrace")
1083	OPT_WRITE_BOOL("xmalloc")
1084	OPT_WRITE_BOOL("tcache")
1085	OPT_WRITE_SSIZE_T("lg_tcache_max")
1086	OPT_WRITE_CHAR_P("thp")
1087	OPT_WRITE_BOOL("prof")
1088	OPT_WRITE_CHAR_P("prof_prefix")
1089	OPT_WRITE_BOOL_MUTABLE("prof_active", "prof.active")
1090	OPT_WRITE_BOOL_MUTABLE("prof_thread_active_init",
1091	    "prof.thread_active_init")
1092	OPT_WRITE_SSIZE_T_MUTABLE("lg_prof_sample", "prof.lg_sample")
1093	OPT_WRITE_BOOL("prof_accum")
1094	OPT_WRITE_SSIZE_T("lg_prof_interval")
1095	OPT_WRITE_BOOL("prof_gdump")
1096	OPT_WRITE_BOOL("prof_final")
1097	OPT_WRITE_BOOL("prof_leak")
1098	OPT_WRITE_BOOL("stats_print")
1099	OPT_WRITE_CHAR_P("stats_print_opts")
1100
1101	emitter_dict_end(emitter);
1102
1103#undef OPT_WRITE
1104#undef OPT_WRITE_MUTABLE
1105#undef OPT_WRITE_BOOL
1106#undef OPT_WRITE_BOOL_MUTABLE
1107#undef OPT_WRITE_UNSIGNED
1108#undef OPT_WRITE_SSIZE_T
1109#undef OPT_WRITE_SSIZE_T_MUTABLE
1110#undef OPT_WRITE_CHAR_P
1111
1112	/* prof. */
1113	if (config_prof) {
1114		emitter_dict_begin(emitter, "prof", "Profiling settings");
1115
1116		CTL_GET("prof.thread_active_init", &bv, bool);
1117		emitter_kv(emitter, "thread_active_init",
1118		    "prof.thread_active_init", emitter_type_bool, &bv);
1119
1120		CTL_GET("prof.active", &bv, bool);
1121		emitter_kv(emitter, "active", "prof.active", emitter_type_bool,
1122		    &bv);
1123
1124		CTL_GET("prof.gdump", &bv, bool);
1125		emitter_kv(emitter, "gdump", "prof.gdump", emitter_type_bool,
1126		    &bv);
1127
1128		CTL_GET("prof.interval", &u64v, uint64_t);
1129		emitter_kv(emitter, "interval", "prof.interval",
1130		    emitter_type_uint64, &u64v);
1131
1132		CTL_GET("prof.lg_sample", &ssv, ssize_t);
1133		emitter_kv(emitter, "lg_sample", "prof.lg_sample",
1134		    emitter_type_ssize, &ssv);
1135
1136		emitter_dict_end(emitter); /* Close "prof". */
1137	}
1138
1139	/* arenas. */
1140	/*
1141	 * The json output sticks arena info into an "arenas" dict; the table
1142	 * output puts them at the top-level.
1143	 */
1144	emitter_json_object_kv_begin(emitter, "arenas");
1145
1146	CTL_GET("arenas.narenas", &uv, unsigned);
1147	emitter_kv(emitter, "narenas", "Arenas", emitter_type_unsigned, &uv);
1148
1149	/*
1150	 * Decay settings are emitted only in json mode; in table mode, they're
1151	 * emitted as notes with the opt output, above.
1152	 */
1153	CTL_GET("arenas.dirty_decay_ms", &ssv, ssize_t);
1154	emitter_json_kv(emitter, "dirty_decay_ms", emitter_type_ssize, &ssv);
1155
1156	CTL_GET("arenas.muzzy_decay_ms", &ssv, ssize_t);
1157	emitter_json_kv(emitter, "muzzy_decay_ms", emitter_type_ssize, &ssv);
1158
1159	CTL_GET("arenas.quantum", &sv, size_t);
1160	emitter_kv(emitter, "quantum", "Quantum size", emitter_type_size, &sv);
1161
1162	CTL_GET("arenas.page", &sv, size_t);
1163	emitter_kv(emitter, "page", "Page size", emitter_type_size, &sv);
1164
1165	if (je_mallctl("arenas.tcache_max", (void *)&sv, &ssz, NULL, 0) == 0) {
1166		emitter_kv(emitter, "tcache_max",
1167		    "Maximum thread-cached size class", emitter_type_size, &sv);
1168	}
1169
1170	unsigned nbins;
1171	CTL_GET("arenas.nbins", &nbins, unsigned);
1172	emitter_kv(emitter, "nbins", "Number of bin size classes",
1173	    emitter_type_unsigned, &nbins);
1174
1175	unsigned nhbins;
1176	CTL_GET("arenas.nhbins", &nhbins, unsigned);
1177	emitter_kv(emitter, "nhbins", "Number of thread-cache bin size classes",
1178	    emitter_type_unsigned, &nhbins);
1179
1180	/*
1181	 * We do enough mallctls in a loop that we actually want to omit them
1182	 * (not just omit the printing).
1183	 */
1184	if (emitter->output == emitter_output_json) {
1185		emitter_json_array_kv_begin(emitter, "bin");
1186		for (unsigned i = 0; i < nbins; i++) {
1187			emitter_json_object_begin(emitter);
1188
1189			CTL_M2_GET("arenas.bin.0.size", i, &sv, size_t);
1190			emitter_json_kv(emitter, "size", emitter_type_size,
1191			    &sv);
1192
1193			CTL_M2_GET("arenas.bin.0.nregs", i, &u32v, uint32_t);
1194			emitter_json_kv(emitter, "nregs", emitter_type_uint32,
1195			    &u32v);
1196
1197			CTL_M2_GET("arenas.bin.0.slab_size", i, &sv, size_t);
1198			emitter_json_kv(emitter, "slab_size", emitter_type_size,
1199			    &sv);
1200
1201			CTL_M2_GET("arenas.bin.0.nshards", i, &u32v, uint32_t);
1202			emitter_json_kv(emitter, "nshards", emitter_type_uint32,
1203			    &u32v);
1204
1205			emitter_json_object_end(emitter);
1206		}
1207		emitter_json_array_end(emitter); /* Close "bin". */
1208	}
1209
1210	unsigned nlextents;
1211	CTL_GET("arenas.nlextents", &nlextents, unsigned);
1212	emitter_kv(emitter, "nlextents", "Number of large size classes",
1213	    emitter_type_unsigned, &nlextents);
1214
1215	if (emitter->output == emitter_output_json) {
1216		emitter_json_array_kv_begin(emitter, "lextent");
1217		for (unsigned i = 0; i < nlextents; i++) {
1218			emitter_json_object_begin(emitter);
1219
1220			CTL_M2_GET("arenas.lextent.0.size", i, &sv, size_t);
1221			emitter_json_kv(emitter, "size", emitter_type_size,
1222			    &sv);
1223
1224			emitter_json_object_end(emitter);
1225		}
1226		emitter_json_array_end(emitter); /* Close "lextent". */
1227	}
1228
1229	emitter_json_object_end(emitter); /* Close "arenas" */
1230}
1231
1232static void
1233stats_print_helper(emitter_t *emitter, bool merged, bool destroyed,
1234    bool unmerged, bool bins, bool large, bool mutex, bool extents) {
1235	/*
1236	 * These should be deleted.  We keep them around for a while, to aid in
1237	 * the transition to the emitter code.
1238	 */
1239	size_t allocated, active, metadata, metadata_thp, resident, mapped,
1240	    retained;
1241	size_t num_background_threads;
1242	uint64_t background_thread_num_runs, background_thread_run_interval;
1243
1244	CTL_GET("stats.allocated", &allocated, size_t);
1245	CTL_GET("stats.active", &active, size_t);
1246	CTL_GET("stats.metadata", &metadata, size_t);
1247	CTL_GET("stats.metadata_thp", &metadata_thp, size_t);
1248	CTL_GET("stats.resident", &resident, size_t);
1249	CTL_GET("stats.mapped", &mapped, size_t);
1250	CTL_GET("stats.retained", &retained, size_t);
1251
1252	if (have_background_thread) {
1253		CTL_GET("stats.background_thread.num_threads",
1254		    &num_background_threads, size_t);
1255		CTL_GET("stats.background_thread.num_runs",
1256		    &background_thread_num_runs, uint64_t);
1257		CTL_GET("stats.background_thread.run_interval",
1258		    &background_thread_run_interval, uint64_t);
1259	} else {
1260		num_background_threads = 0;
1261		background_thread_num_runs = 0;
1262		background_thread_run_interval = 0;
1263	}
1264
1265	/* Generic global stats. */
1266	emitter_json_object_kv_begin(emitter, "stats");
1267	emitter_json_kv(emitter, "allocated", emitter_type_size, &allocated);
1268	emitter_json_kv(emitter, "active", emitter_type_size, &active);
1269	emitter_json_kv(emitter, "metadata", emitter_type_size, &metadata);
1270	emitter_json_kv(emitter, "metadata_thp", emitter_type_size,
1271	    &metadata_thp);
1272	emitter_json_kv(emitter, "resident", emitter_type_size, &resident);
1273	emitter_json_kv(emitter, "mapped", emitter_type_size, &mapped);
1274	emitter_json_kv(emitter, "retained", emitter_type_size, &retained);
1275
1276	emitter_table_printf(emitter, "Allocated: %zu, active: %zu, "
1277	    "metadata: %zu (n_thp %zu), resident: %zu, mapped: %zu, "
1278	    "retained: %zu\n", allocated, active, metadata, metadata_thp,
1279	    resident, mapped, retained);
1280
1281	/* Background thread stats. */
1282	emitter_json_object_kv_begin(emitter, "background_thread");
1283	emitter_json_kv(emitter, "num_threads", emitter_type_size,
1284	    &num_background_threads);
1285	emitter_json_kv(emitter, "num_runs", emitter_type_uint64,
1286	    &background_thread_num_runs);
1287	emitter_json_kv(emitter, "run_interval", emitter_type_uint64,
1288	    &background_thread_run_interval);
1289	emitter_json_object_end(emitter); /* Close "background_thread". */
1290
1291	emitter_table_printf(emitter, "Background threads: %zu, "
1292	    "num_runs: %"FMTu64", run_interval: %"FMTu64" ns\n",
1293	    num_background_threads, background_thread_num_runs,
1294	    background_thread_run_interval);
1295
1296	if (mutex) {
1297		emitter_row_t row;
1298		emitter_col_t name;
1299		emitter_col_t col64[mutex_prof_num_uint64_t_counters];
1300		emitter_col_t col32[mutex_prof_num_uint32_t_counters];
1301		uint64_t uptime;
1302
1303		emitter_row_init(&row);
1304		mutex_stats_init_cols(&row, "", &name, col64, col32);
1305
1306		emitter_table_row(emitter, &row);
1307		emitter_json_object_kv_begin(emitter, "mutexes");
1308
1309		CTL_M2_GET("stats.arenas.0.uptime", 0, &uptime, uint64_t);
1310
1311		for (int i = 0; i < mutex_prof_num_global_mutexes; i++) {
1312			mutex_stats_read_global(global_mutex_names[i], &name,
1313			    col64, col32, uptime);
1314			emitter_json_object_kv_begin(emitter, global_mutex_names[i]);
1315			mutex_stats_emit(emitter, &row, col64, col32);
1316			emitter_json_object_end(emitter);
1317		}
1318
1319		emitter_json_object_end(emitter); /* Close "mutexes". */
1320	}
1321
1322	emitter_json_object_end(emitter); /* Close "stats". */
1323
1324	if (merged || destroyed || unmerged) {
1325		unsigned narenas;
1326
1327		emitter_json_object_kv_begin(emitter, "stats.arenas");
1328
1329		CTL_GET("arenas.narenas", &narenas, unsigned);
1330		size_t mib[3];
1331		size_t miblen = sizeof(mib) / sizeof(size_t);
1332		size_t sz;
1333		VARIABLE_ARRAY(bool, initialized, narenas);
1334		bool destroyed_initialized;
1335		unsigned i, j, ninitialized;
1336
1337		xmallctlnametomib("arena.0.initialized", mib, &miblen);
1338		for (i = ninitialized = 0; i < narenas; i++) {
1339			mib[1] = i;
1340			sz = sizeof(bool);
1341			xmallctlbymib(mib, miblen, &initialized[i], &sz,
1342			    NULL, 0);
1343			if (initialized[i]) {
1344				ninitialized++;
1345			}
1346		}
1347		mib[1] = MALLCTL_ARENAS_DESTROYED;
1348		sz = sizeof(bool);
1349		xmallctlbymib(mib, miblen, &destroyed_initialized, &sz,
1350		    NULL, 0);
1351
1352		/* Merged stats. */
1353		if (merged && (ninitialized > 1 || !unmerged)) {
1354			/* Print merged arena stats. */
1355			emitter_table_printf(emitter, "Merged arenas stats:\n");
1356			emitter_json_object_kv_begin(emitter, "merged");
1357			stats_arena_print(emitter, MALLCTL_ARENAS_ALL, bins,
1358			    large, mutex, extents);
1359			emitter_json_object_end(emitter); /* Close "merged". */
1360		}
1361
1362		/* Destroyed stats. */
1363		if (destroyed_initialized && destroyed) {
1364			/* Print destroyed arena stats. */
1365			emitter_table_printf(emitter,
1366			    "Destroyed arenas stats:\n");
1367			emitter_json_object_kv_begin(emitter, "destroyed");
1368			stats_arena_print(emitter, MALLCTL_ARENAS_DESTROYED,
1369			    bins, large, mutex, extents);
1370			emitter_json_object_end(emitter); /* Close "destroyed". */
1371		}
1372
1373		/* Unmerged stats. */
1374		if (unmerged) {
1375			for (i = j = 0; i < narenas; i++) {
1376				if (initialized[i]) {
1377					char arena_ind_str[20];
1378					malloc_snprintf(arena_ind_str,
1379					    sizeof(arena_ind_str), "%u", i);
1380					emitter_json_object_kv_begin(emitter,
1381					    arena_ind_str);
1382					emitter_table_printf(emitter,
1383					    "arenas[%s]:\n", arena_ind_str);
1384					stats_arena_print(emitter, i, bins,
1385					    large, mutex, extents);
1386					/* Close "<arena-ind>". */
1387					emitter_json_object_end(emitter);
1388				}
1389			}
1390		}
1391		emitter_json_object_end(emitter); /* Close "stats.arenas". */
1392	}
1393}
1394
1395void
1396stats_print(void (*write_cb)(void *, const char *), void *cbopaque,
1397    const char *opts) {
1398	int err;
1399	uint64_t epoch;
1400	size_t u64sz;
1401#define OPTION(o, v, d, s) bool v = d;
1402	STATS_PRINT_OPTIONS
1403#undef OPTION
1404
1405	/*
1406	 * Refresh stats, in case mallctl() was called by the application.
1407	 *
1408	 * Check for OOM here, since refreshing the ctl cache can trigger
1409	 * allocation.  In practice, none of the subsequent mallctl()-related
1410	 * calls in this function will cause OOM if this one succeeds.
1411	 * */
1412	epoch = 1;
1413	u64sz = sizeof(uint64_t);
1414	err = je_mallctl("epoch", (void *)&epoch, &u64sz, (void *)&epoch,
1415	    sizeof(uint64_t));
1416	if (err != 0) {
1417		if (err == EAGAIN) {
1418			malloc_write("<jemalloc>: Memory allocation failure in "
1419			    "mallctl(\"epoch\", ...)\n");
1420			return;
1421		}
1422		malloc_write("<jemalloc>: Failure in mallctl(\"epoch\", "
1423		    "...)\n");
1424		abort();
1425	}
1426
1427	if (opts != NULL) {
1428		for (unsigned i = 0; opts[i] != '\0'; i++) {
1429			switch (opts[i]) {
1430#define OPTION(o, v, d, s) case o: v = s; break;
1431				STATS_PRINT_OPTIONS
1432#undef OPTION
1433			default:;
1434			}
1435		}
1436	}
1437
1438	emitter_t emitter;
1439	emitter_init(&emitter,
1440	    json ? emitter_output_json : emitter_output_table, write_cb,
1441	    cbopaque);
1442	emitter_begin(&emitter);
1443	emitter_table_printf(&emitter, "___ Begin jemalloc statistics ___\n");
1444	emitter_json_object_kv_begin(&emitter, "jemalloc");
1445
1446	if (general) {
1447		stats_general_print(&emitter);
1448	}
1449	if (config_stats) {
1450		stats_print_helper(&emitter, merged, destroyed, unmerged,
1451		    bins, large, mutex, extents);
1452	}
1453
1454	emitter_json_object_end(&emitter); /* Closes the "jemalloc" dict. */
1455	emitter_table_printf(&emitter, "--- End jemalloc statistics ---\n");
1456	emitter_end(&emitter);
1457}
1458