diff options
author | Andy Wingo <wingo@pobox.com> | 2018-01-07 16:14:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-01-07 16:14:09 +0100 |
commit | 6e100c9ba67bc6c30426dd08a14fb89c7a4b1a54 (patch) | |
tree | 9c729fdcaa7e62e2366cf47e0d1746884cffb03f /module/language/cps/compile-bytecode.scm | |
parent | 06cf66d6cc56572902b5e70d3c7daff76606d550 (diff) | |
download | guile-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.scm | 18 |
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)))) |