[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f4ed3f39c9: * src/comp.c (emit_limple_insn): Fix another int/Lisp
From: |
Stefan Monnier |
Subject: |
master f4ed3f39c9: * src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup |
Date: |
Tue, 25 Jan 2022 14:36:56 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f4ed3f39c9: * src/comp.c (emit_limple_insn): Fix another int/Lisp_Object mixup,
Stefan Monnier <=