From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Jan 2022 19:36:48 +0000 (-0500)
Subject: * src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup
X-Git-Tag: emacs-29.0.90~2750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4ed3f39c979f101e523ff1073ffe364d5c44501;p=emacs.git

* src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup
---

diff --git a/src/comp.c b/src/comp.c
index 9abc5d96906..d8fe80df3a6 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -2237,9 +2237,9 @@ emit_limple_insn (Lisp_Object insn)
       gcc_jit_block *target1 = retrive_block (arg[2]);
       gcc_jit_block *target2 = retrive_block (arg[3]);
 
-      if ((CALL1I (comp-cstr-imm-vld-p, arg[0])
+      if ((!NILP (CALL1I (comp-cstr-imm-vld-p, arg[0]))
 	   && NILP (CALL1I (comp-cstr-imm, arg[0])))
-	  || (CALL1I (comp-cstr-imm-vld-p, arg[1])
+	  || (!NILP (CALL1I (comp-cstr-imm-vld-p, arg[1]))
 	      && NILP (CALL1I (comp-cstr-imm, arg[1]))))
 	emit_cond_jump (emit_BASE_EQ (a, b), target1, target2);
       else