diff options
Diffstat (limited to 'libguile/stackchk.c')
-rw-r--r-- | libguile/stackchk.c | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/libguile/stackchk.c b/libguile/stackchk.c index 208ba97ed..7e2441b53 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008, 2010, 2011, 2014 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -36,34 +36,12 @@ int scm_stack_checking_enabled_p; -SCM_SYMBOL (scm_stack_overflow_key, "stack-overflow"); - static void reset_scm_stack_checking_enabled_p (void *arg) { scm_stack_checking_enabled_p = (int)(scm_t_bits)arg; } -void -scm_report_stack_overflow () -{ - scm_dynwind_begin (0); /* non-rewindable frame */ - scm_dynwind_unwind_handler (reset_scm_stack_checking_enabled_p, - (void*)(scm_t_bits)scm_stack_checking_enabled_p, - SCM_F_WIND_EXPLICITLY); - - scm_stack_checking_enabled_p = 0; - - scm_error (scm_stack_overflow_key, - NULL, - "Stack overflow", - SCM_BOOL_F, - SCM_BOOL_F); - - /* not reached */ - scm_dynwind_end (); -} - long scm_stack_size (SCM_STACKITEM *start) { |