Commit 7bab5262 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add :RELOCATABLE-STACKS to *features*

Add this as a runtime feature so that it shows up in *features* and
so that the C runtime has FEATURE_RELOCATABLE_STACKS defined.

src/code/sparc-svr4-vm.lisp:
src/code/x86-vm.lisp:
o Make :relocatable-stacks a runtime feature.

src/lisp/validate.h
o Need to include internals.h here so constants are set up according
  to internals.h

src/lisp/x86-validate-darwin.h:
o Use FEATURE_RELOCATABLE_STACKS instead of RELOCATABLE_STACK_START.
parent 00ec87ed
Loading
Loading
Loading
Loading
+4 −0
Original line number Diff line number Diff line
@@ -25,6 +25,10 @@

#+complex-fp-vops
(sys:register-lisp-feature :complex-fp-vops)

#+(and sparc solaris)
(sys:register-lisp-runtime-feature :relocatable-stacks)


;;;; The sigcontext structure.

+3 −0
Original line number Diff line number Diff line
@@ -42,6 +42,9 @@
  (setf *features* (delete :x87 *features*))
  (sys:register-lisp-feature :sse2))

#+(or darwin linux)
(sys:register-lisp-runtime-feature :relocatable-stacks)


;;;; The sigcontext structure.

+2 −0
Original line number Diff line number Diff line
@@ -8,6 +8,8 @@
#ifndef _VALIDATE_H_
#define _VALIDATE_H_

#include "internals.h"

#ifdef parisc
#include "hppa-validate.h"
#endif
+3 −3
Original line number Diff line number Diff line
@@ -18,12 +18,12 @@
#define STATIC_SPACE_START	(SpaceStart_TargetStatic)
#define STATIC_SPACE_SIZE	(0x0ffff000)	/* 256MB - 1 page */

#ifndef RELOCATABLE_STACK_START
#ifndef FEATURE_RELOCATABLE_STACKS
#define BINDING_STACK_START	(0x38000000)
#endif
#define BINDING_STACK_SIZE	(0x07fff000)	/* 128MB - 1 page */

#ifndef RELOCATABLE_STACK_START
#ifndef FEATURE_RELOCATABLE_STACKS
#define CONTROL_STACK_START	(0x40000000)
#endif

@@ -33,7 +33,7 @@
 */
#define CONTROL_STACK_SIZE	(0x07fdf000)	/* 128MB - SIGSTKSZ - 1 page */

#ifndef RELOCATABLE_STACK_START
#ifndef FEATURE_RELOCATABLE_STACKS
#define SIGNAL_STACK_START	(0x47fe0000)    /* One page past the end of the control stack */
#endif
#define SIGNAL_STACK_SIZE	SIGSTKSZ