[Guile-commits] 01/01: Fix compilation of compare-and-swap

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 18aa995cbb80b6a311809d73c18c8d90a8d9a393
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 7 15:19:19 2018 +0200

    Fix compilation of compare-and-swap
    
    * libguile/jit.c (compile_atomic_scm_compare_and_swap_immediate): Call
      the right intrinsic.
---
 libguile/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index c35c39f..76a4740 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -2514,7 +2514,7 @@ compile_atomic_scm_compare_and_swap_immediate 
(scm_jit_state *j, uint32_t dst,
   emit_sp_ref_scm (j, T1, expected);
   emit_sp_ref_scm (j, T2, desired);
   emit_addi (j, T0, T0, offset * sizeof (SCM));
-  emit_call_r_r_r (j, scm_vm_intrinsics.atomic_swap_scm, T0, T1, T2);
+  emit_call_r_r_r (j, scm_vm_intrinsics.atomic_compare_and_swap_scm, T0, T1, 
T2);
   emit_retval (j, T0);
   emit_reload_sp (j);
   emit_sp_set_scm (j, dst, T0);