Changeset 15346 in project for chicken/trunk


Ignore:
Timestamp:
08/07/09 05:54:45 (10 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.

Location:
chicken/trunk
Files:
2 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)
  • chicken/trunk/tests/runtests.sh

    r15194 r15346  
    142142echo "======================================== srfi-18 tests ..."
    143143$interpret -s srfi-18-tests.scm
     144echo "*** Skipping \"feeley-dynwind\" (for now) ***"
    144145# $interpret -s feeley-dynwind.scm
    145146
     
    194195        *)
    195196            echo $x
    196             ../csc $x -compiler $CHICKEN -C -I.. -L.. -O3 -d0
     197            ../csc $x -compiler $CHICKEN -I.. -L.. -O3 -d0
    197198            ./`basename $x .scm`;;
    198199    esac
Note: See TracChangeset for help on using the changeset viewer.