Changeset 37877 in project


Ignore:
Timestamp:
09/04/19 11:46:13 (3 weeks ago)
Author:
felix winkelmann
Message:

coops: simplify + extend benchmark

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/coops/trunk/tests/bench.scm

    r35591 r37877  
    1 #+tc
    2 (import tinyclos)
    3 #+c
    41(import coops)
     2(import (chicken fixnum))
    53
    6 #+tc
    7 (define-generic foo)
    8 #+c
    94(define-generic (foo x))
    105
     
    2116
    2217(define +count+
    23   (cond-expand (csi 10000) (else 1000000)))
     18  (cond-expand (csi 1000000) (else 1000000)))
    2419
    2520(define-syntax times
     
    3732(define t1 (make <test>))
    3833(define t2 (make <subtest>))
     34(define t3 (make <subtest>))
     35(define t4 (make <subtest>))
     36(define t5 (make <subtest>))
     37(define t6 (make <subtest>))
    3938
    4039(print "\nbenchmarking " +count+ " normal procedure calls ... ")
     
    6160 +count+
    6261 (void)
    63  (slot-ref t1 'x))
     62 (slot-ref t1 'x)
     63 (slot-ref t2 'x)
     64 (slot-ref t3 'x)
     65 (slot-ref t4 'x)
     66 (slot-ref t5 'x)
     67 (slot-ref t6 'x))
Note: See TracChangeset for help on using the changeset viewer.