master: x86-64: use xorps for conjugate/complex-single-float
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 315d1ee56861ec6d4d22a3816163b406a64c4aff (commit)
from 77337ebd4ab58993edd527bc3f1b9cf30d3a4efb (commit)
- Log -----------------------------------------------------------------
commit 315d1ee56861ec6d4d22a3816163b406a64c4aff
Author: Stas Boukarev <[email protected]>
Date: Wed Apr 22 04:19:44 2026 +0300
x86-64: use xorps for conjugate/complex-single-float
---
src/compiler/x86-64/float.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/compiler/x86-64/float.lisp b/src/compiler/x86-64/float.lisp
index 99b1eb901..723981572 100644
--- a/src/compiler/x86-64/float.lisp
+++ b/src/compiler/x86-64/float.lisp
@@ -882,7 +882,7 @@
(inst xorps y (register-inline-constant
:oword (logior (ash 1 31) (ash 1 63)))))
(frob (conjugate/complex-single-float conjugate complex-single-reg complex-single-float)
- (inst xorpd y (register-inline-constant :oword (ash 1 63))))
+ (inst xorps y (register-inline-constant :oword (ash 1 63))))
(frob (abs/double-float abs double-reg double-float)
(inst andpd y (register-inline-constant :oword (ldb (byte 63 0) -1))))
(frob (abs/single-float abs single-reg single-float)
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL