summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-12-03 21:59:02 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-10 22:19:49 +0200
commite7bca22779c68b800c75fdad8841440dfeb32f8d (patch)
tree7f3ed2c38379082723d980d153a323e84bed9ec8 /libguile/inline.h
parent8e7b3e98072ef30557a0396367ae8b42170e5507 (diff)
downloadguile-e7bca22779c68b800c75fdad8841440dfeb32f8d.tar.gz
Use thread-local allocation (significant perf. improvement!); added the `boehm-gc.h' header.
* libguile/Makefile.am (modinclude_HEADERS): Added `boehm-gc.h'. * libguile/coop-defs.h: Use "libguile/boehm-gc.h" instead of <gc/gc.h>. * libguile/coop-threads.h: Likewise. * libguile/coop.c: Likewise. * libguile/gc.c: Likewise. (scm_storage_prehistory): Invoke `GC_init ()'. * libguile/guardians.c: Use "libguile/boehm-gc.h" instead of <gc/gc.h>. * libguile/inline.h: Likewise. (scm_double_cell): Use `GC_MALLOC' instead of `GC_malloc'. * libguile/pthread-threads.h: Use "libguile/boehm-gc.h" instead of <gc/gc.h>. * libguile/smob.c: Likewise. * libguile/smob.h: Likewise. * libguile/struct.c: Likewise. * libguile/threads.c: Likewise. * libguile/weaks.c: Likewise. git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-51
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index 8d6c41717..75a7cc95c 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -38,7 +38,7 @@
#include "libguile/pairs.h"
-#include <gc/gc.h>
+#include "libguile/boehm-gc.h"
SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr);
@@ -98,7 +98,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
{
SCM z;
- z = SCM_PACK ((scm_t_bits) (GC_malloc (2 * sizeof (scm_t_cell))));
+ z = SCM_PACK ((scm_t_bits) (GC_MALLOC (2 * sizeof (scm_t_cell))));
/* Initialize the type slot last so that the cell is ignored by the
GC until it is completely initialized. This is only relevant
when the GC can actually run during this code, which it can't