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 @@ ...@@ -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.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 @@ ...@@ -221,19 +221,19 @@
(let ((moves (sc-move-functions sc))) (let ((moves (sc-move-functions sc)))
(dolist (const (sc-constant-scs sc)) (dolist (const (sc-constant-scs sc))
(unless (svref moves (sc-number const)) (unless (svref moves (sc-number const))
(error "No move function defined to load SC ~S from constant ~ (warn "No move function defined to load SC ~S from constant ~
SC ~S." SC ~S."
(sc-name sc) (sc-name const)))) (sc-name sc) (sc-name const))))
(dolist (alt (sc-alternate-scs sc)) (dolist (alt (sc-alternate-scs sc))
(unless (svref moves (sc-number alt)) (unless (svref moves (sc-number alt))
(error "No move function defined to load SC ~S from alternate ~ (warn "No move function defined to load SC ~S from alternate ~
SC ~S." SC ~S."
(sc-name sc) (sc-name alt))) (sc-name sc) (sc-name alt)))
(unless (svref (sc-move-functions alt) i) (unless (svref (sc-move-functions alt) i)
(error "No move function defined to save SC ~S to alternate ~ (warn "No move function defined to save SC ~S to alternate ~
SC ~S." SC ~S."
(sc-name sc) (sc-name alt))))))))) (sc-name sc) (sc-name alt)))))))))
;;; ;;;
(check-move-function-consistency) (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