From f95ac03e98fbf0e0f4591ffec2b52cb7bb521112 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 27 Apr 1990 19:30:31 +0000
Subject: [PATCH] Specify an offset in addition to an SC for the SAP args to
 byte-blt.

---
 assembly/mips/assem-rtns.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp
index 3b2fe2706..0eed3e472 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.6 1990/04/26 22:25:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.7 1990/04/27 19:30:31 wlott Exp $
 ;;;
 ;;;
 (in-package "C")
@@ -120,9 +120,9 @@
 
 ;;;; Byte-blt
 
-(define-assembly-routine (byte-blt (:arg src :sc sap-reg)
+(define-assembly-routine (byte-blt (:arg src :sc sap-reg :offset nl0-offset)
 				   (:arg src-offset :sc any-reg)
-				   (:arg dst :sc sap-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))
-- 
GitLab