Skip to content
Snippets Groups Projects
Commit b359933a authored by toy's avatar toy
Browse files

Remove the x86 conditionalization of the dynamic-extent arg to

listify-rest-args.
parent 88a53c80
No related branches found
No related tags found
No related merge requests found
......@@ -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/eval-comp.lisp,v 1.34 2003/08/05 14:04:52 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.35 2003/08/05 15:50:28 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -285,8 +285,8 @@
(defun %more-arg (args index)
(nth index args))
(defun %listify-rest-args (ptr count #+x86 dynamic-extent)
(declare (ignore count #+x86 dynamic-extent))
(defun %listify-rest-args (ptr count dynamic-extent)
(declare (ignore count dynamic-extent))
ptr)
(defun %more-arg-values (args start count)
......
......@@ -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/fndb.lisp,v 1.122 2003/08/05 14:04:52 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.123 2003/08/05 15:50:28 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1146,7 +1146,7 @@
(defknown %cleanup-point () void)
(defknown %special-bind (t t) void)
(defknown %special-unbind (t) void)
(defknown %listify-rest-args (t index #+x86 t) list (flushable))
(defknown %listify-rest-args (t index t) list (flushable))
(defknown %more-arg-context (t t) (values t index) (flushable))
(defknown %more-arg (t index) t)
(defknown %more-arg-values (t index index) * (flushable))
......
......@@ -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/ir1tran.lisp,v 1.158 2003/08/05 14:04:52 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.159 2003/08/05 15:50:29 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1740,7 +1740,6 @@
(when rest
(arg-vals `(%listify-rest-args ,n-context ,n-count
#+x86
,(leaf-dynamic-extent rest))))
(when morep
(arg-vals n-context)
......
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