mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 00:42:26 +02:00
Code Activity

Add some nop and jmp tests, and fix a hazard with jmpi/calli

Browse source
This commit is contained in:
Andy Wingo 2019-03-26 16:28:38 +01:00
parent 8a8273c45c
commit 281cca514f
4 changed files with 92 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

30
jit/x86-cpu.c
View file

@ -2638,18 +2638,19 @@ callr(jit_state_t *_jit, int32_t r0)
static void
calli(jit_state_t *_jit, jit_word_t i0)
{
if (__X64)
ptrdiff_t rel32 = i0 - (_jit->pc.w + 4);
if (INT32_MIN <= rel32 && rel32 <= INT32_MAX)
{
ic(_jit, 0xe8);
ii(_jit, rel32);
}
else
{
int32_t reg = get_temp_gpr(_jit);
jit_patch_there(_jit, mov_addr(_jit, rn(reg)), (void*)i0);
callr(_jit, rn(reg));
unget_temp_gpr(_jit);
}
else
{
ic(_jit, 0xe8);
ii(_jit, i0 - (_jit->pc.w + 4));
}
}
static void
@ -2663,10 +2664,19 @@ jmpr(jit_state_t *_jit, int32_t r0)
static void
jmpi(jit_state_t *_jit, jit_word_t i0)
{
jit_word_t w;
ic(_jit, 0xe9);
w = i0 - (_jit->pc.w + 4);
ii(_jit, w);
ptrdiff_t rel32 = i0 - (_jit->pc.w + 4);
if (INT32_MIN <= rel32 && rel32 <= INT32_MAX)
{
ic(_jit, 0xe9);
ii(_jit, rel32);
}
else
{
int32_t reg = get_temp_gpr(_jit);
jit_patch_there(_jit, mov_addr(_jit, rn(reg)), (void*)i0);
jmpr(_jit, rn(reg));
unget_temp_gpr(_jit);
}
}
static jit_reloc_t