diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-04-13 19:35:46 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-13 19:39:03 +0200 |
commit | 07db6fcd4cceca090c386ca0527e3762a81467cf (patch) | |
tree | 6a56375f78ae8af4a42d06c7f7af84f28ed07d4c /libguile/inline.h | |
parent | 7dc9ae7179b8b099897f8080b675e2a9c54d388c (diff) | |
download | guile-07db6fcd4cceca090c386ca0527e3762a81467cf.tar.gz |
Really fix inline machinery for MacOS X.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index 34bb84345..904ec50e4 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -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, |