Update of /cvsroot/sbcl/sbcl/src/compiler/hppa
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11377/src/compiler/hppa
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/hppa/call.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- call.lisp 13 Sep 2004 05:40:30 -0000 1.4
+++ call.lisp 13 Sep 2004 22:51:39 -0000 1.5
@@ -1078,7 +1078,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)
|