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

* pairs.h (SCM_NEWCELL, SCM_NEWCELL2): Use new style freelists.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-14 09:03:32 +00:00
parent 5322a65563
commit 1201a982fa
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/pairs.h
View file

@ -181,24 +181,24 @@ typedef SCM huge *SCMPTR;
#else #else
#define SCM_NEWCELL(_into) \ #define SCM_NEWCELL(_into) \
do { \ do { \
if (SCM_IMP (scm_freelist)) \ if (SCM_IMP (scm_freelist.cells)) \
_into = scm_gc_for_newcell (1, &scm_freelist);\ _into = scm_gc_for_newcell (&scm_freelist);\
else \ else \
{ \ { \
_into = scm_freelist; \ _into = scm_freelist.cells; \
scm_freelist = SCM_CDR (scm_freelist);\ scm_freelist.cells = SCM_CDR (scm_freelist.cells);\
SCM_SETCAR (_into, scm_tc16_allocated); \ SCM_SETCAR (_into, scm_tc16_allocated); \
++scm_cells_allocated; \ ++scm_cells_allocated; \
} \ } \
} while(0) } while(0)
#define SCM_NEWCELL2(_into) \ #define SCM_NEWCELL2(_into) \
do { \ do { \
if (SCM_IMP (scm_freelist2)) \ if (SCM_IMP (scm_freelist2.cells)) \
_into = scm_gc_for_newcell (2, &scm_freelist2);\ _into = scm_gc_for_newcell (&scm_freelist2);\
else \ else \
{ \ { \
_into = scm_freelist2; \ _into = scm_freelist2.cells; \
scm_freelist2 = SCM_CDR (scm_freelist2);\ scm_freelist2.cells = SCM_CDR (scm_freelist2.cells);\
SCM_SETCAR (_into, scm_tc16_allocated); \ SCM_SETCAR (_into, scm_tc16_allocated); \
scm_cells_allocated += 2; \ scm_cells_allocated += 2; \
} \ } \