mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* __scm.h, stackchk.h, stackchk.c: Guile now performs stack

Browse source 
checking.
This commit is contained in:
Mikael Djurfeldt 1996-08-23 01:21:00 +00:00
parent b7ff98ddd6
commit 39f1ef511c
2 changed files with 25 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/stackchk.c
View file

@ -48,14 +48,14 @@
/* {Stack Checking}
*/
#ifdef SCM_STACK_CHECK
int scm_check_stack_p;
#ifdef STACK_CHECKING
int scm_stack_checking_enabled_p;
void
scm_report_stack_overflow ()
{
scm_check_stack_p = 0;
scm_wta (SCM_UNDEFINED, (char *) STACK_SCM_OVSCM_FLOW, NULL);
scm_stack_checking_enabled_p = 0;
scm_wta (SCM_UNDEFINED, (char *) SCM_STACK_OVFLOW, NULL);
}
#endif
@ -104,9 +104,5 @@ void
scm_init_stackchk ()
#endif
{
#ifdef SCM_STACK_CHECK
scm_check_stack_p = 1;
#endif
#include "stackchk.x"
}