Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 81e0549)
Avoid using ecl_internal_error() also in ecl_bds_overflow and ecl_frs_oveflow.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 8 Feb 2010 12:01:45 +0000 (13:01 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Mon, 8 Feb 2010 12:01:45 +0000 (13:01 +0100)
src/c/stacks.d patch | blob | blame | history

diff --git a/src/c/stacks.d b/src/c/stacks.d
index ae94757..5fc0165 100644 (file)
--- a/src/c/stacks.d
+++ b/src/c/stacks.d
@@ -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"),
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)