diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-11 12:38:47 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-11 12:39:02 +0100 |
commit | 6c20a0b34b3c79c999213320eabf3d46eddd1c6e (patch) | |
tree | 3a862c425e186494fceab8196612cac526478dc2 /libguile/vm.c | |
parent | 349d5c442834ee467fd2dbf4caed778310f96932 (diff) | |
download | guile-6c20a0b34b3c79c999213320eabf3d46eddd1c6e.tar.gz |
vm no longer measures bogoclock or times, relies on os for that
* libguile/vm.h (struct scm_vm): Remove "time" and "clock" members. The
time was bogusly measured, and the "clock" measured instructions
retired, which is not a very useful measurement, and it was causing
lots of memory accesses. Not that I have done a proper profile,
though...
(scm_vm_stats): Remove this procedure, which provided access to "time"
and "clock".
* libguile/vm.c:
* libguile/vm-engine.h:
* libguile/vm-engine.c:
* libguile/vm-i-system.c: Adapt to scm_vm changes and scm_vm_stats
removal.
* module/system/repl/command.scm:
* module/system/vm/vm.scm: Adapt to vm-stats removal by removing
vm-stats from <repl>.
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), "") |