diff options
author | Andy Wingo <wingo@pobox.com> | 2019-04-04 16:35:44 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-04-04 16:35:44 +0200 |
commit | cfffd5b241e02a6780a6842fbaf9984bce150aa4 (patch) | |
tree | d59444f0f4988c2ab35e4b6fe2f4abcd760e0110 | |
parent | 5df432b76398d1409d875d1bf33a4e415043e42e (diff) | |
download | guile-cfffd5b241e02a6780a6842fbaf9984bce150aa4.tar.gz |
Fix compilation of call-scm<-u64
* libguile/jit.c (compile_call_scm_from_u64): Fix to take operands from
the right place.
-rw-r--r-- | libguile/jit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index b35458388..a78e6e289 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -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); |