mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Avoid using ecl_internal_error() also in ecl_bds_overflow and ecl_frs_oveflow.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-08 13:01:45 +01:00
parent 81e054971e
commit dcbf547822
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/stacks.d
View file

@ -141,13 +141,17 @@ ecl_bds_set_size(cl_env_ptr env, cl_index size)
struct bds_bd *
ecl_bds_overflow(void)
{
static const char *stack_overflow_msg =
"\n;;;\n;;; Binding stack overflow.\n"
";;; Jumping to the outermost toplevel prompt\n"
";;;\n\n";
cl_env_ptr env = ecl_process_env();
cl_index margin = ecl_get_option(ECL_OPT_BIND_STACK_SAFETY_AREA);
cl_index size = env->bds_size;
bds_ptr org = env->bds_org;
bds_ptr last = org + size;
if (env->bds_limit >= last) {
ecl_internal_error("Bind stack overflow, cannot grow larger.");
ecl_unrecoverable_error(env, stack_overflow_msg);
}
env->bds_limit += margin;
cl_cerror(6, make_constant_base_string("Extend stack size"),
@ -491,13 +495,17 @@ frs_set_size(cl_env_ptr env, cl_index size)
static void
frs_overflow(void) /* used as condition in list.d */
{
static const char *stack_overflow_msg =
"\n;;;\n;;; Frame stack overflow.\n"
";;; Jumping to the outermost toplevel prompt\n"
";;;\n\n";
cl_env_ptr env = ecl_process_env();
cl_index margin = ecl_get_option(ECL_OPT_FRAME_STACK_SAFETY_AREA);
cl_index size = env->frs_size;
ecl_frame_ptr org = env->frs_org;
ecl_frame_ptr last = org + size;
if (env->frs_limit >= last) {
ecl_internal_error("Frame stack overflow, cannot grow larger.");
ecl_unrecoverable_error(env, stack_overflow_msg);
}
env->frs_limit += margin;
cl_cerror(6, make_constant_base_string("Extend stack size"),