master: Preemptively adjust a test

The branch "master" has been updated in SBCL:
       via  f797952a84f4d905b60448472f5be5fb0a0bae6b (commit)
      from  5ca456d7fef38c4e75a1b8a3d29807981873ac9d (commit)

- Log -----------------------------------------------------------------
commit f797952a84f4d905b60448472f5be5fb0a0bae6b
Author: Douglas Katzman <[email protected]>
Date:   Thu Aug 20 03:52:53 2026 +0000

    Preemptively adjust a test
    
    If RDX ceases to be the first arg-passing register, then this test will fail
    because there is no byte-sized register corresponding to byte index 1 of RDI.
---
 tests/x86-64-codegen.impure.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/x86-64-codegen.impure.lisp b/tests/x86-64-codegen.impure.lisp
index 143ace035..27e0f4704 100644
--- a/tests/x86-64-codegen.impure.lisp
+++ b/tests/x86-64-codegen.impure.lisp
@@ -240,12 +240,11 @@
              (split-string
               (with-output-to-string (s)
                (let ((sb-disassem:*disassem-location-column-width* 0))
-                 (disassemble '(lambda (x) (logtest (the fixnum x) #x80))
+                 (disassemble '(lambda (x)
+                                (let ((q (the fixnum (truncate (the fixnum x) 3)))) (logtest q #x80)))
                               :stream s)))
               #\newline))
-      (when (search (format nil "TEST DH, ~D"
-                            (ash (ash #x80 sb-vm:n-fixnum-tag-bits) -8))
-                    line)
+      (when (search "TEST AH, 1" line)
         (setq success t)))
     (assert success)))
 

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL