diff options
author | Andy Wingo <wingo@pobox.com> | 2018-08-13 21:42:43 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-08-13 22:00:19 +0200 |
commit | e6304fb2425475ddf441439ee3c510060f9464d4 (patch) | |
tree | 215a5676ac9b16bcdacfc4b3c7ed2d75dad5ec67 /libguile/programs.c | |
parent | 0188bd381692fd2d72673dc5921a08f34f110f58 (diff) | |
download | guile-e6304fb2425475ddf441439ee3c510060f9464d4.tar.gz |
Define intrinsics for atomic ops
* libguile/intrinsics.h:
* libguile/intrinsics.c (atomic_ref_scm, atomic_set_scm):
(atomic_swap_scm, atomic_compare_and_swap_scm): New intrinsics, given
that lightning doesn't know atomics.
(scm_bootstrap_intrinsics): Init new intrinsics.
* libguile/vm-engine.c (atomic-scm-ref/immediate)
(atomic-scm-set!/immediate, atomic-scm-swap!/immediate)
(atomic-scm-compare-and-swap!/immediate): Use intrinsics, to be like
the JIT.
Diffstat (limited to 'libguile/programs.c')
0 files changed, 0 insertions, 0 deletions