From 06aeb59448300822819543d1d80e0b45e55bb49a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 26 Nov 2009 15:07:16 +0000 Subject: [PATCH] add unsafe-f64vector-{ref,set!} and improve JIT to inline arithmetic ops with more than 2 arguments svn: r17068 original commit: 61dd4ca0b9a66e1982856cb7b8447fac9efdf23b --- collects/compiler/decompile.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss index 8729a983b1..0ebc8b28a6 100644 --- a/collects/compiler/decompile.ss +++ b/collects/compiler/decompile.ss @@ -321,13 +321,15 @@ list list* vector vector-immutable box))] [(3) (memq (car a) '(eq? = <= < >= > bitwise-bit-set? char=? - + - * / quotient remainder min max bitwise-and bitwise-ior + + - * / quotient remainder min max bitwise-and bitwise-ior bitwise-xor arithmetic-shift vector-ref string-ref bytes-ref set-mcar! set-mcdr! cons mcons list list* vector vector-immutable))] [(4) (memq (car a) '(vector-set! string-set! bytes-set! - list list* vector vector-immutable))] - [else (memq (car a) '(list list* vector vector-immutable))])) + list list* vector vector-immutable + + - * / min max bitwise-and bitwise-ior bitwise-xor))] + [else (memq (car a) '(list list* vector vector-immutable + + - * / min max bitwise-and bitwise-ior bitwise-xor))])) (cons '#%in a) a))