Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl

Commits: 694331c1 by Raymond Toy at 2015-11-04T19:42:41Z Fix merge mistake: Don't print break as int3.

- - - - - 0fb5c699 by Raymond Toy at 2015-11-04T19:44:58Z Define CONTROL_STACK_START and BINDING_STACK_START.

ppc currently only supports allocating the control stack and binding stack at fixed addresses. (This used to work, but something broke it recently. Until the ppc machine comes back, we're going to disable that feature there.)

- - - - -

2 changed files:

- src/compiler/x86/insts.lisp - src/lisp/ppc-validate.h

Changes:

===================================== src/compiler/x86/insts.lisp ===================================== --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -2105,7 +2105,6 @@ (define-instruction break (segment code) (:declare (type (unsigned-byte 8) code)) (:printer byte-imm ((op #b11001100)) '(:name :tab code) - :print-name 'int3 :control #'break-control) (:emitter (emit-byte segment #b11001100)

===================================== src/lisp/ppc-validate.h ===================================== --- a/src/lisp/ppc-validate.h +++ b/src/lisp/ppc-validate.h @@ -41,19 +41,13 @@ #define STATIC_SPACE_START (0x10000000) #define STATIC_SPACE_SIZE (0x07ff8000) /* 128 MB, almost */

-#if 0 #define CONTROL_STACK_START (0x30000000) -#endif #define CONTROL_STACK_SIZE (0x07ff8000) /* 128 MB, almost */ -#if 0 #define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) -#endif

#define SIGNAL_STACK_SIZE SIGSTKSZ

-#if 0 #define BINDING_STACK_START (0x38000000) -#endif #define BINDING_STACK_SIZE (0x07ff8000) /* 128 MB, almost */

#if 0

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/138310f93edc558e3166c1a13...