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