Noticeable speed boost from avoiding gratuitous out-of-lining of continuations.
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Mon, 23 Jul 2018 22:34:26 +0100
changeset 421 46b869aa09d1
parent 420 a2e3a40b28fa
child 422 de67b7cb9451
Noticeable speed boost from avoiding gratuitous out-of-lining of continuations.
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 23 22:15:24 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 23 22:34:26 2018 +0100
@@ -165,7 +165,7 @@
 (define (gen-send-k c ip stack)
   (define result (gensym 'result))
   `(case-lambda [() ,(gen-build-jit-context c ip stack)]
-                [(,result) ,(gen-jump-to-label c ip (cons result stack))]))
+                [(,result) ,(gen-code c ip (cons result stack))]))
 
 (define (gen-fresh-temps method)
   (match (slotAt method 4)