diff options
author | Andy Wingo <wingo@pobox.com> | 2018-09-07 15:19:19 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-09-07 15:19:19 +0200 |
commit | 18aa995cbb80b6a311809d73c18c8d90a8d9a393 (patch) | |
tree | 05066fe11ea22d3f05fd00fee69746fe42b33cea | |
parent | 227c3acc5d91046c8edf0be4943e65031fab6700 (diff) | |
download | guile-18aa995cbb80b6a311809d73c18c8d90a8d9a393.tar.gz |
Fix compilation of compare-and-swap
* libguile/jit.c (compile_atomic_scm_compare_and_swap_immediate): Call
the right intrinsic.
-rw-r--r-- | libguile/jit.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index c35c39f72..76a47402c 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); |