summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-07-21 12:01:26 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-07-21 12:01:26 +0000
commit8f28ea31bb2a95e88b9d9e6e4f29655ab077c939 (patch)
tree57b056fe029d58d1bb073a8d1e56e19ab0d34236
parentbde9d30b514ffffea48f68d303abd3e6fb159a90 (diff)
downloadguile-8f28ea31bb2a95e88b9d9e6e4f29655ab077c939.tar.gz
* 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.
-rw-r--r--benchmark-suite/ChangeLog6
-rw-r--r--benchmark-suite/lib.scm27
2 files changed, 19 insertions, 14 deletions
diff --git a/benchmark-suite/ChangeLog b/benchmark-suite/ChangeLog
index 1ed5c3421..5cc798ed5 100644
--- a/benchmark-suite/ChangeLog
+++ b/benchmark-suite/ChangeLog
@@ -1,5 +1,11 @@
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
used to calibrate iteration counts.
diff --git a/benchmark-suite/lib.scm b/benchmark-suite/lib.scm
index 1f940a251..7dfc8b48c 100644
--- a/benchmark-suite/lib.scm
+++ b/benchmark-suite/lib.scm
@@ -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)
-