mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* gc.h (SCM_SET_FREE_CELL_TYPE): New macro.

Browse source 
* gc.c (init_heap_seg): Use it instead of SCM_SET_CELL_TYPE, which
might cause unwanted checking with SCM_DEBUG_CELL_ACCESSES.
This commit is contained in:
Marius Vollmer 2004-09-07 15:50:36 +00:00
parent b2699bc3d9
commit 414f3b7c9d
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -2294,7 +2294,7 @@ init_heap_seg (SCM_CELLPTR seg_org, size_t size, scm_t_freelist *freelist)
last_card = card;
}
SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell);
SCM_SET_FREE_CELL_TYPE (scmptr);
SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (nxt));
ptr = nxt;