summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-09-07 15:19:19 +0200
committerAndy Wingo <wingo@pobox.com>2018-09-07 15:19:19 +0200
commit18aa995cbb80b6a311809d73c18c8d90a8d9a393 (patch)
tree05066fe11ea22d3f05fd00fee69746fe42b33cea
parent227c3acc5d91046c8edf0be4943e65031fab6700 (diff)
downloadguile-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.c2
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);