summaryrefslogtreecommitdiff
path: root/module/system/vm/assembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-22 07:55:06 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-22 07:55:06 +0100
commit3f736c478182665f05d57ef2624f14f1f460c49d (patch)
treed8d2396ccdec4702a17fa1e782953dca53186f5d /module/system/vm/assembler.scm
parentb09bbfe3c082548347125c0da52104c5bb8049e3 (diff)
downloadguile-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.scm17
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))