mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 12:33:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

remove unused (sig)altstack option

Browse source 
This functionality has been removed long ago with commit
    1472cc91ef.
This commit is contained in:
Marius Gerbershagen 2018-05-27 20:30:22 +02:00
parent fd1affa7d0
commit 9f8adbbe4e
4 changed files with 1 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

9
doc/ref_embed.xmlf
View file

@ -367,13 +367,6 @@
<entry><constant>4192</constant></entry>
<entry></entry>
</row>
<row>
<entry><constant>SIGALTSTACK_SIZE</constant></entry>
<entry><type>cl_index</type></entry>
<entry><constant>1</constant></entry>
<entry>If nonzero, run C signal handler in an alternative
signal. A small value is automatically incremented.</entry>
</row>
<row>
<entry><constant>THREAD_INTERRUPT_SIGNAL</constant></entry>
<entry><type>unsigned int</type></entry>
@ -545,4 +538,4 @@
nxml-outline-child-indent: 1
fill-column: 79
End:
-->
-->

1
src/c/main.d
View file

@ -94,7 +94,6 @@ cl_fixnum ecl_option_values[ECL_OPT_LIMIT+1] = {
128, /* ECL_OPT_LISP_STACK_SAFETY_AREA */
128*sizeof(cl_index)*1024, /* ECL_OPT_C_STACK_SIZE */
4*sizeof(cl_index)*1024, /* ECL_OPT_C_STACK_SAFETY_AREA */
1, /* ECL_OPT_SIGALTSTACK_SIZE */
HEAP_SIZE_DEFAULT, /* ECL_OPT_HEAP_SIZE */
1024*1024, /* ECL_OPT_HEAP_SAFETY_AREA */
0, /* ECL_OPT_THREAD_INTERRUPT_SIGNAL */

1
src/doc/new-doc/user-guide/embedding.txi
View file

@ -157,7 +157,6 @@ The second set is related to the sizes of different stacks. Currently ECL uses f
@item @code{LISP_STACK_SAFETY_AREA} @tab cl_index @tab 128 @tab
@item @code{C_STACK_SIZE} @tab cl_index @tab 131072 @tab Size of C stack (not exact).
@item @code{C_STACK_SAFETY_AREA} @tab cl_index @tab 4192 @tab
@item @code{SIGALTSTACK_SIZE} @tab cl_index @tab 1 @tab If nonzero, run C signal handler in an alternative signal. A small value is automatically incremented.
@item @code{THREAD_INTERRUPT_SIGNAL} @tab unsigned int @tab 0 @tab If nonzero, specify the unix signal which is used to communicate different Lisp threads.
@end multitable
@end float

8
src/h/external.h
View file

@ -125,16 +125,9 @@ struct cl_env_struct {
union ecl_ffi_values **ffi_values_ptrs;
#endif
/* Alternative stack for processing signals */
void *altstack;
cl_index altstack_size;
/* Floating point interrupts which are trapped */
int trap_fpe_bits;
/* Old exception filter. Needed by windows. */
void *old_exception_filter;
/* List of packages interned when loading a FASL but which have
* to be explicitely created by the compiled code itself. */
cl_object packages_to_be_created;
@ -963,7 +956,6 @@ typedef enum {
ECL_OPT_LISP_STACK_SAFETY_AREA,
ECL_OPT_C_STACK_SIZE,
ECL_OPT_C_STACK_SAFETY_AREA,
ECL_OPT_SIGALTSTACK_SIZE,
ECL_OPT_HEAP_SIZE,
ECL_OPT_HEAP_SAFETY_AREA,
ECL_OPT_THREAD_INTERRUPT_SIGNAL,