diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 0e511f608..c7ece1158 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -363,8 +363,6 @@ make_vm (void) vp->sp = vp->stack_base - 1; vp->fp = NULL; vp->engine = SCM_VM_DEBUG_ENGINE; - vp->time = 0; - vp->clock = 0; vp->options = SCM_EOL; for (i = 0; i < SCM_VM_NUM_HOOKS; i++) vp->hooks[i] = SCM_BOOL_F; @@ -621,25 +619,6 @@ SCM_DEFINE (scm_set_vm_option_x, "set-vm-option!", 3, 0, 0, } #undef FUNC_NAME -SCM_DEFINE (scm_vm_stats, "vm-stats", 1, 0, 0, - (SCM vm), - "") -#define FUNC_NAME s_scm_vm_stats -{ - SCM stats; - - SCM_VALIDATE_VM (1, vm); - - stats = scm_make_vector (SCM_I_MAKINUM (2), SCM_UNSPECIFIED); - scm_vector_set_x (stats, SCM_I_MAKINUM (0), - scm_from_ulong (SCM_VM_DATA (vm)->time)); - scm_vector_set_x (stats, SCM_I_MAKINUM (1), - scm_from_ulong (SCM_VM_DATA (vm)->clock)); - - return stats; -} -#undef FUNC_NAME - SCM_DEFINE (scm_vm_trace_frame, "vm-trace-frame", 1, 0, 0, (SCM vm), "") |