From 15893dcfdcc88741b9abae4d56bffd4b8c2bef9e Mon Sep 17 00:00:00 2001
From: cwang <cwang>
Date: Wed, 28 Jul 2004 19:22:27 +0000
Subject: [PATCH] Return the right count in values-list. At some point we
 should investigate 4-bit low-tag for amd64.

---
 compiler/amd64/values.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/amd64/values.lisp b/compiler/amd64/values.lisp
index dc272da60..a56b3f4d5 100644
--- a/compiler/amd64/values.lisp
+++ b/compiler/amd64/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (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 @@
 
     DONE
     (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
 ;;; as function arguments.
-- 
GitLab