Skip to content
Snippets Groups Projects
Commit 15893dcf authored by cwang's avatar cwang
Browse files

Return the right count in values-list.

At some point we should investigate 4-bit low-tag for amd64.
parent f6719a34
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.2 2004/07/27 23:28:41 cwang Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.3 2004/07/28 19:22:27 cwang Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -79,7 +79,8 @@ ...@@ -79,7 +79,8 @@
DONE DONE
(inst mov count start) ; start is high address (inst mov count start) ; start is high address
(inst sub count rsp-tn))) ; stackp is low address (inst sub count rsp-tn) ; stackp is low address
(inst shr count 1))) ; this is unnecessary if we use 4-bit low-tag
;;; Copy the more arg block to the top of the stack so we can use them ;;; Copy the more arg block to the top of the stack so we can use them
;;; as function arguments. ;;; as function arguments.
......
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