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