Changeset 12085 in project


Ignore:
Timestamp:
10/01/08 11:59:57 (12 years ago)
Author:
felix winkelmann
Message:

moved user passes into batch-driver; added post-opt. user pass

Location:
chicken/trunk
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/batch-driver.scm

    r11842 r12085  
    7979(define-constant default-inline-max-size 10)
    8080(define-constant funny-message-timeout 60000)
     81
     82(define user-options-pass (make-parameter #f))
     83(define user-read-pass (make-parameter #f))
     84(define user-preprocessor-pass (make-parameter #f))
     85(define user-pass (make-parameter #f))
     86(define user-pass-2 (make-parameter #f))
     87(define user-post-analysis-pass (make-parameter #f))
     88(define user-post-optimization-pass (make-parameter #f))
    8189
    8290
     
    498506                    [proc (user-pass-2)] )
    499507               (when (debugging 'M "; requirements:")
    500                  (pretty-print (apply append (vector->list file-requirements))))
     508                 (pretty-print (concatenate (vector->list file-requirements))))
    501509               (when proc
    502510                 (when verbose (printf "Secondary user pass...~%"))
     
    575583                            (print-node "optimized" '|7| node2)
    576584
     585                            (let ((proc (user-post-optimization-pass)))
     586                              (when proc
     587                                (when verbose
     588                                  (printf "post-optimization user pass...~%"))
     589                                (begin-time)
     590                                (proc node2 db)
     591                                (end-time "post-optimization user pass")))
     592
    577593                            (begin-time)
    578594                            (let ([node3 (perform-closure-conversion node2 db)])
  • chicken/trunk/compiler.scm

    r12021 r12085  
    314314  (define-foreign-variable default-target-stack-size int "C_DEFAULT_TARGET_STACK_SIZE") )
    315315
    316 (define user-options-pass (make-parameter #f))
    317 (define user-read-pass (make-parameter #f))
    318 (define user-preprocessor-pass (make-parameter #f))
    319 (define user-pass (make-parameter #f))
    320 (define user-pass-2 (make-parameter #f))
    321 (define user-post-analysis-pass (make-parameter #f))
    322 
    323316(define-constant foreign-type-table-size 301)
    324317(define-constant analysis-database-size 3001)
  • chicken/trunk/csi.scm

    r11989 r12085  
    115115          (print* t)
    116116          (string-set! t p o)
    117           (let ((t0 (+ (current-milliseconds) 30)))
     117          (let ((t0 (+ (current-milliseconds) 20)))
    118118            (let loop ()                ; crude, but doesn't need srfi-18
    119119              (when (< (current-milliseconds) t0)
Note: See TracChangeset for help on using the changeset viewer.