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

    r14870 r14874  
    6666  default-optimization-iterations chop-separator chop-extension follow-without-loop
    6767  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
     68  foreign-argument-conversion foreign-result-conversion final-foreign-type debugging source-info->line
    6969  constant-declarations process-lambda-documentation big-fixnum? sort-symbols llist-length
    7070  export-dump-hook intrinsic? node->sexpr emit-global-inline-file inline-max-size
     
    673673  (node-parameters-set! to (node-parameters from))
    674674  (node-subexpressions-set! to (node-subexpressions from))
    675   (let ([len-from (##sys#size from)]
    676         [len-to (##sys#size to)] )
    677     (do ([i 4 (fx+ i 1)])
    678         ((or (fx>= i len-from) (fx>= i len-to)))
    679       (##sys#setslot to i (##sys#slot from i)) ) ) )
     675  to)
    680676
    681677(define (node->sexpr n)
     
    14291425      (and info (->string info))) )
    14301426
     1427(define (source-info->line info)
     1428  (if (list? info)
     1429      (cadr info)
     1430      (and info (->string info))) )
     1431
    14311432
    14321433;;; We need this for constant folding:
Note: See TracChangeset for help on using the changeset viewer.