Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11377/src/compiler/alpha
Modified Files:
call.lisp
Log Message:
0.8.14.18: non-x86 %listify-rest-args fixes
* Fix buildabillity on non-x86 arches. Tested only on
sparc, though.
Index: call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/call.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- call.lisp 13 Sep 2004 05:40:30 -0000 1.24
+++ call.lisp 13 Sep 2004 22:51:38 -0000 1.25
@@ -1109,7 +1109,7 @@
(define-vop (listify-rest-args)
(:args (context-arg :target context :scs (descriptor-reg))
(count-arg :target count :scs (any-reg)))
- (:arg-types * tagged-num (:constant t))
+ (:arg-types * tagged-num)
(:temporary (:scs (any-reg) :from (:argument 0)) context)
(:temporary (:scs (any-reg) :from (:argument 1)) count)
(:temporary (:scs (descriptor-reg) :from :eval) temp dst)
|