mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
Engine takes struct scm_vm* as argument
* libguile/vm-engine.c: * libguile/vm.c (scm_c_vm_run): VM engine now takes struct scm_vm* as argument, not SCM vm.
This commit is contained in:
parent
796e54a74c
commit
9b4c3ab5fa
2 changed files with 4 additions and 4 deletions
|
@ -424,7 +424,7 @@
|
|||
((scm_t_uintptr) (ptr) % alignof_type (type) == 0)
|
||||
|
||||
static SCM
|
||||
VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
|
||||
VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, size_t nargs_)
|
||||
{
|
||||
/* Instruction pointer: A pointer to the opcode that is currently
|
||||
running. */
|
||||
|
@ -439,7 +439,6 @@ VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
|
|||
register scm_t_uint32 op;
|
||||
|
||||
/* Cached variables. */
|
||||
struct scm_vm *vp = SCM_VM_DATA (vm);
|
||||
scm_i_thread *current_thread = SCM_I_CURRENT_THREAD;
|
||||
scm_i_jmp_buf registers; /* used for prompts */
|
||||
|
||||
|
|
|
@ -737,7 +737,8 @@ initialize_default_stack_size (void)
|
|||
#undef VM_USE_HOOKS
|
||||
#undef VM_NAME
|
||||
|
||||
typedef SCM (*scm_t_vm_engine) (SCM vm, SCM program, SCM *argv, size_t nargs);
|
||||
typedef SCM (*scm_t_vm_engine) (struct scm_vm *vp,
|
||||
SCM program, SCM *argv, size_t nargs);
|
||||
|
||||
static const scm_t_vm_engine vm_engines[SCM_VM_NUM_ENGINES] =
|
||||
{ vm_regular_engine, vm_debug_engine };
|
||||
|
@ -822,7 +823,7 @@ scm_c_vm_run (SCM vm, SCM program, SCM *argv, int nargs)
|
|||
{
|
||||
struct scm_vm *vp = SCM_VM_DATA (vm);
|
||||
SCM_CHECK_STACK;
|
||||
return vm_engines[vp->engine](vm, program, argv, nargs);
|
||||
return vm_engines[vp->engine](vp, program, argv, nargs);
|
||||
}
|
||||
|
||||
SCM
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue