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