mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Use "extern inline" only with GCC. Use "static

Browse source 
inline" else.
This commit is contained in:
Marius Vollmer 2003-09-12 14:13:48 +00:00
parent 0d5e348022
commit 2b2c6fca20
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/inline.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_INLINE_H #ifndef SCM_INLINE_H
#define SCM_INLINE_H #define SCM_INLINE_H
/* Copyright (C) 2001, 2002 Free Software Foundation, Inc. /* Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -53,7 +53,12 @@ extern unsigned scm_newcell_count;
#if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H
/* definitely inlining */ /* definitely inlining */
extern SCM_C_INLINE #ifdef __GNUC__
extern
#else
static
#endif
SCM_C_INLINE
#endif #endif
SCM SCM
scm_cell (scm_t_bits car, scm_t_bits cdr) scm_cell (scm_t_bits car, scm_t_bits cdr)
@ -145,7 +150,12 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
#if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H #if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H
/* definitely inlining */ /* definitely inlining */
extern SCM_C_INLINE #ifdef __GNUC__
extern
#else
static
#endif
SCM_C_INLINE
#endif #endif
SCM SCM
scm_double_cell (scm_t_bits car, scm_t_bits cbr, scm_double_cell (scm_t_bits car, scm_t_bits cbr,