From a7ca8ec7054c08b7e75666396c632ec1d32899d2 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 2 Dec 1993 18:50:43 +0000
Subject: [PATCH] Fixed %more-arg-values to return the count instead of always
 returning 0.

---
 compiler/sparc/values.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/sparc/values.lisp b/compiler/sparc/values.lisp
index 2a965067a..a82d79723 100644
--- a/compiler/sparc/values.lisp
+++ b/compiler/sparc/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/sparc/values.lisp,v 1.3 1993/10/07 11:41:20 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/values.lisp,v 1.4 1993/12/02 18:50:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -102,6 +102,7 @@
   (:temporary (:sc any-reg :from (:argument 0)) src)
   (:temporary (:sc any-reg :from (:argument 2)) dst)
   (:temporary (:sc descriptor-reg :from (:argument 1)) temp)
+  (:temporary (:sc any-reg) i)
   (:results (start :scs (any-reg))
 	    (count :scs (any-reg)))
   (:generator 20
@@ -117,9 +118,10 @@
     (inst move start csp-tn)
     (inst move dst csp-tn)
     (inst add csp-tn count)
+    (inst move i count)
     LOOP
-    (inst subcc count 4)
-    (inst ld temp src count)
+    (inst subcc i 4)
+    (inst ld temp src i)
     (inst b :ne loop)
-    (inst st temp dst count)
+    (inst st temp dst i)
     DONE))
-- 
GitLab