From 4deeb2f2eec340f8f2ef6f0d474503ea9b30ed43 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 22 Dec 2020 09:57:51 +0100 Subject: Invert basic block argument order in LIMPLE cond-jump * lisp/emacs-lisp/comp.el (comp-emit-cond-jump) (comp-emit-switch, comp-emit-narg-prologue, comp-add-cond-cstrs): Invert basic block argument order in LIMPLE cond-jump. * src/comp.c (emit_limple_insn): Likewise. --- src/comp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/comp.c b/src/comp.c index 166c75bea0d..ee3c15a2f67 100644 --- a/src/comp.c +++ b/src/comp.c @@ -2038,7 +2038,7 @@ emit_limple_insn (Lisp_Object insn) gcc_jit_block *target1 = retrive_block (arg[2]); gcc_jit_block *target2 = retrive_block (arg[3]); - emit_cond_jump (emit_EQ (a, b), target2, target1); + emit_cond_jump (emit_EQ (a, b), target1, target2); } else if (EQ (op, Qcond_jump_narg_leq)) { @@ -2060,7 +2060,7 @@ emit_limple_insn (Lisp_Object insn) GCC_JIT_COMPARISON_LE, gcc_jit_lvalue_as_rvalue (nargs), n); - emit_cond_jump (test, target2, target1); + emit_cond_jump (test, target1, target2); } else if (EQ (op, Qphi) || EQ (op, Qassume)) { -- cgit v1.3