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

Fix JIT bugs

Browse source 
* libguile/jit.c (compile): Fix reloc fixup.
(compute_mcode): Correctly compute entry mcode.
This commit is contained in:
Andy Wingo 2019-04-04 11:33:16 +02:00
parent c63764f439
commit c0369df5e7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/jit.c
View file

@ -4722,7 +4722,7 @@ compile (scm_jit_state *j)
compile1 (j); compile1 (j);
} }
for (size_t i = 0; i < j->reloc_count; i++) for (size_t i = 0; i < j->reloc_idx; i++)
{ {
void *target = j->labels[j->relocs[i].target_vcode_offset]; void *target = j->labels[j->relocs[i].target_vcode_offset];
ASSERT(target); ASSERT(target);
@ -4830,7 +4830,7 @@ compute_mcode (scm_thread *thread, uint32_t *entry_ip,
data->mcode = emit_code (j, compile); data->mcode = emit_code (j, compile);
if (data->mcode) if (data->mcode)
entry_mcode = jit_address (j->jit); entry_mcode = j->labels[j->entry - j->start];
else else
entry_mcode = NULL; entry_mcode = NULL;