summaryrefslogtreecommitdiff
path: root/libguile/jit.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-12-10 22:05:43 +0100
committerAndy Wingo <wingo@pobox.com>2019-12-10 22:17:24 +0100
commit7a6fdd4fb58237b9213ffe9ce7a8e5b2ac659c54 (patch)
tree22dccf6448f06cb484e5011bbd26a4b44d1b2132 /libguile/jit.c
parent76b8f107cace1a03f0252c6d03bad61e0453bf78 (diff)
downloadguile-7a6fdd4fb58237b9213ffe9ce7a8e5b2ac659c54.tar.gz
Add out-of-line slow path for compose-continuation
* libguile/jit.c (compile_compose_continuation) (compile_compose_continuation_slow): Move interpreter fallback to slow path.
Diffstat (limited to 'libguile/jit.c')
-rw-r--r--libguile/jit.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/libguile/jit.c b/libguile/jit.c
index 2e96587b0..2b66e82e9 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -1789,8 +1789,6 @@ compile_continuation_call_slow (scm_jit_state *j, uint32_t contregs_idx)
static void
compile_compose_continuation (scm_jit_state *j, uint32_t cont_idx)
{
- jit_reloc_t interp;
-
ASSERT_HAS_REGISTER_STATE (SP_IN_REGISTER | FP_IN_REGISTER);
emit_store_current_ip (j, T0);
@@ -1798,20 +1796,18 @@ compile_compose_continuation (scm_jit_state *j, uint32_t cont_idx)
emit_call_2 (j, scm_vm_intrinsics.compose_continuation,
thread_operand (), free_variable_operand (j, T0, cont_idx));
jit_retval (j->jit, T0);
- interp = jit_beqi (j->jit, T0, 0);
+ add_slow_path_patch (j, jit_beqi (j->jit, T0, 0));
emit_reload_sp (j);
emit_reload_fp (j);
jit_jmpr (j->jit, T0);
- jit_patch_here (j->jit, interp);
- emit_exit (j);
-
j->frame_size_min = 0;
j->frame_size_max = INT32_MAX;
}
static void
compile_compose_continuation_slow (scm_jit_state *j, uint32_t cont_idx)
{
+ emit_exit (j);
}
static void