From: Christophe R. <cr...@us...> - 2004-05-21 13:59:26
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26074/src/compiler Modified Files: ir2tran.lisp Log Message: 0.8.10.44: Implement %%NIP-VALUES on MIPS ... spookily similar to the sparc version, yes; ... MORE BOILERPLATE. Index: ir2tran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir2tran.lisp,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- ir2tran.lisp 19 May 2004 16:23:25 -0000 1.52 +++ ir2tran.lisp 21 May 2004 13:59:17 -0000 1.53 @@ -1285,9 +1285,9 @@ (defoptimizer (%nip-values ir2-convert) ((last-nipped last-preserved &rest moved) node block) - #!-(or x86 alpha sparc) + #!-(or x86 alpha sparc mips) (bug "%NIP-VALUES is not implemented on this platform.") - #!+(or x86 alpha sparc) + #!+(or x86 alpha sparc mips) (let (;; pointer immediately after the nipped block (2after (lvar-info (lvar-value last-nipped))) ;; pointer to the first nipped word |