Changeset 12979 for trunk/abcl/src/org


Ignore:
Timestamp:
10/17/10 19:36:13 (11 years ago)
Author:
astalla
Message:

Do not create class files for local functions that have been inlined

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r12749 r12979  
    919919       (setf (local-function-definition local-function)
    920920       (copy-tree definition))
    921        (setf (local-function-inline-expansion local-function)
    922        (generate-inline-expansion block-name lambda-list body))
     921       ;(setf (local-function-inline-expansion local-function)
     922       ;(generate-inline-expansion block-name lambda-list body))
    923923       (p1-compiland compiland)))
    924924   (push local-function local-functions)))
     
    934934       (push special *visible-variables*))
    935935     (setf (flet-form block)
    936      (list* (car form) local-functions (p1-body (cddr form))))
     936     (list* (car form)
     937      (remove-if (lambda (fn)
     938             (and (inline-p (local-function-name fn))
     939            (not (local-function-references-needed-p fn))))
     940           local-functions)
     941      (p1-body (cddr form))))
    937942     block)))))
    938943
Note: See TracChangeset for help on using the changeset viewer.