mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 00:10:21 +02:00
Really fix inline machinery for MacOS X.
This commit is contained in:
parent
7dc9ae7179
commit
07db6fcd4c
2 changed files with 11 additions and 4 deletions
|
@ -1,3 +1,9 @@
|
|||
2008-04-13 Ludovic Courtès <ludo@gnu.org>
|
||||
|
||||
* inline.h (SCM_C_USE_EXTERN_INLINE): New macro. Use it to make
|
||||
sure "extern" declarations are produced when "extern inline" is
|
||||
used.
|
||||
|
||||
2008-04-10 Ludovic Courtès <ludo@gnu.org>
|
||||
|
||||
* inline.h (SCM_C_EXTERN_INLINE): Special-case Apple's GCC
|
||||
|
|
|
@ -55,6 +55,7 @@
|
|||
inline" in that case. */
|
||||
|
||||
# if (defined __GNUC__) && (!(__APPLE_CC__ > 5400 && __STDC_VERSION__ >= 199901L))
|
||||
# define SCM_C_USE_EXTERN_INLINE 1
|
||||
# if (defined __GNUC_STDC_INLINE__) || (__GNUC__ == 4 && __GNUC_MINOR__ == 2)
|
||||
# define SCM_C_EXTERN_INLINE \
|
||||
extern __inline__ __attribute__ ((__gnu_inline__))
|
||||
|
@ -68,12 +69,12 @@
|
|||
#endif /* SCM_INLINE_C_INCLUDING_INLINE_H */
|
||||
|
||||
|
||||
#if ((!defined SCM_C_INLINE) && (!defined SCM_INLINE_C_INCLUDING_INLINE_H)) \
|
||||
|| (defined __GNUC__)
|
||||
#if (!defined SCM_C_INLINE) || (defined SCM_INLINE_C_INCLUDING_INLINE_H) \
|
||||
|| (defined SCM_C_USE_EXTERN_INLINE)
|
||||
|
||||
/* The `extern' declarations. They should only appear when used from
|
||||
"inline.c", when `inline' is not supported at all or when GCC's "extern
|
||||
inline" is used. */
|
||||
"inline.c", when `inline' is not supported at all or when "extern inline"
|
||||
is used. */
|
||||
|
||||
SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr);
|
||||
SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue