guile/libguile/inline.c

/* Copyright (C) 2001, 2006, 2008, 2011, 2013 Free Software Foundation, Inc.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public License
 * as published by the Free Software Foundation; either version 3 of
 * the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301 USA
 */

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#define SCM_IMPLEMENT_INLINES 1
#define SCM_INLINE_C_IMPLEMENTING_INLINES 1
#include "libguile/inline.h"
#include "libguile/array-handle.h"
#include "libguile/gc.h"
#include "libguile/smob.h"
array handle inline functions defined in array-handle.h. * libguile/inline.h: * libguile/array-handle.h (scm_array_handle_ref): (scm_array_handle_set): Move definitions here from inline.h. * libguile/inline.c: Include array-handle.h. 2013-02-18 12:46:00 +01:00			`/* Copyright (C) 2001, 2006, 2008, 2011, 2013 Free Software Foundation, Inc.`
New files. 2001-11-25 14:45:17 +00:00			`*`
Changed license terms to the plain LGPL thru-out. 2003-04-05 19:15:35 +00:00			`* This library is free software; you can redistribute it and/or`
Change Guile license to LGPLv3+ (Not quite finished, the following will be done tomorrow. module/srfi/.scm module/rnrs/.scm module/scripts/.scm testsuite/.scm guile-readline/* ) 2009-06-17 00:22:09 +01:00			`* modify it under the terms of the GNU Lesser General Public License`
			`* as published by the Free Software Foundation; either version 3 of`
			`* the License, or (at your option) any later version.`
New files. 2001-11-25 14:45:17 +00:00			`*`
Change Guile license to LGPLv3+ (Not quite finished, the following will be done tomorrow. module/srfi/.scm module/rnrs/.scm module/scripts/.scm testsuite/.scm guile-readline/* ) 2009-06-17 00:22:09 +01:00			`* This library is distributed in the hope that it will be useful, but`
			`* WITHOUT ANY WARRANTY; without even the implied warranty of`
Changed license terms to the plain LGPL thru-out. 2003-04-05 19:15:35 +00:00			`* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU`
			`* Lesser General Public License for more details.`
New files. 2001-11-25 14:45:17 +00:00			`*`
Changed license terms to the plain LGPL thru-out. 2003-04-05 19:15:35 +00:00			`* You should have received a copy of the GNU Lesser General Public`
			`* License along with this library; if not, write to the Free Software`
Change Guile license to LGPLv3+ (Not quite finished, the following will be done tomorrow. module/srfi/.scm module/rnrs/.scm module/scripts/.scm testsuite/.scm guile-readline/* ) 2009-06-17 00:22:09 +01:00			`* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA`
			`* 02110-1301 USA`
Changed license terms to the plain LGPL thru-out. 2003-04-05 19:15:35 +00:00			`*/`
New files. 2001-11-25 14:45:17 +00:00
Include <config.h> in all C files; use `#ifdef HAVE_CONFIG_H' rather than `#if'. 2008-09-13 15:35:27 +02:00			`#ifdef HAVE_CONFIG_H`
			`# include <config.h>`
			`#endif`

simplify inline function infrastructure * libguile/__scm.h (SCM_C_EXTERN_INLINE): Move this definition here, from inline.h. We'd like to support inline function definitions in more header files: not just inline.h. (SCM_CAN_INLINE, SCM_INLINE, SCM_INLINE_IMPLEMENTATION): New definitions. * libguile/gc.h (SCM_GC_MALLOC, SCM_GC_MALLOC_POINTERLESS): Define these wrappers, which redirect to the GC_MALLOC macros when building Guile, and the scm_gc_malloc functions otherwise. A step towards getting BDW-GC out of Guile's API. * libguile/inline.h: Simplify, using SCM_INLINE, SCM_INLINE_IMPLEMENTATION, and SCM_IMPLEMENT_INLINES. Also use the new SCM_GC_MALLOC macros. 2011-05-26 15:53:02 +02:00			`#define SCM_IMPLEMENT_INLINES 1`
			`#define SCM_INLINE_C_IMPLEMENTING_INLINES 1`
New files. 2001-11-25 14:45:17 +00:00			`#include "libguile/inline.h"`
array handle inline functions defined in array-handle.h. * libguile/inline.h: * libguile/array-handle.h (scm_array_handle_ref): (scm_array_handle_set): Move definitions here from inline.h. * libguile/inline.c: Include array-handle.h. 2013-02-18 12:46:00 +01:00			`#include "libguile/array-handle.h"`
scm_cell, scm_double_cell, scm_words back to gc.h * libguile/inline.h: * libguile/gc.h (scm_cell, scm_double_cell, scm_words): Move declarations and definitions back here, from inline.h. It's more natural. * libguile/inline.c: Include gc.h as well. 2011-05-26 16:08:02 +02:00			`#include "libguile/gc.h"`
scm_new_smob, scm_new_double_smob inline functions * libguile/smob.h (scm_new_smob, scm_new_double_smob): New constructors, which do what SCM_NEWSMOB / SCM_NEWSMOB3 had done, but with inline functions instead of macros. They also bail to scm_i_new_smob / scm_i_new_double_smob in either the mark or the free case, so that the inline definition doesn't reference other internal details like libgc stuff. (SCM_SMOB_TYPE_MASK et al): Move definitions up so the new_smob see them as already being declared. (SCM_NEWSMOB, SCM_RETURN_NEWSMOB, SCM_NEWSMOB2, SCM_RETURN_NEWSMOB2): (SCM_NEWSMOB3, SCM_RETURN_NEWSMOB3): Reimplement in terms of the new inline functions. Remove now-unneeded bdw-gc include. * libguile/smob.c (finalize_smob): Rename from scm_i_finalize_smob, and make static. (scm_i_new_smob, scm_i_new_double_smob): Slow-path allocators. (scm_i_finalize_smob, scm_i_new_smob_with_mark_proc): Add back-compatibility shims to preserve ABI. * libguile/inline.c: Include smob.h, so as to reify scm_new_smob and scm_new_double_smob. 2011-05-26 16:49:47 +02:00			`#include "libguile/smob.h"`