mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 16:30:19 +02:00
*** empty log message ***
This commit is contained in:
parent
ed1403c6b5
commit
45a1c3e89f
2 changed files with 2 additions and 6 deletions
|
@ -152,12 +152,10 @@ void
|
||||||
scm_gc_mark (SCM ptr)
|
scm_gc_mark (SCM ptr)
|
||||||
{
|
{
|
||||||
if (SCM_IMP (ptr))
|
if (SCM_IMP (ptr))
|
||||||
return ;
|
return;
|
||||||
|
|
||||||
if (SCM_GC_MARK_P (ptr))
|
if (SCM_GC_MARK_P (ptr))
|
||||||
{
|
return;
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
SCM_SET_GC_MARK (ptr);
|
SCM_SET_GC_MARK (ptr);
|
||||||
scm_gc_mark_dependencies (ptr);
|
scm_gc_mark_dependencies (ptr);
|
||||||
|
|
|
@ -221,8 +221,6 @@ typedef unsigned long scm_t_c_bvec_long;
|
||||||
#define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x)
|
#define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x)
|
||||||
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t)
|
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/* Freelists consist of linked cells where the type entry holds the value
|
/* Freelists consist of linked cells where the type entry holds the value
|
||||||
* scm_tc_free_cell and the second entry holds a pointer to the next cell of
|
* scm_tc_free_cell and the second entry holds a pointer to the next cell of
|
||||||
* the freelist. Due to this structure, freelist cells are not cons cells
|
* the freelist. Due to this structure, freelist cells are not cons cells
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue