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

Merge from upstream Lightening

Browse source
This commit is contained in:
Andy Wingo 2019-04-04 11:18:30 +02:00
commit c63764f439
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/lightening/lightening/x86-cpu.c
View file

@ -2638,7 +2638,7 @@ callr(jit_state_t *_jit, int32_t r0)
static void static void
calli(jit_state_t *_jit, jit_word_t i0) calli(jit_state_t *_jit, jit_word_t i0)
{ {
ptrdiff_t rel32 = i0 - (_jit->pc.w + 4); ptrdiff_t rel32 = i0 - (_jit->pc.w + 1 + 4);
if (INT32_MIN <= rel32 && rel32 <= INT32_MAX) if (INT32_MIN <= rel32 && rel32 <= INT32_MAX)
{ {
ic(_jit, 0xe8); ic(_jit, 0xe8);
@ -2664,7 +2664,7 @@ jmpr(jit_state_t *_jit, int32_t r0)
static void static void
jmpi(jit_state_t *_jit, jit_word_t i0) jmpi(jit_state_t *_jit, jit_word_t i0)
{ {
ptrdiff_t rel32 = i0 - (_jit->pc.w + 4); ptrdiff_t rel32 = i0 - (_jit->pc.w + 1 + 4);
if (INT32_MIN <= rel32 && rel32 <= INT32_MAX) if (INT32_MIN <= rel32 && rel32 <= INT32_MAX)
{ {
ic(_jit, 0xe9); ic(_jit, 0xe9);