From: Alexey D. <ade...@us...> - 2004-09-13 13:23:54
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19052/src/compiler/mips Modified Files: values.lisp Log Message: sbcl-0.8.14.15: * Provide stubs for %%POP-DX and %%NIP-DX. Index: values.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/values.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- values.lisp 21 May 2004 13:59:17 -0000 1.2 +++ values.lisp 13 Sep 2004 13:23:44 -0000 1.3 @@ -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) |