[Guile-commits] 01/01: Revert "<?" fast path for now

[Andy Wingo]

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