From 3f736c478182665f05d57ef2624f14f1f460c49d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 22 Jan 2018 07:55:06 +0100 Subject: [PATCH] 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. --- module/system/vm/assembler.scm | 17 ----------------- 1 file changed, 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))