From 63f546dc7df5502407795bef1ace3a265be882e9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 15 May 1990 01:26:12 +0000
Subject: [PATCH] Removed byte-blt primitive in favor of new primitive
 translator in vm-tran.

---
 assembly/mips/assem-rtns.lisp | 37 +----------------------------------
 1 file changed, 1 insertion(+), 36 deletions(-)

diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp
index 0eed3e472..4245f071b 100644
--- a/assembly/mips/assem-rtns.lisp
+++ b/assembly/mips/assem-rtns.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.7 1990/04/27 19:30:31 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.8 1990/05/15 01:26:12 wlott Exp $
 ;;;
 ;;;
 (in-package "C")
@@ -116,38 +116,3 @@
   (inst nop))
 
 
-
-
-;;;; Byte-blt
-
-(define-assembly-routine (byte-blt (:arg src :sc sap-reg :offset nl0-offset)
-				   (:arg src-offset :sc any-reg)
-				   (:arg dst :sc sap-reg :offset nl1-offset)
-				   (:arg dst-offset :sc any-reg)
-				   (:arg dst-end :sc any-reg)
-				   (:temp temp :sc non-descriptor-reg))
-
-  ;; If there is nothing to do, don't do it.
-  (inst beq dst-offset dst-end done)
-
-  ;; Fix up the src and dst offsets.
-
-  (inst sra temp src-offset 2)
-  (inst addu src temp)
-  (inst sra temp dst-offset 2)
-  (inst addu dst temp)
-
-  ;; The loop
-
-  loop
-
-  (inst lbu temp src)
-  (inst addu src 1)
-  (inst sb temp dst)
-  (inst addu dst-offset (fixnum 1))
-  (inst bne dst-offset dst-end loop)
-  (inst addu dst 1)
-  
-  done
-
-  )
-- 
GitLab