From 172e704fc14639b26f5e36c51665474a5363bc86 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 4 Jun 1990 06:13:43 +0000 Subject: [PATCH] Oops, deleted the (:variant-vars ...) option from the wrong def-vop. --- compiler/mips/type-vops.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp index b04c336fd..6f67199d9 100644 --- a/compiler/mips/type-vops.lisp +++ b/compiler/mips/type-vops.lisp @@ -7,7 +7,7 @@ ;;; 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 ;;; for the RT. @@ -30,7 +30,6 @@ :scs (any-reg descriptor-reg))) (:results (result :scs (any-reg descriptor-reg))) - (:variant-vars type-code error-code) (:temporary (:type random :scs (non-descriptor-reg)) temp)) (define-vop (simple-type-predicate) @@ -39,6 +38,7 @@ (:conditional) (:info target not-p) (:policy :fast-safe) + (:variant-vars type-code) (:temporary (:type random :scs (non-descriptor-reg)) temp) (:generator 4 (test-simple-type value temp target not-p type-code))) -- GitLab