Changeset 15246 in project for chicken/trunk/compiler.scm


Ignore:
Timestamp:
07/22/09 12:54:00 (12 years ago)
Author:
felix winkelmann
Message:

-debug v; compile-file; all namespace decls in one file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r15234 r15246  
    259259
    260260
    261 (private compiler
    262   compiler-arguments process-command-line explicit-use-flag
    263   default-standard-bindings default-extended-bindings
    264   foldable-bindings llist-length
    265   installation-home decompose-lambda-list external-to-pointer defconstant-bindings constant-declarations
    266   copy-node! error-is-extended-binding toplevel-scope toplevel-lambda-id
    267   unit-name insert-timer-checks used-units external-variables require-imports-flag
    268   profile-info-vector-name finish-foreign-result pending-canonicalizations
    269   foreign-declarations emit-trace-info block-compilation line-number-database-size
    270   make-block-variable-literal block-variable-literal? block-variable-literal-name
    271   target-heap-size target-stack-size valid-c-identifier? profiled-procedures standalone-executable
    272   target-initial-heap-size internal-bindings source-filename dump-nodes source-info->string
    273   default-default-target-heap-size default-default-target-stack-size verbose-mode original-program-size
    274   current-program-size line-number-database-2 foreign-lambda-stubs immutable-constants foreign-variables
    275   rest-parameters-promoted-to-vector inline-table inline-table-used constant-table constants-used
    276   broken-constant-nodes inline-substitutions-enabled loop-lambda-names expand-profile-lambda
    277   profile-lambda-list profile-lambda-index emit-profile expand-profile-lambda
    278   direct-call-ids foreign-type-table first-analysis callback-names disabled-warnings
    279   initialize-compiler canonicalize-expression expand-foreign-lambda update-line-number-database! scan-toplevel-assignments
    280   compiler-warning variable-visible? hide-variable mark-variable inline-locally
    281   perform-cps-conversion analyze-expression simplifications perform-high-level-optimizations perform-pre-optimization!
    282   reorganize-recursive-bindings substitution-table simplify-named-call inline-max-size
    283   perform-closure-conversion prepare-for-code-generation compiler-source-file create-foreign-stub
    284   expand-foreign-lambda* data-declarations emit-control-file-item expand-foreign-primitive
    285   process-declaration external-protos-first basic-literal? rewrite
    286   transform-direct-lambdas! expand-foreign-callback-lambda* debugging emit-unsafe-marker
    287   debugging-chicken bomb check-signature posq stringify symbolify build-lambda-list
    288   string->c-identifier c-ify-string words check-and-open-input-file close-checked-input-file fold-inner constant?
    289   collapsable-literal? immediate? canonicalize-begin-body extract-mutable-constants string->expr get get-all
    290   put! collect! count! get-line get-line-2 find-lambda-container display-analysis-database varnode qnode
    291   build-node-graph build-expression-tree fold-boolean inline-lambda-bindings match-node expression-has-side-effects?
    292   simple-lambda-node? compute-database-statistics print-program-statistics output gen gen-list
    293   pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables
    294   topological-sort print-version print-usage initialize-analysis-database csc-control-file
    295   estimate-foreign-result-location-size inline-output-file compiler-syntax-enabled
    296   expand-foreign-callback-lambda default-optimization-passes default-optimization-passes-when-trying-harder
    297   units-used-by-default words-per-flonum disable-stack-overflow-checking
    298   parameter-limit eq-inline-operator optimizable-rest-argument-operators postponed-initforms
    299   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
    300   make-random-name final-foreign-type real-name-table real-name set-real-name! safe-globals-flag
    301   location-pointer-map inline-globally enable-inline-files
    302   local-definitions export-variable variable-mark intrinsic? do-scrutinize
    303   undefine-shadowed-macros process-lambda-documentation emit-syntax-trace-info
    304   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
    305   do-lambda-lifting file-requirements emit-closure-info
    306   foreign-argument-conversion foreign-result-conversion foreign-type-convert-argument foreign-type-convert-result
    307   big-fixnum? import-libraries unlikely-variables)
    308 
     261(include "compiler-namespace")
    309262
    310263(define (d arg1 . more)
     
    20121965                    (cond (assigned
    20131966                           (debugging
    2014                             'i "global inline candidate was assigned and will not be inlined"
     1967                            'i "global inlining candidate was assigned and will not be inlined"
    20151968                            sym)
    20161969                           (mark-variable sym '##compiler#inline-global 'no))
    20171970                          (else
    20181971                           (let ((lparams (node-parameters n)))
    2019                              (put! db (first lparams) 'simple #t)
     1972                             (put! db (first lparams) 'simple #t) ;XXX hack
    20201973                             (quick-put! plist 'inlinable #t)
    20211974                             (quick-put! plist 'local-value n))))))))
Note: See TracChangeset for help on using the changeset viewer.