[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: x86-64, if-eq: don't accept immediate X.
From:       stassats via Sbcl-commits <sbcl-commits () lists ! sourceforge ! net>
Date:       2023-09-28 12:08:23
Message-ID: 1695902903.688606.3204 () sfp-scm-3 ! v30 ! lw ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  e2a833c76e19b69bafaf7a533715cbd610e83596 (commit)
      from  2fb3ab5e6682819bb1a8de5b44b364291e6a2a28 (commit)

- Log -----------------------------------------------------------------
commit e2a833c76e19b69bafaf7a533715cbd610e83596
Author: Stas Boukarev <stassats@gmail.com>
Date:   Thu Sep 28 15:07:38 2023 +0300

    x86-64, if-eq: don't accept immediate X.
    
    Fixes lp#2037456
---
 src/compiler/x86-64/pred.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/x86-64/pred.lisp b/src/compiler/x86-64/pred.lisp
index 2f7c3967c..831cd923a 100644
--- a/src/compiler/x86-64/pred.lisp
+++ b/src/compiler/x86-64/pred.lisp
@@ -327,7 +327,7 @@
 ;;; Note: a constant-tn is allowed in CMP; it uses an EA displacement,
 ;;; not immediate data.
 (define-vop (if-eq)
-  (:args (x :scs (any-reg descriptor-reg control-stack immediate))
+  (:args (x :scs (any-reg descriptor-reg control-stack))
          (y :scs (any-reg descriptor-reg control-stack immediate constant)))
   (:conditional :e)
   (:policy :fast-safe)

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


hooks/post-receive
-- 
SBCL


_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]