masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-16 08:50:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix ref ssa propagation

Browse source
This commit is contained in:
Andrea Corallo 2019-11-07 21:40:51 +01:00
parent f97c03ebca
commit 93aeb781e1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp.el
View file

@ -1489,7 +1489,9 @@ This can run just once."
(when (cl-reduce #'eq (mapcar #'comp-mvar-type rest))
(setf (comp-mvar-type lval) (comp-mvar-type (car rest))))
;; Reference propagation.
(setf (comp-mvar-ref lval) (cl-every #'comp-mvar-ref rest)))))
(let ((operands (cons lval rest)))
(when (cl-some #'comp-mvar-ref operands)
(mapc (lambda (x) (setf (comp-mvar-ref x) t)) rest))))))
(defun comp-propagate* ()
"Propagate for set and phi operands."