[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Revert "<?" fast path for now
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Revert "<?" fast path for now |
Date: |
Wed, 5 Sep 2018 16:31:28 -0400 (EDT) |
wingo pushed a commit to branch lightning
in repository guile.
commit 3e2b173158cbe4930a85868a0752001f0a07dde6
Author: Andy Wingo <address@hidden>
Date: Wed Sep 5 22:30:43 2018 +0200
Revert "<?" fast path for now
* libguile/jit.c (compile_less): Revert fast path; causing errors in
benchmarks.
---
libguile/jit.c | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/libguile/jit.c b/libguile/jit.c
index ac77aa5..9ddc125 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -3192,7 +3192,10 @@ 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)
{
- jit_node_t *fast, *k1, *k2, *k3;
+#if 0
+ jit_node_t *fast, *k2, *k3;
+#endif
+ jit_node_t *k1;
uint32_t *target;
enum scm_opcode op = fuse_conditional_branch (j, &target);
@@ -3200,8 +3203,10 @@ 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);
- jit_andr (T2, T0, T1);
+#if 0
+ emit_andr (j, T2, T0, T1);
fast = jit_bmsi (T2, scm_tc2_int);
+#endif
emit_call_r_r (j, scm_vm_intrinsics.less_p, T0, T1);
emit_retval (j, T0);
@@ -3223,6 +3228,7 @@ compile_less (scm_jit_state *j, uint16_t a, uint16_t b)
default:
UNREACHABLE ();
}
+#if 0
k2 = jit_jmpi ();
jit_patch (fast);
@@ -3241,9 +3247,12 @@ compile_less (scm_jit_state *j, uint16_t a, uint16_t b)
}
jit_patch (k2);
+#endif
add_inter_instruction_patch (j, k1, target);
+#if 0
add_inter_instruction_patch (j, k3, target);
+#endif
}
static void