diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2009-10-02 15:28:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2009-10-09 14:10:03 +0200 |
| commit | 46935a1fac58e50276f7e7e49e5fa6bab53c0848 (patch) | |
| tree | 61a07bfd49251b8b0a7798c490f15f0beef4d552 /libguile/stackchk.h | |
| parent | b8ec9daba60ceb14b443d3a44ab5043edcb474df (diff) | |
| download | guile-46935a1fac58e50276f7e7e49e5fa6bab53c0848.tar.gz | |
Arrange so that `SCM_I_CURRENT_THREAD' is not accessed outside of libguile.
* libguile/__scm.h (scm_async_tick): New declaration.
(SCM_ASYNC_TICK)[!BUILDING_LIBGUILE]: Use `scm_async_tick ()'.
* libguile/async.c (scm_critical_section_start,
scm_critical_section_end, scm_async_tick): New functions.
* libguile/async.h (scm_i_critical_section_mutex): Made internal.
(scm_critical_section_start, scm_critical_section_end): New
declarations.
(SCM_CRITICAL_SECTION_START,
SCM_CRITICAL_SECTION_END)[!BUILDING_LIBGUILE]: Use the same-named
function (lower-case).
* libguile/stackchk.h (SCM_STACK_OVERFLOW_P): Conditionalize on
`BUILDING_LIBGUILE'.
* libguile/threads.h (SCM_I_CURRENT_THREAD, scm_i_dynwinds,
scm_i_set_dynwinds, scm_i_last_debug_frame,
scm_i_set_last_debug_frame): Conditionalize on `BUILDING_LIBGUILE'.
Diffstat (limited to 'libguile/stackchk.h')
| -rw-r--r-- | libguile/stackchk.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/stackchk.h b/libguile/stackchk.h index 6aa0fec18..ed149067b 100644 --- a/libguile/stackchk.h +++ b/libguile/stackchk.h @@ -3,7 +3,7 @@ #ifndef SCM_STACKCHK_H #define SCM_STACKCHK_H -/* Copyright (C) 1995,1996,1998,2000, 2003, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,2000, 2003, 2006, 2008, 2009 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 @@ -34,7 +34,7 @@ */ #define SCM_STACK_CHECKING_P SCM_STACK_LIMIT -#ifdef STACK_CHECKING +#if defined BUILDING_LIBGUILE && defined STACK_CHECKING # if SCM_STACK_GROWS_UP # define SCM_STACK_OVERFLOW_P(s)\ (SCM_STACK_PTR (s) \ @@ -52,7 +52,7 @@ } #else # define SCM_CHECK_STACK /**/ -#endif /* STACK_CHECKING */ +#endif SCM_API int scm_stack_checking_enabled_p; |