Skip to content
Snippets Groups Projects
Commit ec1088c6 authored by wlott's avatar wlott
Browse files

Changed check-move-function-consistency to use warn to note problems

instead of error, so that we don't have to define bogus move functions for
the FPA and APFA SCs on the RT.
parent 712d3455
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/represent.lisp,v 1.24 1991/04/24 11:27:45 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.25 1991/05/03 02:05:21 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -221,19 +221,19 @@
(let ((moves (sc-move-functions sc)))
(dolist (const (sc-constant-scs sc))
(unless (svref moves (sc-number const))
(error "No move function defined to load SC ~S from constant ~
SC ~S."
(sc-name sc) (sc-name const))))
(warn "No move function defined to load SC ~S from constant ~
SC ~S."
(sc-name sc) (sc-name const))))
(dolist (alt (sc-alternate-scs sc))
(unless (svref moves (sc-number alt))
(error "No move function defined to load SC ~S from alternate ~
SC ~S."
(sc-name sc) (sc-name alt)))
(warn "No move function defined to load SC ~S from alternate ~
SC ~S."
(sc-name sc) (sc-name alt)))
(unless (svref (sc-move-functions alt) i)
(error "No move function defined to save SC ~S to alternate ~
SC ~S."
(sc-name sc) (sc-name alt)))))))))
(warn "No move function defined to save SC ~S to alternate ~
SC ~S."
(sc-name sc) (sc-name alt)))))))))
;;;
(check-move-function-consistency)
......
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