Changeset 40125 in project


Ignore:
Timestamp:
05/22/21 21:18:06 (3 weeks ago)
Author:
Kon Lovett
Message:

microseconds conversion factor is a float (not a number), test runner checks CHICKEN_ environment variables

Location:
release/5/micro-benchmark/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/5/micro-benchmark/trunk/macosx.scm

    r39350 r40125  
    99
    1010(define realtime-microsecs)
    11 (let ((%factor (the (or number boolean) #f)))
     11(let ((%factor (the (or float boolean) #f)))
    1212  ;
    1313  (define %calc-time (foreign-lambda* double ()
  • release/5/micro-benchmark/trunk/micro-benchmark.egg

    r39911 r40125  
    11((synopsis "easily create micro-benchmarks")
    2  (version "0.0.7")
     2 (version "0.0.8")
    33 (author "David Krentzlin")
    44 (maintainer "Kon Lovett")
     
    1010  (extension micro-benchmark
    1111    (types-file)
    12     (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )
     12    (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types"
     13      "-no-procedure-checks-for-toplevel-bindings" "-no-procedure-checks-for-usual-bindings") ) ) )
  • release/5/micro-benchmark/trunk/tests/run.scm

    r39806 r40125  
    77    make-pathname pathname-file pathname-replace-directory pathname-strip-extension)
    88  (only (chicken process) system)
    9   (only (chicken process-context) command-line-arguments)
     9  (only (chicken process-context) command-line-arguments get-environment-variable)
    1010  (only (chicken format) format)
    1111  (only (chicken file) file-exists? find-files)
     
    1313
    1414;; Globals
     15
     16(define *csi* (or (get-environment-variable "CHICKEN_CSI") "csi"))
     17(define *csc* (or (get-environment-variable "CHICKEN_CSC") "csc"))
    1518
    1619(define *csc-init-options* '(
     
    7982
    8083(define (run-test-evaluated source)
    81   (format #t "*** csi ~A ***~%" (pathname-file source))
    82   (system-must (string-append "csi -s " source)) )
     84  (format #t "*** ~A ~A ***~%" *csi* (pathname-file source))
     85  (system-must (string-append *csi* " -s " source)) )
    8386
    8487(define (run-test-compiled source csc-options)
    8588  (let ((optstr (apply string-append (intersperse csc-options " "))))
    86     (format #t "*** csc ~A ~A ***~%" (pathname-file source) optstr)
     89    (format #t "*** ~A ~A ~A ***~%" *csc* (pathname-file source) optstr)
    8790    ;csc output is in current directory
    88     (system-must (string-append "csc" " " optstr " " source)) )
     91    (system-must (string-append *csc* " " optstr " " source)) )
    8992  (system-must (pathname-replace-directory (pathname-strip-extension source) *test-directory*)) )
    9093
  • release/5/micro-benchmark/trunk/windows.scm

    r39344 r40125  
    22
    33(define realtime-microsecs)
    4 (let ((%factor (the (or number boolean) #f)))
     4(let ((%factor (the (or float boolean) #f)))
    55  ;
    66  (define %calc-time (foreign-lambda* double ()
Note: See TracChangeset for help on using the changeset viewer.