projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8alpha.0.21:
[sbcl.git]
/
src
/
compiler
/
hppa
/
parms.lisp
diff --git
a/src/compiler/hppa/parms.lisp
b/src/compiler/hppa/parms.lisp
index
3ebb8b2
..
3624beb
100644
(file)
--- a/
src/compiler/hppa/parms.lisp
+++ b/
src/compiler/hppa/parms.lisp
@@
-66,12
+66,6
@@
(def!constant read-only-space-start #x20000000)
(def!constant read-only-space-end #x24000000)
(def!constant read-only-space-start #x20000000)
(def!constant read-only-space-end #x24000000)
-(def!constant binding-stack-start #x24000000)
-(def!constant binding-stack-end #x24ff0000)
-
-(def!constant control-stack-start #x25000000)
-(def!constant control-stack-end #x25ff0000)
-
(def!constant static-space-start #x28000000)
(def!constant static-space-end #x2a000000)
(def!constant static-space-start #x28000000)
(def!constant static-space-end #x2a000000)
@@
-128,7
+122,7
@@
*posix-argv*
;; Functions that the C code needs to call
*posix-argv*
;; Functions that the C code needs to call
- 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
@@
-142,6
+136,10
@@
;; Things needed for non-local-exit.
*current-catch-block*
*current-unwind-protect-block*
;; Things needed for non-local-exit.
*current-catch-block*
*current-unwind-protect-block*
+
+ *binding-stack-start*
+ *control-stack-start*
+ *control-stack-end*
;; Interrupt Handling
*free-interrupt-context-index*
;; Interrupt Handling
*free-interrupt-context-index*