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

Changed register-p to allow TN's in the ZERO and NULL SCs, so that every

vop doesn't have to special case them themselves.
parent a6385b57
No related branches found
No related tags found
No related merge requests found
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; 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/mips/insts.lisp,v 1.31 1991/05/24 19:41:42 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.32 1991/07/31 07:06:38 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.31 1991/05/24 19:41:42 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.32 1991/07/31 07:06:38 wlott Exp $
;;; ;;;
;;; Description of the MIPS architecture. ;;; Description of the MIPS architecture.
;;; ;;;
...@@ -101,11 +101,23 @@ ...@@ -101,11 +101,23 @@
(defun register-p (object) (defun register-p (object)
(and (tn-p object) (and (tn-p object)
(eq (sb-name (sc-sb (tn-sc object))) 'registers))) (let* ((sc (tn-sc object))
(sc-name (sc-name sc))
(sb (sc-sb sc))
(sb-name (sb-name sb)))
(or (eq sc-name 'zero)
(eq sc-name 'null)
(eq sb-name 'registers)))))
(defun tn-register-number (tn)
(sc-case tn
(zero zero-offset)
(null null-offset)
(t (tn-offset tn))))
(define-argument-type register (define-argument-type register
:type '(satisfies register-p) :type '(satisfies register-p)
:function tn-offset) :function tn-register-number)
(defun fp-reg-p (object) (defun fp-reg-p (object)
(and (tn-p object) (and (tn-p object)
......
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