mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

Slightly simplify inline machinery.

Browse source
This commit is contained in:
Ludovic Courtès 2008-04-13 19:38:42 +02:00
parent 07db6fcd4c
commit 9dca89355f
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -2,7 +2,7 @@
* inline.h (SCM_C_USE_EXTERN_INLINE): New macro. Use it to make * inline.h (SCM_C_USE_EXTERN_INLINE): New macro. Use it to make
sure "extern" declarations are produced when "extern inline" is sure "extern" declarations are produced when "extern inline" is
used. used. Simplify macrology around inline definitions.
2008-04-10 Ludovic Courtès <ludo@gnu.org> 2008-04-10 Ludovic Courtès <ludo@gnu.org>

12
libguile/inline.h
View file

@ -88,7 +88,7 @@ SCM_API int scm_is_pair (SCM x);
#endif #endif
#if defined SCM_C_INLINE || defined SCM_INLINE_C_INCLUDING_INLINE_H #if defined SCM_C_EXTERN_INLINE || defined SCM_INLINE_C_INCLUDING_INLINE_H
/* either inlining, or being included from inline.c. We use (and /* either inlining, or being included from inline.c. We use (and
repeat) this long #if test here and below so that we don't have to repeat) this long #if test here and below so that we don't have to
introduce any extraneous symbols into the public namespace. We introduce any extraneous symbols into the public namespace. We
@ -98,7 +98,7 @@ extern unsigned scm_newcell2_count;
extern unsigned scm_newcell_count; extern unsigned scm_newcell_count;
#if defined SCM_C_EXTERN_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE SCM_C_EXTERN_INLINE
#endif #endif
SCM SCM
@ -168,7 +168,7 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
return z; return z;
} }
#if defined SCM_C_EXTERN_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE SCM_C_EXTERN_INLINE
#endif #endif
SCM SCM
@ -237,7 +237,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
return z; return z;
} }
#if defined SCM_C_EXTERN_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE SCM_C_EXTERN_INLINE
#endif #endif
SCM SCM
@ -246,7 +246,7 @@ scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
return h->ref (h, p); return h->ref (h, p);
} }
#if defined SCM_C_EXTERN_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE SCM_C_EXTERN_INLINE
#endif #endif
void void
@ -255,7 +255,7 @@ scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v)
h->set (h, p, v); h->set (h, p, v);
} }
#if defined SCM_C_EXTERN_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE SCM_C_EXTERN_INLINE
#endif #endif
int int