Changeset 14874 in project for chicken/trunk/batch-driver.scm


Ignore:
Timestamp:
06/03/09 13:25:11 (11 years ago)
Author:
felix winkelmann
Message:

global inlining fixes; other small things

File:
1 edited

Legend:

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

    r14870 r14874  
    3535  compiler-arguments process-command-line dump-nodes dump-undefined-globals
    3636  default-standard-bindings default-extended-bindings
    37   foldable-bindings dump-defined-globals
     37  foldable-bindings dump-defined-globals apply-pre-cps-rewrite-rules!
    3838  compiler-cleanup-hook disabled-warnings local-definitions inline-output-file
    3939  file-io-only undefine-shadowed-macros profiled-procedures
     
    556556                 (end-time "pre-analysis (rewrite)")
    557557                 (begin-time)
    558                  (apply-rewrite-rules! node0 db)
    559                  (end-time "applying rewrite rules")
    560                  (print-node "applied rewrite rules" '|R| node0)
     558                 (apply-pre-cps-rewrite-rules! node0 db)
     559                 (end-time "applying pre-CPS rewrite rules")
     560                 (print-node "applied pre-CPS rewrite rules" '|R| node0)
    561561                 (set! first-analysis #t) )
    562562
     
    574574                        (load-inline-file ifile)))
    575575                    (concatenate (map cdr req))) )
    576                  (for-each
    577                   (lambda (ilf)
    578                     (dribble "Loading inline file ~a ..." ilf)
    579                     (load-inline-file ilf) )
    580                   (collect-options 'consult-inline-file)))
     576                 (let ((ifs (collect-options 'consult-inline-file)))
     577                   (unless (null? ifs)
     578                     (set! inline-globally #t)
     579                     (set! inline-locally #t)
     580                     (for-each
     581                      (lambda (ilf)
     582                        (dribble "Loading inline file ~a ..." ilf)
     583                        (load-inline-file ilf) )
     584                      ifs))))
    581585
    582586               (set! ##sys#line-number-database #f)
Note: See TracChangeset for help on using the changeset viewer.