Skip to content
Snippets Groups Projects
Commit bdb214be authored by gerd's avatar gerd
Browse files

* src/compiler/envanal.lisp (find-non-local-exits): Deal with

	exits from deleted lambdas when *converting-for-interpreter*.
parent 9a83786d
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.28 2002/02/06 23:20:46 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.29 2003/06/03 12:22:37 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -291,11 +291,13 @@ ...@@ -291,11 +291,13 @@
(dolist (entry (lambda-entries lambda)) (dolist (entry (lambda-entries lambda))
(dolist (exit (entry-exits entry)) (dolist (exit (entry-exits entry))
(let ((target-env (node-environment entry))) (let ((target-env (node-environment entry)))
(if (eq (node-environment exit) target-env) (unless (and *converting-for-interpreter*
(unless *converting-for-interpreter* (eq (lambda-kind (node-home-lambda exit))
(maybe-delete-exit exit)) :deleted))
(note-non-local-exit target-env exit)))))) (if (eq (node-environment exit) target-env)
(unless *converting-for-interpreter*
(maybe-delete-exit exit))
(note-non-local-exit target-env exit)))))))
(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