projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.24.11: stack allocation support for HPPA
[sbcl.git]
/
src
/
compiler
/
generic
/
vm-ir2tran.lisp
diff --git
a/src/compiler/generic/vm-ir2tran.lisp
b/src/compiler/generic/vm-ir2tran.lisp
index
c864d26
..
2cbe33b
100644
(file)
--- 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
;;; Stack allocation optimizers per platform support
;;;
;;; Platforms with stack-allocatable vectors
-#!+(or mips x86 x86-64)
+#!+(or hppa mips x86 x86-64)
(progn
(defoptimizer (allocate-vector stack-allocate-result)
((type length words) node dx)
(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
;; 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)))))))
sb!vm:n-word-bytes)
sb!vm:vector-data-offset)))))))
@@
-208,7
+208,7
@@
(annotate-1-value-lvar arg)))))
;;; ...lists
(annotate-1-value-lvar arg)))))
;;; ...lists
-#!+(or alpha mips ppc sparc x86 x86-64)
+#!+(or alpha hppa mips ppc sparc x86 x86-64)
(progn
(defoptimizer (list stack-allocate-result) ((&rest args) node dx)
(declare (ignore node dx))
(progn
(defoptimizer (list stack-allocate-result) ((&rest args) node dx)
(declare (ignore node dx))
@@
-221,7
+221,7
@@
t))
;;; ...conses
t))
;;; ...conses
-#!+(or mips x86 x86-64)
+#!+(or hppa mips x86 x86-64)
(defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
(declare (ignore node dx))
t)
(defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
(declare (ignore node dx))
t)