cs: faster (current-memory-use 'cumulative)

A slow `(current-memory-use 'cumulative)` could causes misleading
results in `PLT_EXPANDER_TIMES` output for frequent actions.
This commit is contained in:
Matthew Flatt 2019-04-09 07:45:49 -06:00
parent d61f56c77f
commit 247c985702

View File

@ -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))])]))