projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.8.8:
[sbcl.git]
/
src
/
compiler
/
alpha
/
parms.lisp
diff --git
a/src/compiler/alpha/parms.lisp
b/src/compiler/alpha/parms.lisp
index
267f272
..
b13e2de
100644
(file)
--- a/
src/compiler/alpha/parms.lisp
+++ b/
src/compiler/alpha/parms.lisp
@@
-15,6
+15,10
@@
#!+sb-doc
"Number of bits per word where a word holds one lisp descriptor.")
#!+sb-doc
"Number of bits per word where a word holds one lisp descriptor.")
+;;; the natural width of a machine word (as seen in e.g. register width,
+;;; address space)
+(def!constant n-machine-word-bits 64)
+
(def!constant n-byte-bits 8
#!+sb-doc
"Number of bits per byte where a byte is the smallest addressable object.")
(def!constant n-byte-bits 8
#!+sb-doc
"Number of bits per byte where a byte is the smallest addressable object.")
@@
-139,13
+143,6
@@
(def!constant dynamic-1-space-start #x40000000)
(def!constant dynamic-1-space-end #x4fff0000)
(def!constant dynamic-1-space-start #x40000000)
(def!constant dynamic-1-space-end #x4fff0000)
-(def!constant control-stack-start #x50000000)
-(def!constant control-stack-end #x51000000)
-
-(def!constant binding-stack-start #x70000000)
-(def!constant binding-stack-end #x71000000)
-
-
;;; FIXME nothing refers to either of these in alpha or x86 cmucl
;;; backend, so they could probably be removed.
;;; FIXME nothing refers to either of these in alpha or x86 cmucl
;;; backend, so they could probably be removed.
@@
-191,17
+188,15
@@
;; The C startup code must fill these in.
*posix-argv*
;; The C startup code must fill these in.
*posix-argv*
- ;;lisp::lisp-environment-list
- ;;lisp::lisp-command-line-list
- sb!impl::*!initial-fdefn-objects*
- ;; Functions that the C code needs to call
- maybe-gc
+ ;; functions that the C code needs to call
+ sub-gc
sb!kernel::internal-error
sb!kernel::internal-error
+ sb!kernel::control-stack-exhausted-error
sb!di::handle-breakpoint
sb!di::handle-fun-end-breakpoint
sb!di::handle-breakpoint
sb!di::handle-fun-end-breakpoint
- ;; free Pointers
+ ;; free pointers
*read-only-space-free-pointer*
*static-space-free-pointer*
*initial-dynamic-space-free-pointer*
*read-only-space-free-pointer*
*static-space-free-pointer*
*initial-dynamic-space-free-pointer*
@@
-210,6
+205,10
@@
*current-catch-block*
*current-unwind-protect-block*
*current-catch-block*
*current-unwind-protect-block*
+ *binding-stack-start*
+ *control-stack-start*
+ *control-stack-end*
+
;; interrupt handling
*free-interrupt-context-index*
sb!unix::*interrupts-enabled*
;; interrupt handling
*free-interrupt-context-index*
sb!unix::*interrupts-enabled*
@@
-235,5
+234,6
@@
sb!kernel:two-arg-and
sb!kernel:two-arg-ior
sb!kernel:two-arg-xor
sb!kernel:two-arg-and
sb!kernel:two-arg-ior
sb!kernel:two-arg-xor
+ sb!kernel:two-arg-eqv
sb!kernel:two-arg-gcd
sb!kernel:two-arg-lcm))
sb!kernel:two-arg-gcd
sb!kernel:two-arg-lcm))