suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add unsafe-f64vector-{ref,set!} and improve JIT to inline arithmetic ops with more than 2 arguments

Browse Source 
svn: r17068

original commit: 61dd4ca0b9
This commit is contained in:
Matthew Flatt 2009-11-26 15:07:16 +00:00
parent 4e9963b06b
commit 06aeb59448
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/compiler/decompile.ss
View File

@ -321,13 +321,15 @@
list list* vector vector-immutable box))] list list* vector vector-immutable box))]
[(3) (memq (car a) '(eq? = <= < >= > [(3) (memq (car a) '(eq? = <= < >= >
bitwise-bit-set? char=? 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 arithmetic-shift vector-ref string-ref bytes-ref
set-mcar! set-mcdr! cons mcons set-mcar! set-mcdr! cons mcons
list list* vector vector-immutable))] list list* vector vector-immutable))]
[(4) (memq (car a) '(vector-set! string-set! bytes-set! [(4) (memq (car a) '(vector-set! string-set! bytes-set!
list list* vector vector-immutable))] list list* vector vector-immutable
[else (memq (car a) '(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) (cons '#%in a)
a)) a))