mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

remove #define STACK_CHECKING from __scm.h.

Browse source 
* libguile/__scm.h: Remove #define STACK_CHECKING and #undef
  NO_CEVAL_STACK_CHECKING.

* libguile/debug.c (scm_debug_options)
* libguile/init.c (scm_i_init_guile):
* libguile/stackchk.c (scm_report_stack_overflow):
* libguile/stackchk.h: Always enable stack checking.
This commit is contained in:
Andy Wingo 2011-05-15 10:58:24 +02:00
parent 2572c80673
commit b9b9a02804
5 changed files with 3 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/__scm.h
View file

@ -153,13 +153,6 @@
/* #define GUILE_DEBUG_FREELIST */ /* #define GUILE_DEBUG_FREELIST */
/* Random options (not yet supported or in final form). */
#define STACK_CHECKING
#undef NO_CEVAL_STACK_CHECKING
/* SCM_API is a macro prepended to all function and data definitions /* SCM_API is a macro prepended to all function and data definitions

2
libguile/debug.c
View file

@ -108,9 +108,7 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0,
scm_dynwind_critical_section (SCM_BOOL_F); scm_dynwind_critical_section (SCM_BOOL_F);
ans = scm_options (setting, scm_debug_opts, FUNC_NAME); ans = scm_options (setting, scm_debug_opts, FUNC_NAME);
#ifdef STACK_CHECKING
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
#endif
scm_dynwind_end (); scm_dynwind_end ();
return ans; return ans;

2
libguile/init.c
View file

@ -513,9 +513,7 @@ scm_i_init_guile (void *base)
scm_initialized_p = 1; scm_initialized_p = 1;
#ifdef STACK_CHECKING
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
#endif
scm_init_rdelim (); scm_init_rdelim ();
scm_init_rw (); scm_init_rw ();

5
libguile/stackchk.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008, 2010 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008, 2010, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -34,7 +34,6 @@
/* {Stack Checking} /* {Stack Checking}
*/ */
#ifdef STACK_CHECKING
int scm_stack_checking_enabled_p; int scm_stack_checking_enabled_p;
SCM_SYMBOL (scm_stack_overflow_key, "stack-overflow"); SCM_SYMBOL (scm_stack_overflow_key, "stack-overflow");
@ -65,8 +64,6 @@ scm_report_stack_overflow ()
scm_dynwind_end (); scm_dynwind_end ();
} }
#endif
long long
scm_stack_size (SCM_STACKITEM *start) scm_stack_size (SCM_STACKITEM *start)
{ {

4
libguile/stackchk.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_STACKCHK_H #ifndef SCM_STACKCHK_H
#define SCM_STACKCHK_H #define SCM_STACKCHK_H
/* Copyright (C) 1995,1996,1998,2000, 2003, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000, 2003, 2006, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -34,7 +34,7 @@
*/ */
#define SCM_STACK_CHECKING_P SCM_STACK_LIMIT #define SCM_STACK_CHECKING_P SCM_STACK_LIMIT
#if defined BUILDING_LIBGUILE && defined STACK_CHECKING #if defined BUILDING_LIBGUILE
#include "libguile/private-options.h" #include "libguile/private-options.h"
# if SCM_STACK_GROWS_UP # if SCM_STACK_GROWS_UP
# define SCM_STACK_OVERFLOW_P(s)\ # define SCM_STACK_OVERFLOW_P(s)\