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

Oops, deleted the (:variant-vars ...) option from the wrong def-vop.

parent c1df2226
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.16 1990/06/04 06:07:54 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.17 1990/06/04 06:13:43 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.
...@@ -30,7 +30,6 @@ ...@@ -30,7 +30,6 @@
:scs (any-reg descriptor-reg))) :scs (any-reg descriptor-reg)))
(:results (:results
(result :scs (any-reg descriptor-reg))) (result :scs (any-reg descriptor-reg)))
(:variant-vars type-code error-code)
(:temporary (:type random :scs (non-descriptor-reg)) temp)) (:temporary (:type random :scs (non-descriptor-reg)) temp))
(define-vop (simple-type-predicate) (define-vop (simple-type-predicate)
...@@ -39,6 +38,7 @@ ...@@ -39,6 +38,7 @@
(:conditional) (:conditional)
(:info target not-p) (:info target not-p)
(:policy :fast-safe) (:policy :fast-safe)
(:variant-vars type-code)
(:temporary (:type random :scs (non-descriptor-reg)) temp) (:temporary (:type random :scs (non-descriptor-reg)) temp)
(:generator 4 (:generator 4
(test-simple-type value temp target not-p type-code))) (test-simple-type value temp target not-p type-code)))
......
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