suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix benchmarking for bigloo to work with its default options.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-04-25 17:15:58 -04:00
parent 2a7ca22a16
commit 7800e417d2
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/benchmarks/common/auto.rkt
View File

@ -130,7 +130,7 @@ exec racket -qu "$0" ${1+"$@"}
(delete-file (append-extension-suffix (symbol->string bm))))
(define (run-exe bm)
(system (symbol->string bm)))
(system (format "./~a" (symbol->string bm))))
(define (run-exe/time bm)
(system (format "time ~a" bm)))

9
collects/tests/racket/benchmarks/common/mk-bigloo.rktl
View File

@ -11,12 +11,7 @@
(newline))
#:exists 'truncate/replace)
(when (system (format "bigloo -w -o ~a -copt -m32 -call/cc -copt -O3 -copt -fomit-frame-pointer -O6 ~a~a.scm"
name
(if (memq (string->symbol name)
'(ctak))
"-call/cc "
"")
name))
(when (system (format "bigloo -static-bigloo -w -o ~a -copt -m32 -call/cc -copt -O3 -copt -fomit-frame-pointer -O6 ~a.scm"
name name))
(delete-file (format "~a.scm" name))
(delete-file (format "~a.o" name)))