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

Fix some compiler warnings on 64-bit builds

Browse source
This commit is contained in:
Andy Wingo 2019-08-03 12:44:11 +02:00
parent ba5d1dfc6a
commit d0aca1635e
1 changed files with 2 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/jit.c
View file

@ -252,7 +252,7 @@ SCM_UNUSED static const jit_gpr_t T4_OR_SP = JIT_R0;
/* Sometimes you want to call out the fact that T0 and T1 are preserved
across calls. In that case, use these. */
static const jit_gpr_t T0_PRESERVED = JIT_V1;
SCM_UNUSED static const jit_gpr_t T0_PRESERVED = JIT_V1;
static const jit_gpr_t T1_PRESERVED = JIT_V2;
static const uint32_t SP_IN_REGISTER = 0x1;
@ -269,12 +269,6 @@ static const uint8_t OP_ATTR_ENTRY = 0x2;
#define BIGENDIAN 0
#endif
#if BIGENDIAN
static const uint32_t uint32_offset_low_byte = 3;
#else
static const uint32_t uint32_offset_low_byte = 0;
#endif
#if SCM_SIZEOF_UINTPTR_T == 4
static const uint32_t log2_sizeof_uintptr_t = 2;
#elif SCM_SIZEOF_UINTPTR_T == 8
@ -510,7 +504,6 @@ emit_##stem (scm_jit_state *j, \
DEFINE_CLOBBER_RECORDING_EMITTER_R(ldr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_P(ldi, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R(movr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R(comr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R_R(ldxr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R_I(addi, gpr)
@ -535,6 +528,7 @@ DEFINE_CLOBBER_RECORDING_EMITTER_R_I(lshi, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R_R(lshr, gpr)
#if SIZEOF_UINTPTR_T < 8
DEFINE_CLOBBER_RECORDING_EMITTER_R(movr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R(negr, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R_I(addci, gpr)
DEFINE_CLOBBER_RECORDING_EMITTER_R_R(addcr, gpr)
@ -756,16 +750,6 @@ emit_get_callee_vcode (scm_jit_state *j, jit_gpr_t dst)
emit_reload_fp (j);
}
static void
emit_get_vcode_low_byte (scm_jit_state *j, jit_gpr_t dst, jit_gpr_t addr)
{
if (uint32_offset_low_byte == 0)
jit_ldr_uc (j->jit, dst, addr);
else
jit_ldxi_uc (j->jit, dst, addr, uint32_offset_low_byte);
record_gpr_clobber (j, dst);
}
static void
emit_get_ip_relative_addr (scm_jit_state *j, jit_gpr_t dst, jit_gpr_t ip,
uint32_t offset)