projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10:
[sbcl.git]
/
src
/
code
/
byte-types.lisp
diff --git
a/src/code/byte-types.lisp
b/src/code/byte-types.lisp
index
4dae88c
..
2b7d5f3
100644
(file)
--- a/
src/code/byte-types.lisp
+++ b/
src/code/byte-types.lisp
@@
-14,10
+14,11
@@
;;;; types
(deftype stack-pointer ()
;;;; types
(deftype stack-pointer ()
- `(integer 0 ,(1- most-positive-fixnum)))
+ `(integer 0 ,(1- sb!vm:*target-most-positive-fixnum*)))
;;; KLUDGE: bare numbers, no documentation, ick.. -- WHN 19990701
;;; KLUDGE: bare numbers, no documentation, ick.. -- WHN 19990701
-(defconstant max-pc (1- (ash 1 24)))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defconstant max-pc (1- (ash 1 24))))
(deftype pc ()
`(integer 0 ,max-pc))
(deftype pc ()
`(integer 0 ,max-pc))