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