diff options
author | Andy Wingo <wingo@pobox.com> | 2019-08-18 22:57:10 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-08-18 22:57:10 +0200 |
commit | 2751096c4212f7851072e5b9a7f991a7749e3225 (patch) | |
tree | da06c25052eaaac033840b5929d9d42f4367bd02 /module/system/vm/assembler.scm | |
parent | 6cf2fc1b9bb6f73d7de10d2653e96d6967509dc0 (diff) | |
download | guile-2751096c4212f7851072e5b9a7f991a7749e3225.tar.gz |
Define missing shuffling assembler for string-set! et al
* module/system/vm/assembler.scm (encode-X8_S8_S8_S8-C32!/shuffle):
Define shuffling assembler for this instruction type.
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index d8a84dda3..ab234525e 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -887,6 +887,16 @@ later by the linker." (emit-push asm a) (encode-X8_S8_C8_S8 asm 0 const 0 opcode) (emit-pop asm dst)))) +(define (encode-X8_S8_S8_S8-C32!/shuffle asm a b c const opcode) + (cond + ((< (logior a b c) (ash 1 8)) + (encode-X8_S8_S8_S8-C32 asm a b c const opcode)) + (else + (emit-push asm a) + (emit-push asm (+ b 1)) + (emit-push asm (+ c 2)) + (encode-X8_S8_S8_S8-C32 asm 2 1 0 const opcode) + (emit-drop asm 3)))) (define (encode-X8_S8_S8_S8-C32<-/shuffle asm dst a b c32 opcode) (cond ((< (logior dst a b) (ash 1 8)) @@ -950,6 +960,7 @@ later by the linker." (('! 'X8_S8_S8_S8) #'encode-X8_S8_S8_S8!/shuffle) (('<- 'X8_S8_S8_S8) #'encode-X8_S8_S8_S8<-/shuffle) (('<- 'X8_S8_S8_C8) #'encode-X8_S8_S8_C8<-/shuffle) + (('! 'X8_S8_S8_S8 'C32) #'encode-X8_S8_S8_S8-C32!/shuffle) (('<- 'X8_S8_S8_S8 'C32) #'encode-X8_S8_S8_S8-C32<-/shuffle) (('<- 'X8_S8_S8_C8 'C32) #'encode-X8_S8_S8_C8-C32<-/shuffle) (('! 'X8_S8_S8_C8 'C32) #'encode-X8_S8_S8_C8-C32!/shuffle) |