;;; 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)
;; 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)))))))
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)