libguile/boehm-gc.h

   1 #ifndef SCM_BOEHM_GC_H
   2 #define SCM_BOEHM_GC_H
   3
   4 /* Copyright (C) 2006, 2008 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
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but 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 02110-1301 USA
  19  */
  20
  21 /* Correct header inclusion.  */
  22
  23 #include "libguile/gen-scmconfig.h"
  24
  25 #ifdef SCM_I_GSC_USE_PTHREAD_THREADS
  26
  27 /* When pthreads are used, let `libgc' know about it and redirect allocation
  28    calls such as `GC_MALLOC ()' to (contention-free, faster) thread-local
  29    allocation.  */
  30
  31 # define GC_THREADS 1
  32 # define GC_REDIRECT_TO_LOCAL 1
  33
  34 #endif
  35
  36 #include <gc/gc.h>
  37
  38 #if (! ((defined GC_VERSION_MAJOR) && (GC_VERSION_MAJOR >= 7)))
  39 /* This was needed with `libgc' 6.x.  */
  40 # include <gc/gc_local_alloc.h>
  41 #endif
  42
  43 #if (defined GC_VERSION_MAJOR) && (GC_VERSION_MAJOR >= 7)
  44 /* This type was provided by `libgc' 6.x.  */
  45 typedef void *GC_PTR;
  46 #endif
  47
  48 #endif /* SCM_BOEHM_GC_H */