mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-16 18:50:23 +02:00
Code Activity

API-ify gc_print_stats; add semi-inline.h

Browse source
This commit is contained in:
Andy Wingo 2022-08-15 18:16:32 +02:00
parent a00c83878e
commit 8f2f4f7c69
7 changed files with 71 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

4
quads.c
View file

@ -149,8 +149,6 @@ int main(int argc, char *argv[]) {
PUSH_HANDLE(mut, quad);
print_start_gc_stats(heap);
printf("Making quad tree of depth %zu (%zu nodes). Total size %.3fGB.\n",
depth, nquads, (nquads * sizeof(Quad)) / 1e9);
unsigned long start = current_time();
@ -176,7 +174,7 @@ int main(int argc, char *argv[]) {
print_elapsed("allocation loop", garbage_start);
print_elapsed("quads test", gc_start);
print_end_gc_stats(heap);
gc_print_stats(heap);
POP_HANDLE(mut);
return 0;