suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dump-memory-stats: report bytes used for still-marshaled bytecode

Browse Source
This commit is contained in:
Matthew Flatt 2020-02-18 19:03:02 -07:00
parent 571944f868
commit 906af72f82
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
racket/src/racket/src/salloc.c
View File

@ -2318,6 +2318,15 @@ static void increment_found_counter(void *p)
} }
#endif #endif
#if MZ_PRECISE_GC
static mzlonglong code_counter = 0;
static void increment_code_counter(void *p)
{
if (((Scheme_Load_Delay *)p)->cached)
code_counter += ((Scheme_Load_Delay *)p)->size;
}
#endif
#if MZ_PRECISE_GC_TRACE #if MZ_PRECISE_GC_TRACE
static void count_struct_instance(void *p, int sz) { static void count_struct_instance(void *p, int sz) {
Scheme_Structure *s = (Scheme_Structure *)p; Scheme_Structure *s = (Scheme_Structure *)p;
@ -2850,6 +2859,11 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[])
#else #else
# ifdef MZ_PRECISE_GC # ifdef MZ_PRECISE_GC
/* Might get rreplaced by other flags: */
trace_for_tag = scheme_rt_delay_load_info;
for_each_found = increment_code_counter;
code_counter = 0;
if (c && SCHEME_SYMBOLP(p[0])) { if (c && SCHEME_SYMBOLP(p[0])) {
if (!strcmp("count", SCHEME_SYM_VAL(p[0])) if (!strcmp("count", SCHEME_SYM_VAL(p[0]))
&& (c == 2) && (c == 2)
@ -3020,8 +3034,16 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[])
# endif # endif
#endif #endif
if (!skip_summary)
scheme_console_printf("JIT-generated code: %ld\n", scheme_code_page_total); scheme_console_printf("JIT-generated code: %ld\n", scheme_code_page_total);
#ifdef MZ_PRECISE_GC
if (!skip_summary || (for_each_found == increment_code_counter)) {
scheme_console_printf("Marshaled code: %ld\n", code_counter);
}
#endif
#if MZ_PRECISE_GC_TRACE #if MZ_PRECISE_GC_TRACE
if (for_each_struct) { if (for_each_struct) {
scheme_console_printf("Begin Struct\n"); scheme_console_printf("Begin Struct\n");