Skip to content
Snippets Groups Projects
Commit 12b650ba authored by ram's avatar ram
Browse files

Changed LOCAL-CALL-ANALYZE to call DELETE-FUNCTIONAL when it comes across a

new local function with no references.
parent 6448531c
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.18 1991/04/20 14:12:00 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.19 1991/07/29 16:02:27 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -271,13 +271,18 @@ ...@@ -271,13 +271,18 @@
(declare (type component component)) (declare (type component component))
(loop (loop
(unless (component-new-functions component) (return)) (unless (component-new-functions component) (return))
(let ((fun (pop (component-new-functions component)))) (let* ((fun (pop (component-new-functions component)))
(unless (eq (functional-kind fun) :deleted) (kind (functional-kind fun)))
(when (lambda-p fun) (cond ((eq kind :deleted))
(push fun (component-lambdas component))) ((and (null (leaf-refs fun)) (eq kind nil)
(local-call-analyze-1 fun) (not (functional-entry-function fun)))
(when (lambda-p fun) (delete-functional fun))
(maybe-let-convert fun))))) (t
(when (lambda-p fun)
(push fun (component-lambdas component)))
(local-call-analyze-1 fun)
(when (lambda-p fun)
(maybe-let-convert fun))))))
(undefined-value)) (undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment