projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.12:
[sbcl.git]
/
src
/
compiler
/
mips
/
parms.lisp
diff --git
a/src/compiler/mips/parms.lisp
b/src/compiler/mips/parms.lisp
index
50d4d4e
..
4989172
100644
(file)
--- a/
src/compiler/mips/parms.lisp
+++ b/
src/compiler/mips/parms.lisp
@@
-3,6
+3,10
@@
(def!constant n-word-bits 32
"Number of bits per word where a word holds one lisp descriptor.")
(def!constant n-word-bits 32
"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 32)
+
(def!constant n-byte-bits 8
"Number of bits per byte where a byte is the smallest addressable object.")
(def!constant n-byte-bits 8
"Number of bits per byte where a byte is the smallest addressable object.")
@@
-111,7
+115,7
@@
*posix-argv*
*posix-argv*
- sb!impl::maybe-gc
+ sb!impl::sub-gc
sb!kernel::internal-error
sb!kernel::control-stack-exhausted-error
sb!di::handle-breakpoint
sb!kernel::internal-error
sb!kernel::control-stack-exhausted-error
sb!di::handle-breakpoint
@@
-126,6
+130,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*