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

When computing costs for references by MOVE VOPs, don't signal an error if a

cost is missing.
parent c9c4354e
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/represent.lisp,v 1.29 1991/11/11 23:13:30 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.30 1991/12/22 01:27:48 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -291,7 +291,10 @@ ...@@ -291,7 +291,10 @@
(sc-number rep)))) (sc-number rep))))
(when res (when res
(incf (svref costs scn) res)))) (incf (svref costs scn) res))))
(add-costs (sc-move-costs rep)))))) (dolist (scn scs)
(let ((res (svref (sc-move-costs rep) scn)))
(when res
(incf (svref costs scn) res))))))))
(t (t
(do ((cost (funcall costs-slot info) (cdr cost)) (do ((cost (funcall costs-slot info) (cdr cost))
(op (funcall ops-slot vop) (tn-ref-across op))) (op (funcall ops-slot vop) (tn-ref-across op)))
......
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