diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 19:47:31 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 19:47:31 +0000 |
commit | eab1b25970c21df7da67bd8f48290a1a1e1bf3d7 (patch) | |
tree | 5e1a7d34544a58ef5ddce7f51762b60189325ff6 /libguile/inline.h | |
parent | 00706edc1de5c13bc0552eedf8eec9a5a7ed8802 (diff) | |
download | guile-eab1b25970c21df7da67bd8f48290a1a1e1bf3d7.tar.gz |
* gc.h: add scm_debug_cells_gc_interval to public interface
* gc-card.c ("sweep_card"): set scm_gc_running while sweeping.
* gc.c (scm_i_expensive_validation_check): separate expensive
validation checks from cheap ones.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index c1df037c3..ea6b51277 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -50,10 +50,6 @@ */ -#if (SCM_DEBUG_CELL_ACCESSES == 1) -#include <stdio.h> -#endif - #include "libguile/pairs.h" #include "libguile/gc.h" @@ -64,8 +60,6 @@ SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr, #ifdef HAVE_INLINE - - #ifndef EXTERN_INLINE #define EXTERN_INLINE extern inline #endif @@ -74,6 +68,7 @@ extern unsigned scm_newcell2_count; extern unsigned scm_newcell_count; + EXTERN_INLINE SCM scm_cell (scm_t_bits car, scm_t_bits cdr) @@ -137,6 +132,10 @@ scm_cell (scm_t_bits car, scm_t_bits cdr) #endif +#if (SCM_DEBUG_CELL_ACCESSES == 1) + if (scm_expensive_debug_cell_accesses_p ) + scm_i_expensive_validation_check (z); +#endif return z; } @@ -201,5 +200,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr, return z; } + + #endif #endif |