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


Ignore:
Timestamp:
06/03/09 08:53:07 (10 years ago)
Author:
felix winkelmann
Message:
  • added new options to option table in c-platform.scm
  • started with rewrite pass (not implemented yet)
  • removed "compiler" import library
  • added `-consult-inline-file FILENAME'
  • slight scrutiny improvement (real-name for let bindings)
File:
1 edited

Legend:

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

    r14864 r14870  
    542542                   (set! db (analyze 'lift node0))
    543543                   (print-db "analysis" '|0| db 0)
    544                    (end-time "pre-analysis"))
     544                   (end-time "pre-analysis (lambda-lift)"))
    545545                 (begin-time)
    546546                 (perform-lambda-lifting! node0 db)
    547547                 (end-time "lambda lifting")
    548548                 (print-node "lambda lifted" '|L| node0)
     549                 (set! first-analysis #t) )
     550
     551               (when (memq 'rewrite options)
     552                 (begin-time)
     553                 (set! first-analysis #f)
     554                 (set! db (analyze 'rewrite node0))
     555                 (print-db "analysis" '|0| db 0)
     556                 (end-time "pre-analysis (rewrite)")
     557                 (begin-time)
     558                 (apply-rewrite-rules! node0 db)
     559                 (end-time "applying rewrite rules")
     560                 (print-node "applied rewrite rules" '|R| node0)
    549561                 (set! first-analysis #t) )
    550562
     
    561573                        (dribble "Loading inline file ~a ..." ifile)
    562574                        (load-inline-file ifile)))
    563                     (concatenate (map cdr req)))))
     575                    (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)))
    564581
    565582               (set! ##sys#line-number-database #f)
Note: See TracChangeset for help on using the changeset viewer.