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

refine build options for chicken, etc.

Browse Source 
svn: r3869
This commit is contained in:
Matthew Flatt 2006-07-28 16:45:42 +00:00
parent f322dffab5
commit 39c40327ab
4 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/benchmarks/common/README.txt
View File

@ -5,8 +5,9 @@ Bechmarks obtained from
Files that end in ".sch" are supposed to be standard Scheme plus `time'. Files that end in ".sch" are supposed to be standard Scheme plus `time'.
Files that end in ".ss" are MzScheme wrapper modules. Files that end in ".ss" are MzScheme wrapper modules.
To build <benchmark>.sch with Gambit or Bigloo: To build <benchmark>.sch with Gambit, Bigloo, or Chicken:
mzscheme -qr mk-gambit.ss <banchmark> mzscheme -qr mk-gambit.ss <banchmark>
mzscheme -qr mk-bigloo.ss <banchmark> mzscheme -qr mk-bigloo.ss <banchmark>
mzscheme -qr mk-chicken.ss <banchmark>
Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark. Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark.

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

@ -11,7 +11,7 @@
(newline)) (newline))
'truncate/replace) 'truncate/replace)
(when (system (format "bigloo -o ~a -Obench ~a.scm" (when (system (format "bigloo -o ~a -O6 ~a.scm"
name name)) name 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)))

6
collects/tests/mzscheme/benchmarks/common/mk-chicken.ss Normal file
View File

@ -0,0 +1,6 @@
(require (lib "process.ss"))
(define name (vector-ref (current-command-line-arguments) 0))
(system (format "csc -no-trace -no-lambda-info -optimize-level 3 -block -lambda-lift ~a.sch"
name))

2
collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
View File

@ -3,7 +3,7 @@
(define name (vector-ref (current-command-line-arguments) 0)) (define name (vector-ref (current-command-line-arguments) 0))
(when (system (format "gsc -prelude '(include \"gambit-relude.ss\")' ~a.sch" (when (system (format "gsc -prelude '(include \"gambit-prelude.ss\")' ~a.sch"
name)) name))
(when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc" (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc"
name name name)) name name name))