/[guile]/guile/guile-core/benchmark-suite/lib.scm
ViewVC logotype

Diff of /guile/guile-core/benchmark-suite/lib.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dirk, Sun Jul 21 10:22:54 2002 UTC revision 1.3 by dirk, Sun Jul 21 12:01:26 2002 UTC
# Line 435  Line 435 
435    
436    
437  ;;;; Some useful standard reporters:  ;;;; Some useful standard reporters:
438  ;;;; Log reporters write all test results to a given log file.  ;;;; Log reporters write all benchmark results to a given log file.
439  ;;;; Full reporters write all benchmark results to the standard output.  ;;;; Full reporters write all benchmark results to the standard output.
440  ;;;; User reporters write some interesting results to the standard output.  ;;;; User reporters write some interesting results to the standard output.
441    
# Line 452  Line 452 
452           (benchmark-core-time\interpreter           (benchmark-core-time\interpreter
453            (benchmark-core-time\interpreter iterations before after gc-time)))            (benchmark-core-time\interpreter iterations before after gc-time)))
454      (write (list name iterations      (write (list name iterations
455                   "total:" (/ total-time time-base)                   'total (/ total-time time-base)
456                   "user:" (/ user-time time-base)                   'user (/ user-time time-base)
457                   "system:" (/ system-time time-base)                   'system (/ system-time time-base)
458                   "frame:" (/ frame-time time-base)                   'frame (/ frame-time time-base)
459                   "benchmark:" (/ benchmark-time time-base)                   'benchmark (/ benchmark-time time-base)
460                   "user/interp:" (/ user-time\interpreter time-base)                   'user/interp (/ user-time\interpreter time-base)
461                   "bench/interp:" (/ benchmark-core-time\interpreter time-base)                   'bench/interp (/ benchmark-core-time\interpreter time-base)
462                   "gc:" (/ gc-time time-base))                   'gc (/ gc-time time-base))
463             port)             port)
464      (newline port)))      (newline port)))
465    
# Line 484  Line 484 
484           (benchmark-core-time\interpreter           (benchmark-core-time\interpreter
485            (benchmark-core-time\interpreter iterations before after gc-time)))            (benchmark-core-time\interpreter iterations before after gc-time)))
486      (write (list name iterations      (write (list name iterations
487                   "user:" (/ user-time time-base)                   'user (/ user-time time-base)
488                   "benchmark:" (/ benchmark-time time-base)                   'benchmark (/ benchmark-time time-base)
489                   "bench/interp:" (/ benchmark-core-time\interpreter time-base)                   'bench/interp (/ benchmark-core-time\interpreter time-base)
490                   "gc:" (/ gc-time time-base))                   'gc (/ gc-time time-base))
491             port)             port)
492      (newline port)))      (newline port)))
493    
# Line 518  Line 518 
518    
519  ;;; Finally, set the default reporter  ;;; Finally, set the default reporter
520  (set! default-reporter user-reporter)  (set! default-reporter user-reporter)
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26