mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

More various JIT fixen

Browse source 
* libguile/jit.c (prepare_jit_state): Remove unused function.
(initialize_thread_jit_state): Since the lightening state is allocated
using GC memory, trace the JIT state.
(compute_mcode): Avoid double-compile.
This commit is contained in:
Andy Wingo 2019-04-04 12:10:13 +02:00
parent 62df897929
commit 89de2cb286
1 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/jit.c
View file

@ -1378,11 +1378,6 @@ allocate_code_arena (size_t size, struct code_arena *prev)
return ret; return ret;
} }
static void
prepare_jit_state (scm_jit_state *j)
{
}
static void * static void *
emit_code (scm_jit_state *j, void (*emit) (scm_jit_state *)) emit_code (scm_jit_state *j, void (*emit) (scm_jit_state *))
{ {
@ -4748,7 +4743,7 @@ initialize_thread_jit_state (scm_thread *thread)
ASSERT (!thread->jit_state); ASSERT (!thread->jit_state);
j = scm_gc_malloc_pointerless (sizeof (*j), "jit state"); j = scm_gc_malloc (sizeof (*j), "jit state");
memset (j, 0, sizeof (*j)); memset (j, 0, sizeof (*j));
thread->jit_state = j; thread->jit_state = j;
j->jit = jit_new_state (jit_alloc_fn, jit_free_fn); j->jit = jit_new_state (jit_alloc_fn, jit_free_fn);
@ -4823,9 +4818,6 @@ compute_mcode (scm_thread *thread, uint32_t *entry_ip,
INFO ("vcode: start=%p,+%zu entry=+%zu\n", j->start, j->end - j->start, INFO ("vcode: start=%p,+%zu entry=+%zu\n", j->start, j->end - j->start,
j->entry - j->start); j->entry - j->start);
prepare_jit_state (j);
compile (j);
data->mcode = emit_code (j, compile); data->mcode = emit_code (j, compile);
if (data->mcode) if (data->mcode)
entry_mcode = j->labels[j->entry - j->start]; entry_mcode = j->labels[j->entry - j->start];