[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Add out-of-line handle-interrupts trampoline stub
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/02: Add out-of-line handle-interrupts trampoline stub |
Date: |
Mon, 20 Aug 2018 09:39:43 -0400 (EDT) |
wingo pushed a commit to branch lightning
in repository guile.
commit d7fcdd9a2efc0be18446e9cce74aa2969cfb2700
Author: Andy Wingo <address@hidden>
Date: Mon Aug 20 14:57:00 2018 +0200
Add out-of-line handle-interrupts trampoline stub
* libguile/jit.c (emit_handle_interrupts_trampoline)
(initialize_handle_interrupts_trampoline)
(compile_handle_interrupts): Handle most of the slow case of
handle-interrupts out-of-line, to avoid code bloat.
---
libguile/jit.c | 41 ++++++++++++++++++++++++++++++++++++++---
1 file changed, 38 insertions(+), 3 deletions(-)
diff --git a/libguile/jit.c b/libguile/jit.c
index 41b654b..6f42ce5 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -43,6 +43,8 @@
static void (*enter_mcode) (scm_thread *thread, const uint8_t *mcode);
static void *exit_mcode;
+static void *handle_interrupts_trampoline;
+static void compute_mcode (scm_thread *, struct scm_jit_function_data *);
struct scm_jit_state {
jit_state_t *jit;
@@ -602,6 +604,36 @@ emit_entry_trampoline (scm_jit_state *j)
}
static void
+emit_handle_interrupts_trampoline (scm_jit_state *j)
+{
+ jit_prolog ();
+ jit_tramp (entry_frame_size);
+
+ /* Precondition: IP synced, MRA in T0. */
+ emit_call_r_r (j, scm_vm_intrinsics.push_interrupt_frame, THREAD, T0);
+ emit_reload_sp (j);
+ emit_direct_tail_call (j, scm_vm_intrinsics.handle_interrupt_code);
+}
+
+static scm_i_pthread_once_t initialize_handle_interrupts_trampoline_once =
+ SCM_I_PTHREAD_ONCE_INIT;
+static void
+initialize_handle_interrupts_trampoline (void)
+{
+ scm_thread *thread = SCM_I_CURRENT_THREAD;
+ scm_jit_state saved_jit_state, *j = thread->jit_state;
+
+ memcpy (&saved_jit_state, j, sizeof (*j));
+
+ j->jit = jit_new_state ();
+ emit_handle_interrupts_trampoline (j);
+ handle_interrupts_trampoline = jit_emit ();
+ jit_clear_state ();
+
+ memcpy (j, &saved_jit_state, sizeof (*j));
+}
+
+static void
emit_free_variable_ref (scm_jit_state *j, jit_gpr_t dst, jit_gpr_t prog,
size_t n)
{
@@ -2236,6 +2268,11 @@ compile_handle_interrupts (scm_jit_state *j)
{
jit_node_t *again, *mra, *none_pending, *blocked;
+ /* The slow case is a fair amount of code, so generate it once for the
+ whole process and share that code. */
+ scm_i_pthread_once (&initialize_handle_interrupts_trampoline_once,
+ initialize_handle_interrupts_trampoline);
+
again = jit_label ();
jit_addi (T0, THREAD, thread_offset_pending_asyncs);
emit_call_r (j, scm_vm_intrinsics.atomic_ref_scm, T0);
@@ -2247,9 +2284,7 @@ compile_handle_interrupts (scm_jit_state *j)
emit_store_current_ip (j, T0);
mra = jit_movi (T0, 0);
jit_patch_at (mra, again);
- emit_call_r_r (j, scm_vm_intrinsics.push_interrupt_frame, THREAD, T0);
- emit_reload_sp (j);
- emit_direct_tail_call (j, scm_vm_intrinsics.handle_interrupt_code);
+ jit_patch_abs (jit_jmpi (), handle_interrupts_trampoline);
jit_patch (none_pending);
jit_patch (blocked);