diff options
| author | Andy Wingo <wingo@pobox.com> | 2019-05-27 12:01:38 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2019-05-27 12:01:38 +0200 |
| commit | 230a5559764679d75e3e8941e97a268a2b2e6a53 (patch) | |
| tree | 280d1098fccb2007ea6fa6d16328e5fbe6a203cb /libguile/intrinsics.h | |
| parent | 33e07fc56c18d4f3ffbfd53c4a8300bb2b5e49ba (diff) | |
| download | guile-230a5559764679d75e3e8941e97a268a2b2e6a53.tar.gz | |
Inline the atomic intrinsics
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS):
* libguile/intrinsics.c (scm_bootstrap_intrinsics): Remove the atomic
intrinsics, as the JIT no longer needs them.
* libguile/vm-engine.c (VM_NAME): Inline the intrinsics.
Diffstat (limited to 'libguile/intrinsics.h')
| -rw-r--r-- | libguile/intrinsics.h | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/intrinsics.h b/libguile/intrinsics.h index 397dffed6..2c1b53abc 100644 --- a/libguile/intrinsics.h +++ b/libguile/intrinsics.h @@ -1,4 +1,4 @@ -/* Copyright 2018 +/* Copyright 2018-2019 Free Software Foundation, Inc. This file is part of Guile. @@ -160,10 +160,6 @@ typedef uint32_t* scm_t_vcode_intrinsic; M(scm_from_thread, current_module, "current-module", CURRENT_MODULE) \ M(thread_u8_scm_sp_vra_mra, push_prompt, "push-prompt", PUSH_PROMPT) \ M(thread_scm, unpack_values_object, "unpack-values-object", UNPACK_VALUES_OBJECT) \ - M(scm_from_ptr, atomic_ref_scm, "atomic-ref-scm", ATOMIC_REF_SCM) \ - M(ptr_scm, atomic_set_scm, "atomic-set-scm", ATOMIC_SET_SCM) \ - M(scm_from_ptr_scm, atomic_swap_scm, "atomic-swap-scm", ATOMIC_SWAP_SCM) \ - M(scm_from_ptr_scm_scm, atomic_compare_and_swap_scm, "atomic-compare-and-swap-scm", ATOMIC_COMPARE_AND_SWAP_SCM) \ M(vcode, handle_interrupt_code, "%handle-interrupt-code", HANDLE_INTERRUPT_CODE) \ /* Add new intrinsics here; also update scm_bootstrap_intrinsics. */ |