Skip to content
Snippets Groups Projects
Commit 2a786ff3 authored by wlott's avatar wlott
Browse files

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).
parent ddd451a1
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; 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") (in-package "RT")
...@@ -111,10 +111,10 @@ ...@@ -111,10 +111,10 @@
(inst c nvals 0) (inst c nvals 0)
(inst bc :eq default-a0-and-on) (inst bc :eq default-a0-and-on)
(loadw a0 src 0) (loadw a0 src 0)
(inst c nvals 1) (inst c nvals (fixnum 1))
(inst bc :eq default-a1-and-on) (inst bc :eq default-a1-and-on)
(loadw a1 src 1) (loadw a1 src 1)
(inst c nvals 2) (inst c nvals (fixnum 2))
(inst bc :eq default-a2-and-on) (inst bc :eq default-a2-and-on)
(loadw a2 src 2) (loadw a2 src 2)
;; ;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment