Changeset 15246 in project for chicken/trunk/support.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/support.scm

    r15234 r15246  
    2929
    3030
    31 (private compiler
    32   compiler-arguments process-command-line dump-nodes dump-undefined-globals
    33   default-standard-bindings default-extended-bindings
    34   foldable-bindings dump-defined-globals
    35   installation-home optimization-iterations compiler-cleanup-hook decompose-lambda-list
    36   file-io-only banner disabled-warnings internal-bindings
    37   unit-name insert-timer-checks used-units source-filename pending-canonicalizations
    38   foreign-declarations block-compilation line-number-database-size node->sexpr sexpr->node
    39   target-heap-size target-stack-size variable-visible? hide-variable export-variable
    40   default-default-target-heap-size default-default-target-stack-size verbose-mode original-program-size
    41   current-program-size line-number-database-2 foreign-lambda-stubs immutable-constants foreign-variables
    42   rest-parameters-promoted-to-vector inline-table inline-table-used constant-table constants-used
    43   dependency-list broken-constant-nodes inline-substitutions-enabled emit-syntax-trace-info
    44   block-variable-literal? copy-node! valid-c-identifier? tree-copy copy-node-tree-and-rename
    45   direct-call-ids foreign-type-table first-analysis scan-sharp-greater-string
    46   make-block-variable-literal block-variable-literal-name variable-mark
    47   expand-profile-lambda profile-lambda-list profile-lambda-index profile-info-vector-name
    48   initialize-compiler canonicalize-expression expand-foreign-lambda update-line-number-database scan-toplevel-assignments
    49   perform-cps-conversion analyze-expression simplifications perform-high-level-optimizations perform-pre-optimization!
    50   reorganize-recursive-bindings substitution-table simplify-named-call
    51   perform-closure-conversion prepare-for-code-generation compiler-source-file create-foreign-stub expand-foreign-lambda*
    52   transform-direct-lambdas! finish-foreign-result csc-control-file
    53   debugging-chicken bomb check-signature posq stringify symbolify build-lambda-list
    54   string->c-identifier c-ify-string words words->bytes check-and-open-input-file close-checked-input-file fold-inner
    55   constant? basic-literal? source-info->string mark-variable load-inline-file
    56   collapsable-literal? immediate? canonicalize-begin-body string->expr get get-all
    57   put! collect! count! get-line get-line-2 find-lambda-container display-analysis-database varnode qnode
    58   build-node-graph build-expression-tree fold-boolean inline-lambda-bindings match-node expression-has-side-effects?
    59   simple-lambda-node? compute-database-statistics print-program-statistics output gen gen-list
    60   pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables
    61   topological-sort print-version print-usage initialize-analysis-database estimate-foreign-result-location-size
    62   real-name real-name-table set-real-name! real-name2 display-real-name-table display-line-number-database
    63   default-declarations units-used-by-default words-per-flonum emit-control-file-item compiler-warning
    64   foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators
    65   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
    66   default-optimization-iterations chop-separator chop-extension follow-without-loop
    67   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
    68   foreign-argument-conversion foreign-result-conversion final-foreign-type debugging source-info->line
    69   constant-declarations process-lambda-documentation big-fixnum? sort-symbols llist-length
    70   export-dump-hook intrinsic? node->sexpr emit-global-inline-file inline-max-size
    71   make-random-name foreign-type-convert-result foreign-type-convert-argument
    72   load-identifier-database)
    73 
    74 
     31(include "compiler-namespace")
    7532(include "tweaks")
    7633(include "banner")
     
    819776       (write sym)
    820777       (newline) ) )
     778   db) )
     779
     780(define (dump-global-refs db)
     781  (##sys#hash-table-for-each
     782   (lambda (sym plist)
     783     (when (assq 'global plist)
     784       (let ((a (assq 'references plist)))
     785         (write (list sym (if a (length (cdr a)) 0)))
     786         (newline) ) ) )
    821787   db) )
    822788
Note: See TracChangeset for help on using the changeset viewer.