mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Merge https://gitlab.com/wingo/lightening master branch

Browse source
This commit is contained in:
Andy Wingo 2020-07-30 14:34:52 +02:00
commit aa44a71750
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/lightening/lightening/lightening.c
View file

@ -721,21 +721,26 @@ static void
abi_gpr_to_mem(jit_state_t *_jit, enum jit_operand_abi abi, abi_gpr_to_mem(jit_state_t *_jit, enum jit_operand_abi abi,
jit_gpr_t base, ptrdiff_t offset, jit_gpr_t src) jit_gpr_t base, ptrdiff_t offset, jit_gpr_t src)
{ {
// Invariant: GPR memory destination operand sizes are rounded up to words.
// True for ARM, AArch64, IA32, and X86-64. Some ABIs expect to be able to
// load operands from the stack via a full-word read, so we need to make sure
// we don't leave garbage in the high bytes of (for example) the stack slot
// for a uint8_t arg.
switch (abi) { switch (abi) {
case JIT_OPERAND_ABI_UINT8: case JIT_OPERAND_ABI_UINT8:
case JIT_OPERAND_ABI_INT8: case JIT_OPERAND_ABI_INT8:
jit_stxi_c(_jit, offset, base, src); jit_stxi(_jit, offset, base, src);
break; break;
case JIT_OPERAND_ABI_UINT16: case JIT_OPERAND_ABI_UINT16:
case JIT_OPERAND_ABI_INT16: case JIT_OPERAND_ABI_INT16:
jit_stxi_s(_jit, offset, base, src); jit_stxi(_jit, offset, base, src);
break; break;
case JIT_OPERAND_ABI_UINT32: case JIT_OPERAND_ABI_UINT32:
case JIT_OPERAND_ABI_INT32: case JIT_OPERAND_ABI_INT32:
#if __WORDSIZE == 32 #if __WORDSIZE == 32
case JIT_OPERAND_ABI_POINTER: case JIT_OPERAND_ABI_POINTER:
#endif #endif
jit_stxi_i(_jit, offset, base, src); jit_stxi(_jit, offset, base, src);
break; break;
#if __WORDSIZE == 64 #if __WORDSIZE == 64
case JIT_OPERAND_ABI_UINT64: case JIT_OPERAND_ABI_UINT64: