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

[Stefan Monnier]

branch: master
commit f4ed3f39c979f101e523ff1073ffe364d5c44501
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup
---
 src/comp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/comp.c b/src/comp.c
index 9abc5d9690..d8fe80df3a 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