From 2f2fad31a662b5387376003fab7ef328b4ac9063 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Thu, 8 May 2003 12:44:18 +0000 Subject: [PATCH] 0.8alpha.0.19 We're not using ALTERNATE-SIGNAL-STACK-START, and in fact haven't been for some time. Remove it. --- src/compiler/x86/parms.lisp | 13 ++----------- src/runtime/interrupt.c | 2 +- src/runtime/validate.c | 3 --- version.lisp-expr | 2 +- 4 files changed, 4 insertions(+), 16 deletions(-) diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index f2c06a1..6a1dbfe 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -142,9 +142,7 @@ (def!constant static-space-end #x07fff000) (def!constant dynamic-space-start #x09000000) - (def!constant dynamic-space-end #x29000000) - - (def!constant alternate-signal-stack-start #x58000000)) + (def!constant dynamic-space-end #x29000000)) #!+bsd (progn @@ -160,14 +158,7 @@ (def!constant dynamic-space-start #!+freebsd #x48000000 #!+openbsd #x50000000) - (def!constant dynamic-space-end #x88000000) - (def!constant alternate-signal-stack-start - #!+freebsd #x44000000 - #!+openbsd #x4c000000)) - - -;;; don't need alternate-signal-stack-end : it's -start+SIGSTKSZ - + (def!constant dynamic-space-end #x88000000)) ;;; Given that NIL is the first thing allocated in static space, we ;;; know its value at compile time: diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c index 4480fc9..f191cd3 100644 --- a/src/runtime/interrupt.c +++ b/src/runtime/interrupt.c @@ -663,7 +663,7 @@ undoably_install_low_level_interrupt_handler (int signal, if(signal==SIG_MEMORY_FAULT) sa.sa_flags|= SA_ONSTACK; #endif - sigaction(signal, &sa, NULL); + sigaction(signal, &sa, NULL); data->interrupt_low_level_handlers[signal] = (ARE_SAME_HANDLER(handler, SIG_DFL) ? 0 : handler); } diff --git a/src/runtime/validate.c b/src/runtime/validate.c index 36c1729..d88d17d 100644 --- a/src/runtime/validate.c +++ b/src/runtime/validate.c @@ -72,9 +72,6 @@ validate(void) ensure_space( (lispobj *)DYNAMIC_0_SPACE_START , DYNAMIC_SPACE_SIZE); ensure_space( (lispobj *)DYNAMIC_1_SPACE_START , DYNAMIC_SPACE_SIZE); #endif -#ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK - ensure_space( (lispobj *) ALTERNATE_SIGNAL_STACK_START, SIGSTKSZ); -#endif #ifdef HOLES make_holes(); diff --git a/version.lisp-expr b/version.lisp-expr index e9db82d..dd7c2b5 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8alpha.0.18" +"0.8alpha.0.19" -- 1.7.10.4