mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Remove "resume" arg from vm engine

Browse source 
* libguile/vm-engine.c (vm_engine): Remove "resume" argument; scm_call_n
  will handle the differences.
* libguile/vm.c (scm_call_n): Inline handling of what to do in normal
  and resume cases.  Remove resume argument to vm_engine.
This commit is contained in:
Andy Wingo 2018-06-27 18:57:37 +02:00
parent 64d114817a
commit 9c8c4060dd
2 changed files with 15 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/vm-engine.c
View file

@ -272,7 +272,7 @@
((uintptr_t) (ptr) % alignof_type (type) == 0)
static SCM
VM_NAME (scm_thread *thread, int resume)
VM_NAME (scm_thread *thread)
{
/* Instruction pointer: A pointer to the opcode that is currently
running. */
@ -303,23 +303,7 @@ VM_NAME (scm_thread *thread, int resume)
/* Load VM registers. */
CACHE_REGISTER ();
/* Usually a call to the VM happens on application, with the boot
continuation on the next frame. Sometimes it happens after a
non-local exit however; in that case the VM state is all set up,
and we have but to jump to the next opcode. */
if (SCM_UNLIKELY (resume))
NEXT (0);
if (SCM_LIKELY (SCM_PROGRAM_P (FP_REF (0))))
ip = SCM_PROGRAM_CODE (FP_REF (0));
else
{
CALL_INTRINSIC (apply_non_program, (thread));
CACHE_REGISTER ();
}
APPLY_HOOK ();
/* Start processing! */
NEXT (0);
BEGIN_DISPATCH_SWITCH;