X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-ir2tran.lisp;h=25e3ed483595bda77b5ffd5737fa44f601fec31e;hb=07ab1e4811ab16f95a9a5e8d767426a0787f22c0;hp=de0299ab267b02617e82823d30f20bf4d9018fa9;hpb=6822034325136cde4e14773c83c3769b42721306;p=sbcl.git

diff --git a/src/compiler/generic/vm-ir2tran.lisp b/src/compiler/generic/vm-ir2tran.lisp
index de0299a..25e3ed4 100644
--- a/src/compiler/generic/vm-ir2tran.lisp
+++ b/src/compiler/generic/vm-ir2tran.lisp
@@ -175,7 +175,7 @@
 ;;; Stack allocation optimizers per platform support
 ;;;
 ;;; Platforms with stack-allocatable vectors
-#!+(or x86 x86-64)
+#!+(or mips x86 x86-64)
 (progn
   (defoptimizer (allocate-vector stack-allocate-result)
       ((type length words) node dx)
@@ -185,7 +185,7 @@
         ;; stack guard pages.
         (values-subtypep (lvar-derived-type words)
                          (load-time-value
-                          (specifier-type `(integer 0 ,(- (/ sb!vm::*backend-page-size*
+                          (specifier-type `(integer 0 ,(- (/ sb!vm::*backend-page-bytes*
                                                              sb!vm:n-word-bytes)
                                                           sb!vm:vector-data-offset)))))))
 
@@ -221,7 +221,7 @@
     t))
 
 ;;; ...conses
-#!+(or x86 x86-64)
+#!+(or mips x86 x86-64)
 (defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
   (declare (ignore node dx))
   t)