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

Added vop arguments to the rest of the internal errors.

parent 5c9ef7e4
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.19 1990/07/03 06:31:21 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.20 1990/07/03 07:12:38 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of type testing and checking VOPs ;;; This file contains the VM definition of type testing and checking VOPs
;;; for the RT. ;;; for the RT.
...@@ -280,7 +280,7 @@ ...@@ -280,7 +280,7 @@
(define-vop (check-signed-byte-32 check-hairy-type) (define-vop (check-signed-byte-32 check-hairy-type)
(:generator 45 (:generator 45
(let ((nope (generate-error-code object-not-signed-byte-32-error obj)) (let ((nope (generate-error-code vop object-not-signed-byte-32-error obj))
(yep (gen-label))) (yep (gen-label)))
(inst and temp obj #x3) (inst and temp obj #x3)
(inst beq temp zero-tn yep) (inst beq temp zero-tn yep)
...@@ -352,7 +352,8 @@ ...@@ -352,7 +352,8 @@
(define-vop (check-unsigned-byte-32 check-hairy-type) (define-vop (check-unsigned-byte-32 check-hairy-type)
(:generator 45 (:generator 45
(let ((nope (generate-error-code object-not-unsigned-byte-32-error obj)) (let ((nope
(generate-error-code vop object-not-unsigned-byte-32-error obj))
(yep (gen-label)) (yep (gen-label))
(fixnum (gen-label)) (fixnum (gen-label))
(single-word (gen-label))) (single-word (gen-label)))
...@@ -425,7 +426,7 @@ ...@@ -425,7 +426,7 @@
,@body)) ,@body))
(define-vop (,check-name check-list-symbol) (define-vop (,check-name check-list-symbol)
(:generator 8 (:generator 8
(let ((target (generate-error-code ,error-code obj)) (let ((target (generate-error-code vop ,error-code obj))
(not-p t)) (not-p t))
,@body ,@body
(move res obj))))))) (move res obj)))))))
......
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