diff options
author | Andy Wingo <wingo@pobox.com> | 2018-09-14 09:28:36 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-09-14 09:34:31 +0200 |
commit | 0ccd2d0d9ed6b4e233b0cad99d66d57e99ea99c6 (patch) | |
tree | ddd8384ce6b3ffcc510e490ffc1dff4c910b3ee7 /libguile/intrinsics.h | |
parent | bf31fe4cf6d75c96cc4ef29fea8808dd539da361 (diff) | |
download | guile-0ccd2d0d9ed6b4e233b0cad99d66d57e99ea99c6.tar.gz |
Remove hook intrinsics: hooks are just for the VM
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): Remove VM hook
intrinsics, now that we're going to rely on the interpreter for
stepping and breakpoints.
* libguile/jit.c (struct scm_jit_state): Remove "hooks_enabled" member,
now that we won't JIT. Remove all code related to calling hooks.
* libguile/vm-engine.c (RUN_HOOK): Call hooks directly instead of
through intrinsics. Use precise per-hook enable flags.
* libguile/vm.c (DEFINE_INVOKE_HOOK): New helper. Use to define the
hook invokers.
Diffstat (limited to 'libguile/intrinsics.h')
-rw-r--r-- | libguile/intrinsics.h | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/libguile/intrinsics.h b/libguile/intrinsics.h index 30e85c5fc..397dffed6 100644 --- a/libguile/intrinsics.h +++ b/libguile/intrinsics.h @@ -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(thread, invoke_apply_hook, "invoke-apply-hook", INVOKE_APPLY_HOOK) \ - M(thread, invoke_return_hook, "invoke-return-hook", INVOKE_RETURN_HOOK) \ - M(thread, invoke_next_hook, "invoke-next-hook", INVOKE_NEXT_HOOK) \ - M(thread, invoke_abort_hook, "invoke-abort-hook", INVOKE_ABORT_HOOK) \ 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) \ |