From f4ed3f39c979f101e523ff1073ffe364d5c44501 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 25 Jan 2022 14:36:48 -0500 Subject: [PATCH] * 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 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 -- 2.39.2