mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

remove a paranoid define; fix bitrot in measure.scm.

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-01-12 22:37:29 +01:00
parent 78bae3d6fa
commit 616167fc12
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
benchmark/measure.scm
View file

@ -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))

4
libguile/vm.c
View file

@ -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