50 |
*/ |
*/ |
51 |
|
|
52 |
|
|
|
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
|
|
#include <stdio.h> |
|
|
#endif |
|
|
|
|
53 |
#include "libguile/pairs.h" |
#include "libguile/pairs.h" |
54 |
#include "libguile/gc.h" |
#include "libguile/gc.h" |
55 |
|
|
60 |
|
|
61 |
#ifdef HAVE_INLINE |
#ifdef HAVE_INLINE |
62 |
|
|
|
|
|
|
|
|
63 |
#ifndef EXTERN_INLINE |
#ifndef EXTERN_INLINE |
64 |
#define EXTERN_INLINE extern inline |
#define EXTERN_INLINE extern inline |
65 |
#endif |
#endif |
68 |
extern unsigned scm_newcell_count; |
extern unsigned scm_newcell_count; |
69 |
|
|
70 |
|
|
71 |
|
|
72 |
EXTERN_INLINE |
EXTERN_INLINE |
73 |
SCM |
SCM |
74 |
scm_cell (scm_t_bits car, scm_t_bits cdr) |
scm_cell (scm_t_bits car, scm_t_bits cdr) |
132 |
#endif |
#endif |
133 |
|
|
134 |
|
|
135 |
|
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
136 |
|
if (scm_expensive_debug_cell_accesses_p ) |
137 |
|
scm_i_expensive_validation_check (z); |
138 |
|
#endif |
139 |
|
|
140 |
return z; |
return z; |
141 |
} |
} |
200 |
return z; |
return z; |
201 |
} |
} |
202 |
|
|
203 |
|
|
204 |
|
|
205 |
#endif |
#endif |
206 |
#endif |
#endif |