Commit a7ca8ec7 authored by wlott's avatar wlott
Browse files

Fixed %more-arg-values to return the count instead of always returning 0.

parent 140574cd
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment