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

Turn "all interior pointers" off (slight performance gain).

Browse source 
* libguile/gc.c (scm_storage_prehistory): Set `GC_all_interior_pointers'
  to 0.  Register `scm_tc3_cons' and `scm_tc3_closure' as valid
  displacements.

* libguile/struct.c (scm_alloc_struct): Register additional
  displacements.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-48
This commit is contained in:
Ludovic Courtes 2006-11-27 00:14:23 +00:00 • committed by Ludovic Courtès
parent 915b3f9f9a
commit 184327a68d
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/gc.c
View file

@ -678,8 +678,17 @@ scm_getenv_int (const char *var, int def)
void
scm_storage_prehistory ()
{
GC_all_interior_pointers = 0;
GC_INIT ();
/* We only need to register a displacement for those types for which the
higher bits of the type tag are used to store a pointer (that is, a
pointer to an 8-octet aligned region). For `scm_tc3_struct', this is
handled in `scm_alloc_struct ()'. */
GC_REGISTER_DISPLACEMENT (scm_tc3_cons);
GC_REGISTER_DISPLACEMENT (scm_tc3_closure);
/* Sanity check. */
if (!GC_is_visible (scm_sys_protects))
abort ();

6
libguile/struct.c
View file

@ -311,6 +311,12 @@ scm_alloc_struct (int n_words, int n_extra, const char *what)
p[scm_struct_i_n_words] = n_words;
p[scm_struct_i_flags] = 0;
/* Since `SCM' objects will record either P or P + SCM_TC3_STRUCT, we need
to register them as valid displacements. Fortunately, only a handful of
N_EXTRA values are used in core Guile. */
GC_REGISTER_DISPLACEMENT ((char *)p - (char *)block);
GC_REGISTER_DISPLACEMENT ((char *)p - (char *)block + scm_tc3_struct);
return p;
}