diff options
author | Andy Wingo <wingo@pobox.com> | 2018-01-22 07:55:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-01-22 07:55:06 +0100 |
commit | 3f736c478182665f05d57ef2624f14f1f460c49d (patch) | |
tree | d8d2396ccdec4702a17fa1e782953dca53186f5d /module/system/vm/assembler.scm | |
parent | b09bbfe3c082548347125c0da52104c5bb8049e3 (diff) | |
download | guile-3f736c478182665f05d57ef2624f14f1f460c49d.tar.gz |
Remove unneeded assembly shuffle routines.
* module/system/vm/assembler.scm (encode-X8_S12_S12-X8_C24!/shuffle)
(encode-X8_S12_S12-X8_C24<-/shuffle): Remove now-unneeded shufflers.
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 33645a28d..4ac435356 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -792,23 +792,6 @@ later by the linker." (emit-push asm a) (encode-X8_S12_S12 asm 0 0 opcode) (emit-pop asm dst)))) -(define (encode-X8_S12_S12-X8_C24!/shuffle asm a b c opcode) - (cond - ((< (logior a b) (ash 1 12)) - (encode-X8_S12_S12-X8_C24 asm a b c opcode)) - (else - (emit-push asm a) - (emit-push asm (1+ b)) - (encode-X8_S12_S12-X8_C24 asm 1 0 c opcode) - (emit-drop asm 2)))) -(define (encode-X8_S12_S12-X8_C24<-/shuffle asm dst a const opcode) - (cond - ((< (logior dst a) (ash 1 12)) - (encode-X8_S12_S12-X8_C24 asm dst a const opcode)) - (else - (emit-push asm a) - (encode-X8_S12_S12-X8_C24 asm 0 0 const opcode) - (emit-pop asm dst)))) (define (encode-X8_S12_C12!/shuffle asm a const opcode) (cond ((< a (ash 1 12)) |