From 8345d5a06a5fc3c83d394d9ee81a7065d69fa205 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Mon, 13 Sep 2004 13:23:44 +0000 Subject: [PATCH] sbcl-0.8.14.15: * Provide stubs for %%POP-DX and %%NIP-DX. --- src/compiler/alpha/values.lisp | 20 ++++++++++++++++++++ src/compiler/ir2tran.lisp | 3 +-- src/compiler/mips/values.lisp | 20 ++++++++++++++++++++ src/compiler/ppc/values.lisp | 20 ++++++++++++++++++++ src/compiler/sparc/values.lisp | 20 ++++++++++++++++++++ version.lisp-expr | 2 +- 6 files changed, 82 insertions(+), 3 deletions(-) diff --git a/src/compiler/alpha/values.lisp b/src/compiler/alpha/values.lisp index 6b385a4..cfdecac 100644 --- a/src/compiler/alpha/values.lisp +++ b/src/compiler/alpha/values.lisp @@ -16,6 +16,26 @@ (:generator 1 (move ptr csp-tn))) +(define-vop (%%pop-dx) + (:args (ptr :scs (any-reg))) + (:ignore ptr) + (:generator 1 + (bug "VOP %%POP-DX is not implemented."))) + +(define-vop (%%nip-dx) + (:args (last-nipped-ptr :scs (any-reg) :target dest) + (last-preserved-ptr :scs (any-reg) :target src) + (moved-ptrs :scs (any-reg) :more t)) + (:results (r-moved-ptrs :scs (any-reg) :more t)) + (:temporary (:sc any-reg) src) + (:temporary (:sc any-reg) dest) + (:temporary (:sc non-descriptor-reg) temp) + (:ignore r-moved-ptrs + last-nipped-ptr last-preserved-ptr moved-ptrs + src dest temp) + (:generator 1 + (bug "VOP %%NIP-DX is not implemented."))) + (define-vop (%%nip-values) (:args (last-nipped-ptr :scs (any-reg) :target dest) (last-preserved-ptr :scs (any-reg) :target src) diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp index afa0fb6..922c8b2 100644 --- a/src/compiler/ir2tran.lisp +++ b/src/compiler/ir2tran.lisp @@ -1296,7 +1296,6 @@ (t (bug "Trying to pop a not stack-allocated LVAR ~S." lvar))))) -(locally (declare (optimize (debug 3))) (defoptimizer (%nip-values ir2-convert) ((last-nipped last-preserved &rest moved) node block) @@ -1341,7 +1340,7 @@ #!-stack-grows-downward-not-upward (nip-unaligned (ir2-lvar-stack-pointer 2after))) (t - (bug "Trying to nip a not stack-allocated LVAR ~S." after))))))) + (bug "Trying to nip a not stack-allocated LVAR ~S." after)))))) ;;; Deliver the values TNs to LVAR using MOVE-LVAR-RESULT. (defoptimizer (values ir2-convert) ((&rest values) node block) diff --git a/src/compiler/mips/values.lisp b/src/compiler/mips/values.lisp index ecee7d0..cf0e8dd 100644 --- a/src/compiler/mips/values.lisp +++ b/src/compiler/mips/values.lisp @@ -16,6 +16,26 @@ (:generator 1 (move csp-tn ptr))) +(define-vop (%%pop-dx) + (:args (ptr :scs (any-reg))) + (:ignore ptr) + (:generator 1 + (bug "VOP %%POP-DX is not implemented."))) + +(define-vop (%%nip-dx) + (:args (last-nipped-ptr :scs (any-reg) :target dest) + (last-preserved-ptr :scs (any-reg) :target src) + (moved-ptrs :scs (any-reg) :more t)) + (:results (r-moved-ptrs :scs (any-reg) :more t)) + (:temporary (:sc any-reg) src) + (:temporary (:sc any-reg) dest) + (:temporary (:sc non-descriptor-reg) temp) + (:ignore r-moved-ptrs + last-nipped-ptr last-preserved-ptr moved-ptrs + src dest temp) + (:generator 1 + (bug "VOP %%NIP-DX is not implemented."))) + (define-vop (%%nip-values) (:args (last-nipped-ptr :scs (any-reg) :target dest) (last-preserved-ptr :scs (any-reg) :target src) diff --git a/src/compiler/ppc/values.lisp b/src/compiler/ppc/values.lisp index c3b2340..36cbd5b 100644 --- a/src/compiler/ppc/values.lisp +++ b/src/compiler/ppc/values.lisp @@ -11,6 +11,26 @@ (:generator 1 (move csp-tn ptr))) +(define-vop (%%pop-dx) + (:args (ptr :scs (any-reg))) + (:ignore ptr) + (:generator 1 + (bug "VOP %%POP-DX is not implemented."))) + +(define-vop (%%nip-dx) + (:args (last-nipped-ptr :scs (any-reg) :target dest) + (last-preserved-ptr :scs (any-reg) :target src) + (moved-ptrs :scs (any-reg) :more t)) + (:results (r-moved-ptrs :scs (any-reg) :more t)) + (:temporary (:sc any-reg) src) + (:temporary (:sc any-reg) dest) + (:temporary (:sc non-descriptor-reg) temp) + (:ignore r-moved-ptrs + last-nipped-ptr last-preserved-ptr moved-ptrs + src dest temp) + (:generator 1 + (bug "VOP %%NIP-DX is not implemented."))) + ;;; sparc version translated to ppc by David Steuber with help from #lisp. (define-vop (%%nip-values) (:args (last-nipped-ptr :scs (any-reg) :target dest) diff --git a/src/compiler/sparc/values.lisp b/src/compiler/sparc/values.lisp index 54a827f..6500115 100644 --- a/src/compiler/sparc/values.lisp +++ b/src/compiler/sparc/values.lisp @@ -16,6 +16,26 @@ (:generator 1 (move csp-tn ptr))) +(define-vop (%%pop-dx) + (:args (ptr :scs (any-reg))) + (:ignore ptr) + (:generator 1 + (bug "VOP %%POP-DX is not implemented."))) + +(define-vop (%%nip-dx) + (:args (last-nipped-ptr :scs (any-reg) :target dest) + (last-preserved-ptr :scs (any-reg) :target src) + (moved-ptrs :scs (any-reg) :more t)) + (:results (r-moved-ptrs :scs (any-reg) :more t)) + (:temporary (:sc any-reg) src) + (:temporary (:sc any-reg) dest) + (:temporary (:sc non-descriptor-reg) temp) + (:ignore r-moved-ptrs + last-nipped-ptr last-preserved-ptr moved-ptrs + src dest temp) + (:generator 1 + (bug "VOP %%NIP-DX is not implemented."))) + (define-vop (%%nip-values) (:args (last-nipped-ptr :scs (any-reg) :target dest) (last-preserved-ptr :scs (any-reg) :target src) diff --git a/version.lisp-expr b/version.lisp-expr index a912b9b..26442b4 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.14" +"0.8.14.15" -- 1.7.10.4