From 946999556e5009ab30ca47f19606d38e45343780 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 16 Jun 1990 17:19:45 +0000
Subject: [PATCH] Fixed alloc-g-vector to take the fill value in either any-reg
 or descriptor-reg.

---
 assembly/mips/array.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp
index 83540937d..1b406f73a 100644
--- a/assembly/mips/array.lisp
+++ b/assembly/mips/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.9 1990/06/16 14:38:40 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.10 1990/06/16 17:19:45 wlott Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -58,7 +58,7 @@
 (define-assembly-routine (alloc-g-vector
 			  ()
 			  (:arg length any-reg a0-offset)
-			  (:arg fill descriptor-reg a1-offset)
+			  (:arg fill (descriptor-reg any-reg) a1-offset)
 			  (:res result descriptor-reg a0-offset)
 
 			  (:temp ndescr non-descriptor-reg nl0-offset)
-- 
GitLab