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

Fix misleading comments in `gc-benchmarks/run-benchmark.scm'.

Browse source 
* gc-benchmarks/run-benchmark.scm (pretty-print-result): Fix comments.
This commit is contained in:
Ludovic Courtès 2009-09-08 23:32:23 +02:00
parent b529eb5797
commit 0588379a2a
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gc-benchmarks/run-benchmark.scm
View file

@ -108,15 +108,15 @@ exec ${GUILE-guile} -q -l "$0" \
(define ref-time (assoc-ref reference 'execution-time)) (define ref-time (assoc-ref reference 'execution-time))
(define (distance x1 y1 x2 y2) (define (distance x1 y1 x2 y2)
;; Return the distance between (X1,Y1) and (X2,Y2), using a scale such ;; Return the distance between (X1,Y1) and (X2,Y2). Y is the heap size,
;; that REFERENCE is at (1,1). ;; in MiB and X is the execution time in seconds.
(let ((y1 (/ y1 (expt 2 20))) (let ((y1 (/ y1 (expt 2 20)))
(y2 (/ y2 (expt 2 20)))) (y2 (/ y2 (expt 2 20))))
(sqrt (+ (expt (- y1 y2) 2) (sqrt (+ (expt (- y1 y2) 2)
(expt (- x1 x2) 2))))) (expt (- x1 x2) 2)))))
(define (score time heap) (define (score time heap)
;; Return a score between -1.0 and +1.0. The score is positive if the ;; Return a score lower than +1.0. The score is positive if the
;; distance to the origin of (TIME,HEAP) is smaller than that of ;; distance to the origin of (TIME,HEAP) is smaller than that of
;; (REF-TIME,REF-HEAP), negative otherwise. ;; (REF-TIME,REF-HEAP), negative otherwise.
@ -124,12 +124,12 @@ exec ${GUILE-guile} -q -l "$0" \
;; size | . worse ;; size | . worse
;; | . [-] ;; | . [-]
;; | . ;; | .
;; 1 | . . . .ref. . . . ;; | . . . .ref. . . .
;; | . ;; | .
;; | [+] . ;; | [+] .
;; | better . ;; | better .
;; 0 +--------------------> ;; 0 +-------------------->
;; 1 exec. time ;; exec. time
(let ((ref-dist (distance ref-time ref-heap 0 0)) (let ((ref-dist (distance ref-time ref-heap 0 0))
(dist (distance time heap 0 0))) (dist (distance time heap 0 0)))