Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19052/src/compiler
Modified Files:
ir2tran.lisp
Log Message:
sbcl-0.8.14.15:
* Provide stubs for %%POP-DX and %%NIP-DX.
Index: ir2tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir2tran.lisp,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- ir2tran.lisp 13 Sep 2004 05:40:29 -0000 1.55
+++ ir2tran.lisp 13 Sep 2004 13:23:44 -0000 1.56
@@ -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)
|