summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-07 16:14:09 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-07 16:14:09 +0100
commit6e100c9ba67bc6c30426dd08a14fb89c7a4b1a54 (patch)
tree9c729fdcaa7e62e2366cf47e0d1746884cffb03f /module/language/cps/compile-bytecode.scm
parent06cf66d6cc56572902b5e70d3c7daff76606d550 (diff)
downloadguile-6e100c9ba67bc6c30426dd08a14fb89c7a4b1a54.tar.gz
CPS pass now expects exploded vector primitives
* module/language/cps/closure-conversion.scm (convert-one): Reify make-vector inline, without field initialization. * module/language/cps/cse.scm (compute-equivalent-subexpressions): * module/language/cps/dce.scm (compute-live-code): * module/language/cps/effects-analysis.scm: * module/language/cps/reify-primitives.scm (reify-primitives): * module/language/cps/slot-allocation.scm (compute-var-representations): * module/language/cps/specialize-primcalls.scm (specialize-primcalls): * module/language/cps/types.scm: * module/language/cps/compile-bytecode.scm (compile-function): Remove cases for make-vector, vector-ref, etc. * module/system/vm/assembler.scm: Remove make-vector, vector-ref etc exports.
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm18
1 files changed, 0 insertions, 18 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 79459cf0e..ec93eaa5c 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -175,18 +175,6 @@
idx))
(($ $primcall 'free-ref idx (closure))
(emit-free-ref asm (from-sp dst) (from-sp (slot closure)) idx))
- (($ $primcall 'vector-ref #f (vector index))
- (emit-vector-ref asm (from-sp dst) (from-sp (slot vector))
- (from-sp (slot index))))
- (($ $primcall 'make-vector #f (length init))
- (emit-make-vector asm (from-sp dst) (from-sp (slot length))
- (from-sp (slot init))))
- (($ $primcall 'make-vector/immediate length (init))
- (emit-make-vector/immediate asm
- (from-sp dst) length (from-sp (slot init))))
- (($ $primcall 'vector-ref/immediate index (vector))
- (emit-vector-ref/immediate asm
- (from-sp dst) (from-sp (slot vector)) index))
(($ $primcall 'allocate-struct #f (vtable nfields))
(emit-allocate-struct asm (from-sp dst) (from-sp (slot vtable))
(from-sp (slot nfields))))
@@ -336,12 +324,6 @@
(($ $primcall 'struct-set!/immediate idx (struct value))
(emit-struct-set!/immediate asm (from-sp (slot struct)) idx
(from-sp (slot value))))
- (($ $primcall 'vector-set! #f (vector index value))
- (emit-vector-set! asm (from-sp (slot vector)) (from-sp (slot index))
- (from-sp (slot value))))
- (($ $primcall 'vector-set!/immediate index (vector value))
- (emit-vector-set!/immediate asm (from-sp (slot vector))
- index (from-sp (slot value))))
(($ $primcall 'string-set! #f (string index char))
(emit-string-set! asm (from-sp (slot string)) (from-sp (slot index))
(from-sp (slot char))))