mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* lib.scm (print-result, print-user-result): Changed the

Browse source 
reporter's outputs to use symbols rather than strings to document
the individual values.  Thanks to Neil Jerram for the suggestion.
This commit is contained in:
Dirk Herrmann 2002-07-21 12:01:26 +00:00
parent bde9d30b51
commit 8f28ea31bb
2 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
benchmark-suite/ChangeLog
View file

@ -1,3 +1,9 @@
2002-07-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* lib.scm (print-result, print-user-result): Changed the
reporter's outputs to use symbols rather than strings to document
the individual values. Thanks to Neil Jerram for the suggestion.
2002-07-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* benchmarks/0-reference.bm: Added as a reference benchmark to be

27
benchmark-suite/lib.scm
View file

@ -435,7 +435,7 @@
;;;; Some useful standard reporters:
;;;; Log reporters write all test results to a given log file.
;;;; Log reporters write all benchmark results to a given log file.
;;;; Full reporters write all benchmark results to the standard output.
;;;; User reporters write some interesting results to the standard output.
@ -452,14 +452,14 @@
(benchmark-core-time\interpreter
(benchmark-core-time\interpreter iterations before after gc-time)))
(write (list name iterations
"total:" (/ total-time time-base)
"user:" (/ user-time time-base)
"system:" (/ system-time time-base)
"frame:" (/ frame-time time-base)
"benchmark:" (/ benchmark-time time-base)
"user/interp:" (/ user-time\interpreter time-base)
"bench/interp:" (/ benchmark-core-time\interpreter time-base)
"gc:" (/ gc-time time-base))
'total (/ total-time time-base)
'user (/ user-time time-base)
'system (/ system-time time-base)
'frame (/ frame-time time-base)
'benchmark (/ benchmark-time time-base)
'user/interp (/ user-time\interpreter time-base)
'bench/interp (/ benchmark-core-time\interpreter time-base)
'gc (/ gc-time time-base))
port)
(newline port)))
@ -484,10 +484,10 @@
(benchmark-core-time\interpreter
(benchmark-core-time\interpreter iterations before after gc-time)))
(write (list name iterations
"user:" (/ user-time time-base)
"benchmark:" (/ benchmark-time time-base)
"bench/interp:" (/ benchmark-core-time\interpreter time-base)
"gc:" (/ gc-time time-base))
'user (/ user-time time-base)
'benchmark (/ benchmark-time time-base)
'bench/interp (/ benchmark-core-time\interpreter time-base)
'gc (/ gc-time time-base))
port)
(newline port)))
@ -518,4 +518,3 @@
;;; Finally, set the default reporter
(set! default-reporter user-reporter)