From e9a372b0201de0d0f1d6fdcb644acbbf87df2b90 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 25 Apr 2019 18:24:20 +0200 Subject: [PATCH] Re-enable fixnum less-than JIT fast-path * libguile/jit.c (compile_less): Re-enable fast-path for fixnums, now that the JIT library works :) --- libguile/jit.c | 8 -------- 1 file changed, 8 deletions(-) diff --git a/libguile/jit.c b/libguile/jit.c index 86d33a238..d1aa4fc99 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -3325,9 +3325,7 @@ compile_numerically_equal (scm_jit_state *j, uint16_t a, uint16_t b) static void compile_less (scm_jit_state *j, uint16_t a, uint16_t b) { -#if 0 jit_reloc_t fast, k2, k3; -#endif jit_reloc_t k1; uint32_t *target; enum scm_opcode op = fuse_conditional_branch (j, &target); @@ -3336,10 +3334,8 @@ compile_less (scm_jit_state *j, uint16_t a, uint16_t b) emit_sp_ref_scm (j, T0, a); emit_sp_ref_scm (j, T1, b); -#if 0 emit_andr (j, T2, T0, T1); fast = jit_bmsi (j->jit, T2, scm_tc2_int); -#endif emit_call_2 (j, scm_vm_intrinsics.less_p, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, T0), @@ -3363,7 +3359,6 @@ compile_less (scm_jit_state *j, uint16_t a, uint16_t b) default: UNREACHABLE (); } -#if 0 k2 = jit_jmp (j->jit); jit_patch_here (j->jit, fast); @@ -3382,12 +3377,9 @@ compile_less (scm_jit_state *j, uint16_t a, uint16_t b) } jit_patch_here (j->jit, k2); -#endif add_inter_instruction_patch (j, k1, target); -#if 0 add_inter_instruction_patch (j, k3, target); -#endif } static void