libguile/bdw-gc.h

   1 #ifndef SCM_BDW_GC_H
   2 #define SCM_BDW_GC_H
   3
   4 /* Copyright (C) 2006, 2008, 2009 Free Software Foundation, Inc.
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public License
   8  * as published by the Free Software Foundation; either version 3 of
   9  * the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful, but
  12  * WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19  * 02110-1301 USA
  20  */
  21
  22 /* Correct header inclusion.  */
  23
  24 #include "libguile/scmconfig.h"
  25
  26 #ifdef SCM_USE_PTHREAD_THREADS
  27
  28 /* When pthreads are used, let `libgc' know about it and redirect allocation
  29    calls such as `GC_MALLOC ()' to (contention-free, faster) thread-local
  30    allocation.  */
  31
  32 # define GC_THREADS 1
  33 # define GC_REDIRECT_TO_LOCAL 1
  34
  35 #endif
  36
  37 #include <gc/gc.h>
  38
  39 #if (! ((defined GC_VERSION_MAJOR) && (GC_VERSION_MAJOR >= 7)))
  40 /* This was needed with `libgc' 6.x.  */
  41 # include <gc/gc_local_alloc.h>
  42 #endif
  43
  44 #if (defined GC_VERSION_MAJOR) && (GC_VERSION_MAJOR >= 7)
  45 /* This type was provided by `libgc' 6.x.  */
  46 typedef void *GC_PTR;
  47 #endif
  48
  49 #endif /* SCM_BDW_GC_H */