diff options
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)))) |