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

In PROPAGATE-LOCAL-CALL-ARGS, be prepared the possibility that other refs to

the function have no dest (and are going to be deleted.)
parent 42ad5c7e
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/ir1opt.lisp,v 1.62 1993/08/19 23:12:09 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.63 1993/08/31 22:52:26 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1388,15 +1388,15 @@ ...@@ -1388,15 +1388,15 @@
(setf (continuation-reoptimize arg) nil))) (setf (continuation-reoptimize arg) nil)))
(dolist (ref (leaf-refs fun)) (dolist (ref (leaf-refs fun))
(unless (eq ref this-ref) (let ((dest (continuation-dest (node-cont ref))))
(setq union (unless (or (eq ref this-ref) (not dest))
(mapcar #'(lambda (this-arg old) (setq union
(when old (mapcar #'(lambda (this-arg old)
(setf (continuation-reoptimize this-arg) nil) (when old
(type-union (continuation-type this-arg) old))) (setf (continuation-reoptimize this-arg) nil)
(basic-combination-args (type-union (continuation-type this-arg) old)))
(continuation-dest (node-cont ref))) (basic-combination-args dest)
union)))) union)))))
(mapc #'(lambda (var type) (mapc #'(lambda (var type)
(when type (when type
......
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