Changeset 12085 in project
- Timestamp:
- 10/01/08 11:59:57 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/batch-driver.scm
r11842 r12085 79 79 (define-constant default-inline-max-size 10) 80 80 (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)) 81 89 82 90 … … 498 506 [proc (user-pass-2)] ) 499 507 (when (debugging 'M "; requirements:") 500 (pretty-print ( apply append(vector->list file-requirements))))508 (pretty-print (concatenate (vector->list file-requirements)))) 501 509 (when proc 502 510 (when verbose (printf "Secondary user pass...~%")) … … 575 583 (print-node "optimized" '|7| node2) 576 584 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 577 593 (begin-time) 578 594 (let ([node3 (perform-closure-conversion node2 db)]) -
chicken/trunk/compiler.scm
r12021 r12085 314 314 (define-foreign-variable default-target-stack-size int "C_DEFAULT_TARGET_STACK_SIZE") ) 315 315 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 323 316 (define-constant foreign-type-table-size 301) 324 317 (define-constant analysis-database-size 3001) -
chicken/trunk/csi.scm
r11989 r12085 115 115 (print* t) 116 116 (string-set! t p o) 117 (let ((t0 (+ (current-milliseconds) 30)))117 (let ((t0 (+ (current-milliseconds) 20))) 118 118 (let loop () ; crude, but doesn't need srfi-18 119 119 (when (< (current-milliseconds) t0)
Note: See TracChangeset
for help on using the changeset viewer.