[Guile-commits] 01/01: Fix compilation of call-scm<-u64

[Andy Wingo]

wingo pushed a commit to branch lightening
in repository guile.

commit cfffd5b241e02a6780a6842fbaf9984bce150aa4
Author: Andy Wingo <address@hidden>
Date:   Thu Apr 4 16:35:44 2019 +0200

    Fix compilation of call-scm<-u64
    
    * libguile/jit.c (compile_call_scm_from_u64): Fix to take operands from
      the right place.
---
 libguile/jit.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index b354583..a78e6e2 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);