info -> debug recompilation
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Mon, 23 Jul 2018 21:08:51 +0100
changeset 417 a56b893c78bf
parent 416 9be895de88d6
child 418 0e9aa45d4ba9
info -> debug recompilation
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 23 20:40:48 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 23 21:08:51 2018 +0100
@@ -571,7 +571,7 @@
   (define-values (candidate candidate-class) (recompilation-candidate vm ctx))
   (if candidate
       (recompile-method! vm candidate-class candidate)
-      (log-vm/jit/recompile-info "No recompilation candidate available?")))
+      (log-vm/jit/recompile-debug "No recompilation candidate available?")))
 
 (define (compile-method-proc compile-time-vm class method old-picmap)
   (define c (top-compilation compile-time-vm class method old-picmap))
@@ -600,7 +600,7 @@
           (set! call-counter (+ call-counter 1))
           ;; TODO: aging of call-counter by right-shifting at most once every few seconds, or so
           (when (= call-counter 1000)
-            (log-vm/jit/recompile-info "Method ~a is hot" ,(method-name method class))
+            (log-vm/jit/recompile-debug "Method ~a is hot" ,(method-name method class))
             (recompile-something vm (k))
             ;; (set! call-counter 0)
             )