From 49165b73db231693063a1b4111ce899bd4aa7322 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 26 Jul 1990 00:57:43 +0000
Subject: [PATCH] Fixed lifetime info for fast-eql/fixnum and
 fast-eql-c/fixnum.

---
 compiler/mips/arith.lisp | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index 76b677500..10dafd1b1 100644
--- a/compiler/mips/arith.lisp
+++ b/compiler/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.33 1990/07/21 00:37:27 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.34 1990/07/26 00:57:43 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition arithmetic VOPs for the MIPS.
 ;;;
@@ -379,6 +379,7 @@
   (:info target not-p)
   (:effects)
   (:affected)
+  (:temporary (:scs (non-descriptor-reg)) temp)
   (:policy :fast-safe))
 
 (deftype integer-with-a-bite-out (s bite)
@@ -393,40 +394,34 @@
   (:args (x :scs (any-reg))
 	 (y :scs (any-reg)))
   (:arg-types tagged-num tagged-num)
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:note "inline fixnum comparison"))
 
 (define-vop (fast-conditional-c/fixnum fast-conditional/fixnum)
   (:args (x :scs (any-reg)))
   (:arg-types tagged-num (:constant (integer-with-a-bite-out 14 #.(fixnum 1))))
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:info target not-p y))
 
 (define-vop (fast-conditional/signed fast-conditional)
   (:args (x :scs (signed-reg))
 	 (y :scs (signed-reg)))
   (:arg-types signed-num signed-num)
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:note "inline (signed-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/signed fast-conditional/signed)
   (:args (x :scs (signed-reg)))
   (:arg-types signed-num (:constant (integer-with-a-bite-out 16 1)))
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:info target not-p y))
 
 (define-vop (fast-conditional/unsigned fast-conditional)
   (:args (x :scs (unsigned-reg))
 	 (y :scs (unsigned-reg)))
   (:arg-types unsigned-num unsigned-num)
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:note "inline (unsigned-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/unsigned fast-conditional/unsigned)
   (:args (x :scs (unsigned-reg)))
   (:arg-types unsigned-num (:constant (and (integer-with-a-bite-out 16 1)
 					   unsigned-byte)))
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:info target not-p y))
 
 
@@ -508,6 +503,7 @@
   (:arg-types * tagged-num)
   (:note "inline fixnum comparison")
   (:translate eql)
+  (:ignore temp)
   (:generator 3
     (if not-p
 	(inst bne x y target)
@@ -517,7 +513,6 @@
 (define-vop (fast-eql-c/fixnum fast-conditional/fixnum)
   (:args (x :scs (any-reg descriptor-reg)))
   (:arg-types * (:constant (signed-byte 14)))
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) temp)
   (:info target not-p y)
   (:translate eql)
   (:generator 2
-- 
GitLab