Changeset 15346 in project for chicken/trunk/benchmarks/cscbench.scm


Ignore:
Timestamp:
08/07/09 05:54:45 (12 years ago)
Author:
Kon Lovett
Message:

Rmvd unnecessary '-C' from benchmarks compile ('-I' is a C compiler option). Made compiler format strings glovars w/ "ld" '-s' option rmvd for MacOS X.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/benchmarks/cscbench.scm

    r15050 r15346  
    99(define cc "`csc -cc-name`")
    1010(define chicken "chicken")
     11
     12(define +chicken-format+ "~A ~A -quiet -no-warnings -heap-size 16m -output-file tmpfile.c ~A ~A")
     13(define +cc-format+
     14  (cond-expand
     15    (macos      "~a ~a -s -I.. tmpfile.c -o tmpfile ../lib~achicken.a -lm")
     16    (else       "~a ~a -I.. tmpfile.c -o tmpfile ../lib~achicken.a -lm") ) )
    1117
    1218(define (abort-run) #f)
     
    5258
    5359(define (compile-and-run file decls options coptions unsafe)
    54   (system* "~A ~A -quiet -no-warnings -heap-size 16m -output-file tmpfile.c ~A ~A"
    55            chicken file decls options)
    56   (system* "~a ~a -s -I.. tmpfile.c -o tmpfile ../lib~achicken.a -lm"
    57            cc coptions
    58            (if unsafe "u" ""))
     60  (system* +chicken-format+ chicken file decls options)
     61  (system* +cc-format+ cc coptions (if unsafe "u" ""))
    5962  (let ((time (call-with-current-continuation
    6063               (lambda (abort)
Note: See TracChangeset for help on using the changeset viewer.