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

use bigloo -call/cc when needed

Browse Source 
svn: r4168
This commit is contained in:
Matthew Flatt 2006-08-28 08:23:00 +00:00
parent afb0f5f0dd
commit 2c8ab78953
3 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/benchmarks/common/auto.ss
View File

@ -178,7 +178,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
run-exe/time run-exe/time
extract-time-times extract-time-times
clean-up-bin clean-up-bin
'(ctak maze puzzle triangle)) '(cpstack maze puzzle triangle))
(make-impl 'gambit (make-impl 'gambit
(run-mk "mk-gambit.ss") (run-mk "mk-gambit.ss")
run-gambit-exe run-gambit-exe

9
collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
View File

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

9
collects/tests/mzscheme/benchmarks/common/tabulate.ss
View File

@ -172,9 +172,12 @@ exec mzscheme -qu "$0" ${1+"$@"}
nbsp) nbsp)
(td ((bgcolor ,(lookup-color impl))) (td ((bgcolor ,(lookup-color impl)))
,(if (and n base) ,(if (and n base)
(if (= n base) (let ([s (if (= n base)
'(font ((color "forestgreen")) (b "1")) "1"
(ratio->string (/ n base))) (ratio->string (/ n base)))])
(if (= n fastest)
`(font ((color "forestgreen")) (b ,s))
s))
"-") "-")
nbsp)))) nbsp))))
sorted-impls)))))) sorted-impls))))))