summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-01-12 22:37:29 +0100
committerAndy Wingo <wingo@pobox.com>2009-01-12 22:37:29 +0100
commit616167fc12fd42c14e021b5496e91154b3a0e8c0 (patch)
treea5a19b050f34a0d22893492bdb45dc8cf64c6b35
parent78bae3d6fa7c8aa6951cf9fc31707b06d80a920a (diff)
downloadguile-616167fc12fd42c14e021b5496e91154b3a0e8c0.tar.gz
remove a paranoid define; fix bitrot in measure.scm.
* benchmark/measure.scm (measure): Fix bitrot. * libguile/vm.c (VM_ENABLE_STACK_NULLING): Undefine this, as it hasn't caught any errors in quite a while.
-rwxr-xr-xbenchmark/measure.scm4
-rw-r--r--libguile/vm.c4
2 files changed, 3 insertions, 5 deletions
diff --git a/benchmark/measure.scm b/benchmark/measure.scm
index f100397cf..6e3717918 100755
--- a/benchmark/measure.scm
+++ b/benchmark/measure.scm
@@ -44,9 +44,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(& (if (defined? proc-name)
(eval `(set! ,proc-name #f) (current-module))
(format #t "unbound~%")))
- (objcode (compile-in proc-source
- (current-module) *scheme*))
- (the-program (vm-load (the-vm) objcode))
+ (the-program (compile proc-source))
; (%%% (disassemble-objcode objcode))
(time-compiled (time-for-eval `(,proc-name ,@(cdr sexp))
diff --git a/libguile/vm.c b/libguile/vm.c
index ed69bd995..d75fed841 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -66,8 +66,8 @@
/* We can add a mode that ensures that all stack items above the stack pointer
are NULL. This is useful for checking the internal consistency of the VM's
assumptions and its operators, but isn't necessary for normal operation. It
- will ensure that assertions are enabled. */
-#define VM_ENABLE_STACK_NULLING
+ will ensure that assertions are enabled. Slows down the VM by about 30%. */
+/* #define VM_ENABLE_STACK_NULLING */
#if defined (VM_ENABLE_STACK_NULLING) && !defined (VM_ENABLE_ASSERTIONS)
#define VM_ENABLE_ASSERTIONS