[Guile-commits] 07/07: Remove unneeded assembly shuffle routines.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 3f736c478182665f05d57ef2624f14f1f460c49d
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 22 07:55:06 2018 +0100

    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 33645a2..4ac4353 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))