Profile using cumulative memory

Author: obround

eval/run.rkt

@@ -59,13 +59,13 @@
       (match hint
         [#t ; instruction should be reevaluated
          (define start-time (current-inexact-milliseconds))
-         (define start-memory (current-memory-use #f))
+         (define start-memory (current-memory-use 'cumulative))
          (define res
            (parameterize ([bf-precision precision])
              (apply-instruction instr vregs)))
          (define name (object-name (car instr)))
          (define time (- (current-inexact-milliseconds) start-time))
-         (define memory (max 0 (- (current-memory-use #f) start-memory)))
+         (define memory (- (current-memory-use 'cumulative) start-memory))
          (rival-machine-record machine name n precision time memory iter)
          res]
         [(? integer? _) (vector-ref vregs (list-ref instr hint))] ; result is known
@@ -117,13 +117,13 @@
 (define (rival-machine-adjust machine vhint)
   (define iter (rival-machine-iteration machine))
   (let ([start-time (current-inexact-milliseconds)]
-        [start-memory (current-memory-use #f)])
+        [start-memory (current-memory-use 'cumulative)])
     (unless (zero? iter)
       (backward-pass machine vhint))
     (rival-machine-record machine
                           'adjust
                           -1
                           (* iter 1000)
                           (- (current-inexact-milliseconds) start-time)
-                          (max 0 (- (current-memory-use #f) start-memory))
+                          (- (current-memory-use 'cumulative) start-memory)
                           iter)))

infra/run-baseline.rkt

@@ -229,7 +229,7 @@
 
 (define (baseline-machine-adjust machine)
   (let ([start-time (current-inexact-milliseconds)]
-        [start-memory (current-memory-use #f)])
+        [start-memory (current-memory-use 'cumulative)])
     (define new-prec (bf-precision))
     (set-baseline-machine-precision! machine new-prec)
     (vector-fill! (baseline-machine-precisions machine) new-prec)
@@ -289,7 +289,7 @@
                              -1
                              (* iter 1000)
                              (- (current-inexact-milliseconds) start-time)
-                             (max 0 (- (current-memory-use #f) start-memory))
+                             (- (current-memory-use 'cumulative) start-memory)
                              iter)))
 
 (define (drop-self-pointers tail-regs n)
@@ -323,13 +323,13 @@
       (match hint
         [#t
          (define start-time (current-inexact-milliseconds))
-         (define start-memory (current-memory-use #f))
+         (define start-memory (current-memory-use 'cumulative))
          (define res
            (parameterize ([bf-precision precision])
              (apply-instruction instr vregs)))
          (define name (object-name (car instr)))
          (define time (- (current-inexact-milliseconds) start-time))
-         (define memory (max 0 (- (current-memory-use #f) start-memory)))
+         (define memory (- (current-memory-use 'cumulative) start-memory))
          (baseline-machine-record machine name n precision time memory iter)
          res]
         [(? integer? _) (vector-ref vregs (list-ref instr hint))]