diff options
-rw-r--r-- | libguile/vm-engine.c | 3 | ||||
-rw-r--r-- | libguile/vm.c | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 2461b1469..b50751116 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -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 */ diff --git a/libguile/vm.c b/libguile/vm.c index 27990f934..c76187258 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -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 |