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
extract-time-times
clean-up-bin
'(ctak maze puzzle triangle))
'(cpstack maze puzzle triangle))
(make-impl 'gambit
(run-mk "mk-gambit.ss")
run-gambit-exe

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

@ -11,7 +11,12 @@
(newline))
'truncate/replace)
(when (system (format "bigloo -w -o ~a -copt -O3 -copt -fomit-frame-pointer -O6 ~a.scm"
name name))
(when (system (format "bigloo -w -o ~a -copt -O3 -copt -fomit-frame-pointer -O6 ~a~a.scm"
name
(if (memq (string->symbol name)
'(ctak))
"-call/cc "
"")
name))
(delete-file (format "~a.scm" 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)
(td ((bgcolor ,(lookup-color impl)))
,(if (and n base)
(if (= n base)
'(font ((color "forestgreen")) (b "1"))
(ratio->string (/ n base)))
(let ([s (if (= n base)
"1"
(ratio->string (/ n base)))])
(if (= n fastest)
`(font ((color "forestgreen")) (b ,s))
s))
"-")
nbsp))))
sorted-impls))))))