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-engine.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-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 2f3320c29..7fbb77480 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -20,12 +20,10 @@ #if (VM_ENGINE == SCM_VM_REGULAR_ENGINE) #define VM_USE_HOOKS 0 /* Various hooks */ -#define VM_USE_CLOCK 0 /* Bogoclock */ #define VM_CHECK_OBJECT 1 /* Check object table */ #define VM_CHECK_FREE_VARIABLES 1 /* Check free variable access */ #elif (VM_ENGINE == SCM_VM_DEBUG_ENGINE) #define VM_USE_HOOKS 1 -#define VM_USE_CLOCK 1 #define VM_CHECK_OBJECT 1 #define VM_CHECK_FREE_VARIABLES 1 #else @@ -53,7 +51,6 @@ VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, int nargs) /* Internal variables */ int nvalues = 0; - long start_time = scm_c_get_internal_run_time (); SCM finish_args; /* used both for returns: both in error and normal situations */ #if VM_USE_HOOKS @@ -255,7 +252,6 @@ VM_NAME (struct scm_vm *vp, SCM program, SCM *argv, int nargs) } #undef VM_USE_HOOKS -#undef VM_USE_CLOCK #undef VM_CHECK_OBJECT #undef VM_CHECK_FREE_VARIABLE |