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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; This file contains the implementation of unknown-values VOPs.
;;; ;;;
...@@ -58,7 +58,7 @@ ...@@ -58,7 +58,7 @@
(load-stack-tn temp tn) (load-stack-tn temp tn)
(storew temp start-temp i))))) (storew temp start-temp i)))))
(move start start-temp) (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 ;;; 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