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
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or
"$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 @@
(sc-number rep))))
(when 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))))))))
(do ((cost (funcall costs-slot info) (cdr cost))
(op (funcall ops-slot vop) (tn-ref-across op)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment