Changeset 12085 in project

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:

• batch-driver.scm (modified) (3 diffs)
• compiler.scm (modified) (1 diff)
• csi.scm (modified) (1 diff)
• misc/inl.scm (added)

chicken/trunk/batch-driver.scm

@@ -79 +79 @@
 (define-constant default-inline-max-size 10)
 (define-constant funny-message-timeout 60000)
+
+(define user-options-pass (make-parameter #f))
+(define user-read-pass (make-parameter #f))
+(define user-preprocessor-pass (make-parameter #f))
+(define user-pass (make-parameter #f))
+(define user-pass-2 (make-parameter #f))
+(define user-post-analysis-pass (make-parameter #f))
+(define user-post-optimization-pass (make-parameter #f))
 
 
@@ -498 +506 @@
                     [proc (user-pass-2)] )
                (when (debugging 'M "; requirements:")
-                 (pretty-print (apply append (vector->list file-requirements))))
+                 (pretty-print (concatenate (vector->list file-requirements))))
                (when proc
                  (when verbose (printf "Secondary user pass...~%"))
@@ -575 +583 @@
                             (print-node "optimized" '|7| node2)
 
+                            (let ((proc (user-post-optimization-pass)))
+                              (when proc
+                                (when verbose
+                                  (printf "post-optimization user pass...~%"))
+                                (begin-time)
+                                (proc node2 db)
+                                (end-time "post-optimization user pass")))
+
                             (begin-time)
                             (let ([node3 (perform-closure-conversion node2 db)])

chicken/trunk/compiler.scm

@@ -314 +314 @@
   (define-foreign-variable default-target-stack-size int "C_DEFAULT_TARGET_STACK_SIZE") )
 
-(define user-options-pass (make-parameter #f))
-(define user-read-pass (make-parameter #f))
-(define user-preprocessor-pass (make-parameter #f))
-(define user-pass (make-parameter #f))
-(define user-pass-2 (make-parameter #f))
-(define user-post-analysis-pass (make-parameter #f))
-
 (define-constant foreign-type-table-size 301)
 (define-constant analysis-database-size 3001)

chicken/trunk/csi.scm

@@ -115 +115 @@
           (print* t)
           (string-set! t p o)
-          (let ((t0 (+ (current-milliseconds) 30)))
+          (let ((t0 (+ (current-milliseconds) 20)))
             (let loop ()                ; crude, but doesn't need srfi-18
               (when (< (current-milliseconds) t0)