mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

Fix compilation of call-scm<-u64

Browse source 
* libguile/jit.c (compile_call_scm_from_u64): Fix to take operands from
  the right place.
This commit is contained in:
Andy Wingo 2019-04-04 16:35:44 +02:00
parent 5df432b763
commit cfffd5b241
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

@ -2494,10 +2494,10 @@ compile_call_scm_from_u64 (scm_jit_state *j, uint16_t dst, uint16_t src, uint32_
#if INDIRECT_INT64_INTRINSICS
const jit_arg_abi_t abi[] = { JIT_ARG_ABI_POINTER };
// jit_addi (j->jit, T0, SP, src * sizeof (union scm_vm_stack_element));
jit_arg_t args[] = { sp_u64_loc_operand (j, dst) };
jit_arg_t args[] = { sp_u64_loc_operand (j, src) };
#else
const jit_arg_abi_t abi[] = { JIT_ARG_ABI_UINT64 };
jit_arg_t args[] = { sp_u64_operand (j, dst) };
jit_arg_t args[] = { sp_u64_operand (j, src) };
#endif
jit_calli (j->jit, intrinsic, 1, abi, args);
clear_scratch_register_state (j);