diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-10 16:50:06 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-11 12:20:25 -0800 |
| commit | 7517da1646fc30faaa9ee1c969cfa35ae1a17423 (patch) | |
| tree | c08a6bd2ca3cbdde2efdf891e949706faaf2aaaf /src | |
| parent | 7e14e243565e814ddd524c8d09454719dc89c6d8 (diff) | |
altos/scheme: Use 64-bit ints to track memory allocation stats
These are only collected for debug purposes, but can get quite large
if the interpreter runs for a while.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/scheme/ao_scheme.h | 6 | ||||
| -rw-r--r-- | src/scheme/ao_scheme_mem.c | 6 | ||||
| -rw-r--r-- | src/scheme/test/ao_scheme_test.c | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h index 89616617..4655b2a9 100644 --- a/src/scheme/ao_scheme.h +++ b/src/scheme/ao_scheme.h @@ -522,9 +522,9 @@ ao_scheme_poly_vector(ao_poly poly) /* memory functions */ -extern int ao_scheme_collects[2]; -extern int ao_scheme_freed[2]; -extern int ao_scheme_loops[2]; +extern uint64_t ao_scheme_collects[2]; +extern uint64_t ao_scheme_freed[2]; +extern uint64_t ao_scheme_loops[2]; /* returns 1 if the object was already marked */ int diff --git a/src/scheme/ao_scheme_mem.c b/src/scheme/ao_scheme_mem.c index fe4bc4f5..45d4de98 100644 --- a/src/scheme/ao_scheme_mem.c +++ b/src/scheme/ao_scheme_mem.c @@ -483,9 +483,9 @@ ao_scheme_poly_mark_ref(ao_poly *p, uint8_t do_note_cons) } #if DBG_MEM_STATS -int ao_scheme_collects[2]; -int ao_scheme_freed[2]; -int ao_scheme_loops[2]; +uint64_t ao_scheme_collects[2]; +uint64_t ao_scheme_freed[2]; +uint64_t ao_scheme_loops[2]; #endif int ao_scheme_last_top; diff --git a/src/scheme/test/ao_scheme_test.c b/src/scheme/test/ao_scheme_test.c index 686e7169..0c77d8d5 100644 --- a/src/scheme/test/ao_scheme_test.c +++ b/src/scheme/test/ao_scheme_test.c @@ -107,15 +107,15 @@ main (int argc, char **argv) } ao_scheme_read_eval_print(); - printf ("collects: full: %d incremental %d\n", + printf ("collects: full: %lu incremental %lu\n", ao_scheme_collects[AO_SCHEME_COLLECT_FULL], ao_scheme_collects[AO_SCHEME_COLLECT_INCREMENTAL]); - printf ("freed: full %d incremental %d\n", + printf ("freed: full %lu incremental %lu\n", ao_scheme_freed[AO_SCHEME_COLLECT_FULL], ao_scheme_freed[AO_SCHEME_COLLECT_INCREMENTAL]); - printf("loops: full %d incremental %d\n", + printf("loops: full %lu incremental %lu\n", ao_scheme_loops[AO_SCHEME_COLLECT_FULL], ao_scheme_loops[AO_SCHEME_COLLECT_INCREMENTAL]); |