projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.85: small PCL cleanups and thread-safety notes
[sbcl.git]
/
src
/
compiler
/
x86-64
/
parms.lisp
diff --git
a/src/compiler/x86-64/parms.lisp
b/src/compiler/x86-64/parms.lisp
index
4f863fb
..
91ebb63
100644
(file)
--- a/
src/compiler/x86-64/parms.lisp
+++ b/
src/compiler/x86-64/parms.lisp
@@
-35,10
+35,6
@@
;;; addressable object
(def!constant n-byte-bits 8)
;;; addressable object
(def!constant n-byte-bits 8)
-;;; The size in bytes of the GENCGC pages. Should be a multiple of the
-;;; architecture code size.
-(def!constant gencgc-page-size 4096)
-
(def!constant float-sign-shift 31)
;;; comment from CMU CL:
(def!constant float-sign-shift 31)
;;; comment from CMU CL:
@@
-101,19
+97,21
@@
;;; would be possible, but probably not worth the time and code bloat
;;; it would cause. -- JES, 2005-12-11
;;; would be possible, but probably not worth the time and code bloat
;;; it would cause. -- JES, 2005-12-11
-(def!constant read-only-space-start #x20000000)
-(def!constant read-only-space-end #x27ff0000)
+(progn
+ (def!constant read-only-space-start #x20000000)
+ (def!constant read-only-space-end #x27ff0000)
+
+ (def!constant static-space-start #x40000000)
+ (def!constant static-space-end #x47fff000)
-(def!constant static-space-start #x40000000)
-(def!constant static-space-end #x47fff000)
+ (def!constant dynamic-space-start #x1000000000)
+ (def!constant dynamic-space-end #x11ffff0000)
-(def!constant dynamic-space-start #x1000000000)
-(def!constant dynamic-space-end #x11ffff0000)
+ (def!constant linkage-table-space-start #x60000000)
+ (def!constant linkage-table-space-end #x63fff000)
-(def!constant linkage-table-space-start #x60000000)
-(def!constant linkage-table-space-end #x63fff000)
+ (def!constant linkage-table-entry-size 16))
-(def!constant linkage-table-entry-size 16)
\f
;;;; other miscellaneous constants
\f
;;;; other miscellaneous constants