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

GC atexit: report total GC msecs

Browse Source
This commit is contained in:
Matthew Flatt 2015-03-19 10:01:10 -06:00
parent 6752534da8
commit d7cea5a1db
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
racket/src/racket/src/thread.c
View File

@ -9104,7 +9104,7 @@ static void done_with_GC()
}
#ifdef MZ_PRECISE_GC
static char *gc_num(char *nums, intptr_t v)
static char *gc_unscaled_num(char *nums, intptr_t v)
/* format a number with commas */
{
int i, j, len, clen, c, d;
@ -9112,8 +9112,6 @@ static char *gc_num(char *nums, intptr_t v)
}
i++;
v /= 1024; /* bytes => kbytes */
sprintf(nums+i, "%" PRIdPTR, v);
for (len = 0; nums[i+len]; len++) { }
clen = len + ((len + ((nums[i] == '-') ? -2 : -1)) / 3);
@ -9133,6 +9131,10 @@ static char *gc_num(char *nums, intptr_t v)
return nums + i;
}
static char *gc_num(char *nums, intptr_t v)
{
return gc_unscaled_num(nums, v/1024); /* bytes => kbytes */
}
#ifdef MZ_XFORM
END_XFORM_SKIP;
@ -9223,16 +9225,18 @@ static void log_peak_memory_use()
if (max_gc_pre_used_bytes > 0) {
logger = scheme_get_gc_logger();
if (logger && scheme_log_level_p(logger, SCHEME_LOG_DEBUG)) {
char buf[256], nums[128], *num;
char buf[256], nums[128], *num, *num2;
intptr_t buflen;
memset(nums, 0, sizeof(nums));
num = gc_num(nums, max_gc_pre_used_bytes);
num2 = gc_unscaled_num(nums, scheme_total_gc_time);
sprintf(buf,
"" PLACE_ID_FORMAT "atexit peak was %sK",
"" PLACE_ID_FORMAT "atexit peak was %sK; total %sms",
#ifdef MZ_USE_PLACES
scheme_current_place_id,
#endif
num);
num,
num2);
buflen = strlen(buf);
scheme_log_message(logger, SCHEME_LOG_DEBUG, buf, buflen, scheme_false);
/* Setting to a negative value ensures that we log the peak only once: */