summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 19:47:31 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 19:47:31 +0000
commiteab1b25970c21df7da67bd8f48290a1a1e1bf3d7 (patch)
tree5e1a7d34544a58ef5ddce7f51762b60189325ff6 /libguile/inline.h
parent00706edc1de5c13bc0552eedf8eec9a5a7ed8802 (diff)
downloadguile-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.h13
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