From 247c985702d666728996fca2a2cbea6f7dc7ef4e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Apr 2019 07:45:49 -0600 Subject: [PATCH] cs: faster `(current-memory-use 'cumulative)` A slow `(current-memory-use 'cumulative)` could causes misleading results in `PLT_EXPANDER_TIMES` output for frequent actions. --- racket/src/cs/rumble/memory.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/memory.ss b/racket/src/cs/rumble/memory.ss index 034be584cb..a2a463fc1b 100644 --- a/racket/src/cs/rumble/memory.ss +++ b/racket/src/cs/rumble/memory.ss @@ -102,7 +102,7 @@ [(mode) (cond [(not mode) (bytes-allocated)] - [(eq? mode 'cumulative) (sstats-bytes (statistics))] + [(eq? mode 'cumulative) (+ (bytes-deallocated) (bytes-allocated))] ;; must be a custodian; hook is reposnsible for complaining if not [else (custodian-memory-use mode (bytes-allocated))])]))