From: Nikodemus Siivola Date: Mon, 13 Sep 2004 22:51:38 +0000 (+0000) Subject: 0.8.14.18: non-x86 %listify-rest-args fixes X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0213caf5a615cd1216396df6146ef34b9865ae5c;p=sbcl.git 0.8.14.18: non-x86 %listify-rest-args fixes * Fix buildabillity on non-x86 arches. Tested only on sparc, though. --- diff --git a/src/compiler/alpha/call.lisp b/src/compiler/alpha/call.lisp index efbf2f2..63e2de3 100644 --- a/src/compiler/alpha/call.lisp +++ b/src/compiler/alpha/call.lisp @@ -1109,7 +1109,7 @@ 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 (: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) diff --git a/src/compiler/hppa/call.lisp b/src/compiler/hppa/call.lisp index 25303d4..3b4b304 100644 --- a/src/compiler/hppa/call.lisp +++ b/src/compiler/hppa/call.lisp @@ -1078,7 +1078,7 @@ 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 (: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) diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp index 3fe73f7..51c5f5f 100644 --- a/src/compiler/mips/call.lisp +++ b/src/compiler/mips/call.lisp @@ -1109,7 +1109,7 @@ 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 (: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) diff --git a/src/compiler/ppc/call.lisp b/src/compiler/ppc/call.lisp index 3e40b52..c7839f5 100644 --- a/src/compiler/ppc/call.lisp +++ b/src/compiler/ppc/call.lisp @@ -1100,7 +1100,7 @@ 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 (: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) diff --git a/src/compiler/sparc/call.lisp b/src/compiler/sparc/call.lisp index 2c8ecf5..6a0b2a3 100644 --- a/src/compiler/sparc/call.lisp +++ b/src/compiler/sparc/call.lisp @@ -1073,7 +1073,7 @@ 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 (: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) diff --git a/version.lisp-expr b/version.lisp-expr index 5cc0acc..7746172 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.14.17" +"0.8.14.18"