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 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
(setf (continuation-reoptimize arg) nil)))
(dolist (ref (leaf-refs fun))
(unless (eq ref this-ref)
(setq union
(mapcar #'(lambda (this-arg old)
(when old
(setf (continuation-reoptimize this-arg) nil)
(type-union (continuation-type this-arg) old)))
(basic-combination-args
(continuation-dest (node-cont ref)))
union))))
(let ((dest (continuation-dest (node-cont ref))))
(unless (or (eq ref this-ref) (not dest))
(setq union
(mapcar #'(lambda (this-arg old)
(when old
(setf (continuation-reoptimize this-arg) nil)
(type-union (continuation-type this-arg) old)))
(basic-combination-args dest)
union)))))
(mapc #'(lambda (var 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