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

* gh_data.c (gh_scm2chars, gh_scm2shorts, gh_scm2longs),

Browse source 
(gh_scm2floats, gh_scm2doubles): Check for malloc() returning NULL
in various places.
(gh_scm2newstr, gh_symbol2newstr): Change call to
scm_must_malloc() to malloc(), because user-free()able memory is
allocated.
* gc.c: Added declaration of `scm_debug_check_freelist'.
This commit is contained in:
Martin Grabmüller 2001-03-14 10:02:12 +00:00
parent 26a3038db8
commit d3dd80ab5b
3 changed files with 60 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc.c
View file

@ -609,6 +609,10 @@ SCM_DEFINE (scm_free_list_length, "free-list-length", 0, 0, 0,
#ifdef GUILE_DEBUG_FREELIST
/* Non-zero if freelist debugging is in effect. Set this via
`gc-set-debug-check-freelist!'. */
static int scm_debug_check_freelist = 0;
/* Number of calls to SCM_NEWCELL since startup. */
static unsigned long scm_newcell_count;
static unsigned long scm_newcell2_count;