Skip to content
Snippets Groups Projects
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
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/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 @@ ...@@ -102,6 +102,7 @@
(:temporary (:sc any-reg :from (:argument 0)) src) (:temporary (:sc any-reg :from (:argument 0)) src)
(:temporary (:sc any-reg :from (:argument 2)) dst) (:temporary (:sc any-reg :from (:argument 2)) dst)
(:temporary (:sc descriptor-reg :from (:argument 1)) temp) (:temporary (:sc descriptor-reg :from (:argument 1)) temp)
(:temporary (:sc any-reg) i)
(:results (start :scs (any-reg)) (:results (start :scs (any-reg))
(count :scs (any-reg))) (count :scs (any-reg)))
(:generator 20 (:generator 20
...@@ -117,9 +118,10 @@ ...@@ -117,9 +118,10 @@
(inst move start csp-tn) (inst move start csp-tn)
(inst move dst csp-tn) (inst move dst csp-tn)
(inst add csp-tn count) (inst add csp-tn count)
(inst move i count)
LOOP LOOP
(inst subcc count 4) (inst subcc i 4)
(inst ld temp src count) (inst ld temp src i)
(inst b :ne loop) (inst b :ne loop)
(inst st temp dst count) (inst st temp dst i)
DONE)) DONE))
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