From 0213caf5a615cd1216396df6146ef34b9865ae5c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 13 Sep 2004 22:51:38 +0000 Subject: [PATCH] 0.8.14.18: non-x86 %listify-rest-args fixes * Fix buildabillity on non-x86 arches. Tested only on sparc, though. --- src/compiler/alpha/call.lisp | 2 +- src/compiler/hppa/call.lisp | 2 +- src/compiler/mips/call.lisp | 2 +- src/compiler/ppc/call.lisp | 2 +- src/compiler/sparc/call.lisp | 2 +- version.lisp-expr | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) 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" -- 1.7.10.4