From 2a786ff371a0c243df23c26feefc33cdb430eb93 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 26 Oct 1991 05:48:13 +0000 Subject: [PATCH] Fixed REALLY-RETURN-MULTIPLE to actually default the remaining registers. It was comparing NARGS against 1 and 2, when it should have been comparing NARGS against (fixnum 1) and (fixnum 2). --- assembly/rt/assem-rtns.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/assembly/rt/assem-rtns.lisp b/assembly/rt/assem-rtns.lisp index 56947b64d..5b06012e3 100644 --- a/assembly/rt/assem-rtns.lisp +++ b/assembly/rt/assem-rtns.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/assem-rtns.lisp,v 1.4 1991/04/19 03:14:40 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/assem-rtns.lisp,v 1.5 1991/10/26 05:48:13 wlott Exp $ ;;; (in-package "RT") @@ -111,10 +111,10 @@ (inst c nvals 0) (inst bc :eq default-a0-and-on) (loadw a0 src 0) - (inst c nvals 1) + (inst c nvals (fixnum 1)) (inst bc :eq default-a1-and-on) (loadw a1 src 1) - (inst c nvals 2) + (inst c nvals (fixnum 2)) (inst bc :eq default-a2-and-on) (loadw a2 src 2) ;; -- GitLab