diff options
author | Andy Wingo <wingo@pobox.com> | 2018-01-16 16:27:25 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-01-16 16:43:25 +0100 |
commit | 8573d94404c1d7803524a903b5bf437c675fc9cf (patch) | |
tree | 69a04ef5b7cfc6a3453e1ba1a6d1a6cc502c89b1 /module/language/cps/compile-bytecode.scm | |
parent | 42837e9108504aba0f7e7a062e52547f1405a099 (diff) | |
download | guile-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.scm | 63 |
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)))) |