Skip to content
Snippets Groups Projects
Commit 37aac73f authored by wlott's avatar wlott
Browse files

Have push-values return the number of values as a fixnum instead of a raw

number.
parent 6508f4a5
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.5 1990/03/05 21:10:02 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.6 1990/04/03 03:01:51 wlott Exp $
;;;
;;; This file contains the implementation of unknown-values VOPs.
;;;
......@@ -58,7 +58,7 @@
(load-stack-tn temp tn)
(storew temp start-temp i)))))
(move start start-temp)
(loadi count nvals)))
(loadi count (fixnum nvals))))
;;; Push a list of values on the stack, returning Start and Count as used in
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment