Changeset 6488 in project


Ignore:
Timestamp:
10/22/07 07:49:19 (13 years ago)
Author:
felix winkelmann
Message:
  • fixed bug in C_apply (uninit'd variable in unsafe runtime lib)
  • benchmarks use built-in plists, now
Location:
chicken/trunk
Files:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/README

    r6479 r6488  
    33  (c)2000-2007 Felix L. Winkelmann
    44
    5   Version 2.726
     5  Version 2.727
    66
    77
  • chicken/trunk/benchmarks/boyer.scm

    r1016 r6488  
    3434(define (add-lemma term)
    3535  (cond ((and (pair? term) (eq? (car term) 'equal) (pair? (cadr term)))
    36          (put (car (cadr term))
     36         (put! (car (cadr term))
    3737              'lemmas
    38               (cons term (get (car (cadr term)) 'lemmas))))
     38              (cons term (or (get (car (cadr term)) 'lemmas) '()))))
    3939        (else (display "ADD-LEMMA did not like term: ") ;Qobi
    4040              (display term)            ;Qobi
     
    8282(define (rewrite term)
    8383  (cond ((not (pair? term)) term)
    84         (else (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term)))
    85                                    (get (car term) 'lemmas)))))
     84        (else (rewrite-with-lemmas
     85               (cons (car term) (rewrite-args (cdr term)))
     86               (or (get (car term) 'lemmas) '())))))
    8687
    8788(define (rewrite-args lst)
     
    280281(setup)
    281282
    282 
    283283(if (not (eq? #t (time (test))))
    284284    (error "wrong result") )
  • chicken/trunk/benchmarks/browse.scm

    r1016 r6488  
    6565        ((= n 0) a)
    6666      (set! a (cons name a))
    67       (do ((i i (- i 1))) ((zero? i)) (put name (gensym) #f))
    68       (put name
     67      (do ((i i (- i 1))) ((zero? i)) (put! name (gensym) #f))
     68      (put! name
    6969           'pattern
    7070           (do ((i npats (- i 1)) (ipats ipats (cdr ipats)) (a '()))
    7171               ((zero? i) a)
    7272             (set! a (cons (car ipats) a))))
    73       (do ((j (- m i) (- j 1))) ((zero? j)) (put name (gensym) #f)))))
     73      (do ((j (- m i) (- j 1))) ((zero? j)) (put! name (gensym) #f)))))
    7474
    7575(define (browse-random)
  • chicken/trunk/benchmarks/dderiv.scm

    r1016 r6488  
    4040(define (+dderiv a) (cons '+ (map dderiv a)))
    4141
    42 (put '+ 'dderiv +dderiv)    ; install procedure on the property list
     42(put! '+ 'dderiv +dderiv)    ; install procedure on the property list
    4343
    4444(define (-dderiv a) (cons '- (map dderiv a)))
    4545
    46 (put '- 'dderiv -dderiv)    ; install procedure on the property list
     46(put! '- 'dderiv -dderiv)    ; install procedure on the property list
    4747
    4848(define (*dderiv a) (list '* (cons '* a) (cons '+ (map dderiv-aux a))))
    4949
    50 (put '* 'dderiv *dderiv)    ; install procedure on the property list
     50(put! '* 'dderiv *dderiv)    ; install procedure on the property list
    5151
    5252(define (/dderiv a)
     
    5757             (list '* (cadr a) (cadr a) (dderiv (cadr a))))))
    5858
    59 (put '/ 'dderiv /dderiv)    ; install procedure on the property list
     59(put! '/ 'dderiv /dderiv)    ; install procedure on the property list
    6060
    6161(define (dderiv a)
  • chicken/trunk/buildversion

    r6439 r6488  
    1 2.726
     12.727
  • chicken/trunk/cscbench.scm

    r6175 r6488  
    55(require-extension srfi-1 utils posix regex)
    66
    7 (define plist-files '("boyer" "browse" "dderiv"))
    87(define flonum-files '("fft" "maze"))
    98
     
    4746        (display-r fs 3 #\0) ) ) ) )
    4847
    49 (define (compile-and-run file extras decls options coptions unsafe)
    50   (system* "~A ~A -quiet -no-warnings -heap-size 8m -output-file tmpfile.c ~A ~A ~A"
    51            chicken file extras decls options)
    52   ; MacOS X is always "dynamic"
    53   (cond [(eq? 'macosx (software-version))
    54          (system* "~a ~a -I.. tmpfile.c -o tmpfile ../lib~achicken.dylib -lm"
    55                   cc coptions (if unsafe "u" ""))]
    56         [else
    57          (system* "~a ~a -I.. -static tmpfile.c -o tmpfile ../lib~achicken.a -lm"
    58                    cc coptions (if unsafe "u" ""))])
     48(define (compile-and-run file decls options coptions unsafe)
     49  (system* "~A ~A -quiet -no-warnings -heap-size 8m -output-file tmpfile.c ~A ~A"
     50           chicken file decls options)
     51  (system* "~a ~a -static -I.. tmpfile.c -o tmpfile ../lib~achicken.a -lm"
     52           cc coptions (if unsafe "u" ""))
    5953  (let ([time (call-with-current-continuation
    6054               (lambda (abort)
     
    10195   (lambda (file)
    10296     (let* ([name (pathname-file file)]
    103             [extras (if (member name plist-files)
    104                         "-prologue plists.scm"
    105                         "") ]
    10697            [options (string-intersperse options " ")] )
    10798       (display-l name 16 #\space)
    10899       (flush-output)
    109        (set! sum-base (+ sum-base (compile-and-run file extras "-debug-level 0 -optimize-level 1 -lambda-lift" options "" #f)))
     100       (set! sum-base (+ sum-base (compile-and-run file "-debug-level 0 -optimize-level 1 -lambda-lift" options "" #f)))
    110101       (dflush "  ")
    111        (set! sum-unsafe (+ sum-unsafe (compile-and-run file extras "-debug-level 0 -optimize-level 3 -block -disable-interrupts -lambda-lift" options "" #t)))
     102       (set! sum-unsafe (+ sum-unsafe (compile-and-run file "-debug-level 0 -optimize-level 3 -block -disable-interrupts -lambda-lift" options "" #t)))
    112103       (dflush "  ")
    113104       (unless (member name flonum-files)
    114          (set! sum-max (+ sum-max (compile-and-run file extras "-benchmark-mode" options "" #t) )))
     105         (set! sum-max (+ sum-max (compile-and-run file "-benchmark-mode" options "" #t) )))
    115106       (newline)
    116107       (flush-output) ) )
  • chicken/trunk/runtime.c

    r6325 r6488  
    58245824#ifndef C_UNSAFE_RUNTIME
    58255825  if(c < 4) C_bad_min_argc(c, 4);
     5826#endif
    58265827
    58275828  fn2 = resolve_procedure(fn, "apply");
    5828 #endif
    58295829
    58305830  va_start(v, fn);
  • chicken/trunk/version.scm

    r6439 r6488  
    1 (define-constant +build-version+ "2.726")
     1(define-constant +build-version+ "2.727")
Note: See TracChangeset for help on using the changeset viewer.