From e0da22dd0d8433448b47a6ea40010903ada004b4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 23 Apr 1990 16:37:28 +0000
Subject: [PATCH] Changed result types from t to * so that fixnum will be
 allowed.

Only list one storage class for temporaries.
---
 compiler/mips/arith.lisp | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index 2b60514fc..8890f1eeb 100644
--- a/compiler/mips/arith.lisp
+++ b/compiler/mips/arith.lisp
@@ -105,13 +105,13 @@
 
 ;;; Logical operatons.
 
-(define-fixnum-binop (fast-logior/fixnum logior 1 t)
+(define-fixnum-binop (fast-logior/fixnum logior 1 *)
 		     or :immed-op ori :unsigned t)
 
-(define-fixnum-binop (fast-logand/fixnum logand 1 t)
+(define-fixnum-binop (fast-logand/fixnum logand 1 *)
 		     and :immed-op andi :unsigned t)
 
-(define-fixnum-binop (fast-logxor/fixnum logxor 1 t)
+(define-fixnum-binop (fast-logxor/fixnum logxor 1 *)
 		     xor :immed-op xori :unsigned t)
 
 
@@ -245,9 +245,7 @@
 
 
 (define-vop (fast-if-</fixnum fast-conditional/fixnum)
-  (:temporary (:type fixnum :scs (any-reg descriptor-reg)
-	       :from (:argument 0))
-	      temp)
+  (:temporary (:type fixnum :scs (any-reg) :from (:argument 0)) temp)
   (:translate <)
   (:generator 3
     (sc-case y
@@ -268,9 +266,7 @@
     (nop)))
 
 (define-vop (fast-if->/fixnum fast-conditional/fixnum)
-  (:temporary (:type fixnum :scs (any-reg descriptor-reg)
-	       :from (:argument 0))
-	      temp)
+  (:temporary (:type fixnum :scs (any-reg) :from (:argument 0)) temp)
   (:translate >)
   (:generator 3
     (sc-case y
-- 
GitLab