summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-16 16:27:25 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-16 16:43:25 +0100
commit8573d94404c1d7803524a903b5bf437c675fc9cf (patch)
tree69a04ef5b7cfc6a3453e1ba1a6d1a6cc502c89b1 /module/language/cps/compile-bytecode.scm
parent42837e9108504aba0f7e7a062e52547f1405a099 (diff)
downloadguile-8573d94404c1d7803524a903b5bf437c675fc9cf.tar.gz
Remove optimizer and backend support for bv-u8-ref et al
* module/language/cps/compile-bytecode.scm (compile-function): * module/language/cps/effects-analysis.scm: * module/language/cps/slot-allocation.scm (compute-var-representations): * module/language/cps/types.scm: * module/system/vm/assembler.scm: Remove optimizer and backend support for bv- ops.
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm63
1 files changed, 0 insertions, 63 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index b68f90a67..0034cc199 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -240,38 +240,6 @@
(emit-load-s64 asm (from-sp dst) val))
(($ $primcall 's64->scm #f (src))
(emit-s64->scm asm (from-sp dst) (from-sp (slot src))))
- (($ $primcall 'bv-length #f (bv))
- (emit-bv-length asm (from-sp dst) (from-sp (slot bv))))
- (($ $primcall 'bv-u8-ref #f (bv idx))
- (emit-bv-u8-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-s8-ref #f (bv idx))
- (emit-bv-s8-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-u16-ref #f (bv idx))
- (emit-bv-u16-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-s16-ref #f (bv idx))
- (emit-bv-s16-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-u32-ref #f (bv idx val))
- (emit-bv-u32-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-s32-ref #f (bv idx val))
- (emit-bv-s32-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-u64-ref #f (bv idx val))
- (emit-bv-u64-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-s64-ref #f (bv idx val))
- (emit-bv-s64-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-f32-ref #f (bv idx val))
- (emit-bv-f32-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
- (($ $primcall 'bv-f64-ref #f (bv idx val))
- (emit-bv-f64-ref asm (from-sp dst) (from-sp (slot bv))
- (from-sp (slot idx))))
(($ $primcall 'u8-ref ann (obj ptr idx))
(emit-u8-ref asm (from-sp dst) (from-sp (slot ptr))
@@ -373,37 +341,6 @@
(($ $primcall 'wind #f (winder unwinder))
(emit-wind asm (from-sp (slot winder)) (from-sp (slot unwinder))))
- (($ $primcall 'bv-u8-set! #f (bv idx val))
- (emit-bv-u8-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-s8-set! #f (bv idx val))
- (emit-bv-s8-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-u16-set! #f (bv idx val))
- (emit-bv-u16-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-s16-set! #f (bv idx val))
- (emit-bv-s16-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-u32-set! #f (bv idx val))
- (emit-bv-u32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-s32-set! #f (bv idx val))
- (emit-bv-s32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-u64-set! #f (bv idx val))
- (emit-bv-u64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-s64-set! #f (bv idx val))
- (emit-bv-s64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-f32-set! #f (bv idx val))
- (emit-bv-f32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
- (($ $primcall 'bv-f64-set! #f (bv idx val))
- (emit-bv-f64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
- (from-sp (slot val))))
-
(($ $primcall 'u8-set! ann (obj ptr idx val))
(emit-u8-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
(from-sp (slot val))))