mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

* stacks.c: Avoid compiler warning re: unitialized var.

Browse source 
* scmconfig.h.in: Added DEBUG_FREELIST

* pairs.h: Fix macro that was not do-while(0) sandwiched.

* gc.h, gc.c: Added scm_gc_set_debug_check_freelist_x,
scm_map_free_list
This commit is contained in:
Greg J. Badros 1999-09-27 23:30:36 +00:00
parent 52b3923a9d
commit 25748c78cf
5 changed files with 27 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/pairs.h
View file

@ -145,10 +145,10 @@ typedef SCM huge *SCMPTR;
#ifdef DEBUG_FREELIST
#define SCM_NEWCELL(_into) (_into = scm_debug_newcell ())
#define SCM_NEWCELL(_into) do { _into = scm_debug_newcell (); } while (0)
#else
#define SCM_NEWCELL(_into) \
{ \
do { \
if (SCM_IMP(scm_freelist)) \
_into = scm_gc_for_newcell();\
else \
@ -157,7 +157,7 @@ typedef SCM huge *SCMPTR;
scm_freelist = SCM_CDR(scm_freelist);\
++scm_cells_allocated; \
} \
}
} while(0)
#endif