Commit f42502bd authored by toy's avatar toy
Browse files

Update the LISTIFY-REST-ARGS vop to include an additional 

DYNAMIC-EXTENT arg.  (Untested on these platforms, except for sparc.)
parent b359933a

compiler/alpha/call.lisp

+3 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/call.lisp,v 1.4 2003/08/03 11:27:49 gerd Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/call.lisp,v 1.5 2003/08/05 15:51:35 toy Rel $")

;;;

;;; **********************************************************************

;;;
@@ -1181,7 +1181,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context-arg :target context :scs (descriptor-reg))

	 (count-arg :target count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) context)

  (:temporary (:scs (any-reg) :from (:argument 1)) count)

  (:temporary (:scs (descriptor-reg) :from :eval) temp dst)

compiler/hppa/call.lisp

+3 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/call.lisp,v 1.12 2003/08/03 11:27:48 gerd Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/call.lisp,v 1.13 2003/08/05 15:51:35 toy Rel $")

;;;

;;; **********************************************************************

;;;
@@ -1122,7 +1122,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context-arg :target context :scs (descriptor-reg))

	 (count-arg :target count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) context)

  (:temporary (:scs (any-reg) :from (:argument 1)) count)

  (:temporary (:scs (descriptor-reg) :from :eval) temp)

compiler/mips/call.lisp

+5 −3
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.64 2003/08/03 11:27:48 gerd Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.65 2003/08/05 15:51:35 toy Rel $")

;;;

;;; **********************************************************************

;;;
@@ -1211,7 +1211,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context-arg :target context :scs (descriptor-reg))

	 (count-arg :target count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) context)

  (:temporary (:scs (any-reg) :from (:argument 1)) count)

  (:temporary (:scs (descriptor-reg) :from :eval) temp dst)
@@ -1262,7 +1263,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context :scs (descriptor-reg) :target src)

	 (count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) src)

  (:temporary (:scs (any-reg) :from :eval) end)

  (:temporary (:scs (descriptor-reg) :from :eval) temp dst)

compiler/ppc/call.lisp

+3 −2
Original line number Diff line number Diff line
@@ -7,7 +7,7 @@ 
;;; Scott Fahlman or slisp-group@cs.cmu.edu.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/call.lisp,v 1.3 2003/08/03 11:27:47 gerd Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/call.lisp,v 1.4 2003/08/05 15:51:35 toy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -1138,7 +1138,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context-arg :target context :scs (descriptor-reg))

	 (count-arg :target count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) context)

  (:temporary (:scs (any-reg) :from (:argument 1)) count)

  (:temporary (:scs (descriptor-reg) :from :eval) temp)

compiler/sparc/call.lisp

+3 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.31 2003/08/03 11:27:46 gerd Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.32 2003/08/05 15:51:35 toy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -1169,7 +1169,8 @@ default-value-8 
(define-vop (listify-rest-args)

  (:args (context-arg :target context :scs (descriptor-reg))

	 (count-arg :target count :scs (any-reg)))

  (:arg-types * tagged-num)

  (:arg-types * tagged-num (:constant t))

  (:info dynamic-extent)

  (:temporary (:scs (any-reg) :from (:argument 0)) context)

  (:temporary (:scs (any-reg) :from (:argument 1)) count)

  (:temporary (:scs (descriptor-reg) :from :eval) temp)