Lines 55-60
Link Here
|
55 |
extern unsigned scm_newcell2_count; |
55 |
extern unsigned scm_newcell2_count; |
56 |
extern unsigned scm_newcell_count; |
56 |
extern unsigned scm_newcell_count; |
57 |
|
57 |
|
|
|
58 |
#ifdef __GNUC_STDC_INLINE__ |
59 |
#define SCM_C_GNU_INLINE SCM_C_INLINE __attribute__((__gnu_inline__)) |
60 |
#else |
61 |
#define SCM_C_GNU_INLINE SCM_C_INLINE |
62 |
#endif |
63 |
|
58 |
#if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H |
64 |
#if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H |
59 |
/* definitely inlining */ |
65 |
/* definitely inlining */ |
60 |
#ifdef __GNUC__ |
66 |
#ifdef __GNUC__ |
Lines 62-68
Link Here
|
62 |
#else |
68 |
#else |
63 |
static |
69 |
static |
64 |
#endif |
70 |
#endif |
65 |
SCM_C_INLINE |
71 |
SCM_C_GNU_INLINE |
66 |
#endif |
72 |
#endif |
67 |
SCM |
73 |
SCM |
68 |
scm_cell (scm_t_bits car, scm_t_bits cdr) |
74 |
scm_cell (scm_t_bits car, scm_t_bits cdr) |
Lines 138-144
Link Here
|
138 |
#else |
144 |
#else |
139 |
static |
145 |
static |
140 |
#endif |
146 |
#endif |
141 |
SCM_C_INLINE |
147 |
SCM_C_GNU_INLINE |
142 |
#endif |
148 |
#endif |
143 |
SCM |
149 |
SCM |
144 |
scm_double_cell (scm_t_bits car, scm_t_bits cbr, |
150 |
scm_double_cell (scm_t_bits car, scm_t_bits cbr, |
Lines 213-219
Link Here
|
213 |
#else |
219 |
#else |
214 |
static |
220 |
static |
215 |
#endif |
221 |
#endif |
216 |
SCM_C_INLINE |
222 |
SCM_C_GNU_INLINE |
217 |
#endif |
223 |
#endif |
218 |
SCM |
224 |
SCM |
219 |
scm_array_handle_ref (scm_t_array_handle *h, ssize_t p) |
225 |
scm_array_handle_ref (scm_t_array_handle *h, ssize_t p) |
Lines 228-234
Link Here
|
228 |
#else |
234 |
#else |
229 |
static |
235 |
static |
230 |
#endif |
236 |
#endif |
231 |
SCM_C_INLINE |
237 |
SCM_C_GNU_INLINE |
232 |
#endif |
238 |
#endif |
233 |
void |
239 |
void |
234 |
scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v) |
240 |
scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v) |
Lines 243-249
Link Here
|
243 |
#else |
249 |
#else |
244 |
static |
250 |
static |
245 |
#endif |
251 |
#endif |
246 |
SCM_C_INLINE |
252 |
SCM_C_GNU_INLINE |
247 |
#endif |
253 |
#endif |
248 |
int |
254 |
int |
249 |
scm_is_pair (SCM x) |
255 |
scm_is_pair (SCM x) |