From 082ae4a5cb3f00f08e2cfa000d3f636e149143f6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 12 Jul 1990 12:43:08 +0000
Subject: [PATCH] Added DIGIT-LSHR which translates
 BIGNUM::%DIGIT-LOGICAL-SHIFT-RIGHT.

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

diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index 10512700d..1750d2001 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.31 1990/07/12 12:18:40 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.32 1990/07/12 12:43:08 ram Exp $
 ;;;
 ;;;    This file contains the VM definition arithmetic VOPs for the MIPS.
 ;;;
@@ -769,6 +769,7 @@
       (signed-reg
        (move res digit)))))
 
+
 (define-vop (digit-ashr)
   (:translate bignum::%ashr)
   (:policy :fast-safe)
@@ -780,18 +781,16 @@
   (:generator 1
     (inst sra result digit count)))
 
-(define-vop (digit-ashl)
+(define-vop (digit-lshr digit-ashr)
+  (:translate bignum::%digit-logical-shift-right)
+  (:generator 1
+    (inst srl result digit count)))
+
+(define-vop (digit-ashl digit-ashr)
   (:translate bignum::%ashl)
-  (:policy :fast-safe)
-  (:args (digit :scs (unsigned-reg))
-	 (count :scs (unsigned-reg)))
-  (:arg-types unsigned-num positive-fixnum)
-  (:results (result :scs (unsigned-reg)))
-  (:result-types unsigned-num)
   (:generator 1
     (inst sll result digit count)))
 
-
 
 ;;;; Static functions.
 
-- 
GitLab