shithub: sl

Info  •  Files  •  Log  •  Branches

vm-stats: add gc handles count

--- a/src/flisp.c

+++ b/src/flisp.c

@@ -1258,9 +1258,10 @@

 	ios_printf(ios_stderr, "heap free      %10"PRIuPTR"\n", (uintptr_t)(FL(lim)-FL(curheap)));

 	ios_printf(ios_stderr, "heap used      %10"PRIuPTR"\n", (uintptr_t)(FL(curheap)-FL(fromspace)));

 	ios_printf(ios_stderr, "stack          %10"PRIu64"\n", (uint64_t)FL(nstack)*sizeof(value_t));

-	ios_printf(ios_stderr, "gc calls       %10"PRIu64"\n", (uint64_t)FL(gccalls));

 	ios_printf(ios_stderr, "finalizers     %10"PRIu32"\n", (uint32_t)FL(nfinalizers));

 	ios_printf(ios_stderr, "max finalizers %10"PRIu32"\n", (uint32_t)FL(maxfinalizers));

+	ios_printf(ios_stderr, "gc handles     %10"PRIu32"\n", (uint32_t)FL(ngchandles));

+	ios_printf(ios_stderr, "gc calls       %10"PRIu64"\n", (uint64_t)FL(gccalls));

 	ios_printf(ios_stderr, "opcodes        %10d\n", N_OPCODES);

 	return FL_void;

 }