From 7800e417d2a224b814db5cc7729398124dbc4df2 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 25 Apr 2011 17:15:58 -0400 Subject: [PATCH] Fix benchmarking for bigloo to work with its default options. --- collects/tests/racket/benchmarks/common/auto.rkt | 2 +- collects/tests/racket/benchmarks/common/mk-bigloo.rktl | 9 ++------- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index 13cbbb7430..6385a67aed 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -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))) diff --git a/collects/tests/racket/benchmarks/common/mk-bigloo.rktl b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl index 700d34ae95..614ebdecfb 100644 --- a/collects/tests/racket/benchmarks/common/mk-bigloo.rktl +++ b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl @@ -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)))