mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +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

8
libguile/stacks.c
View file

@ -440,7 +440,7 @@ scm_make_stack (args)
SCM args;
{
int n, maxp, size;
scm_debug_frame *dframe;
scm_debug_frame *dframe = scm_last_debug_frame;
scm_info_frame *iframe;
long offset = 0;
SCM stack, id;
@ -455,9 +455,9 @@ scm_make_stack (args)
/* Extract a pointer to the innermost frame of whatever object
scm_make_stack was given. */
if (obj == SCM_BOOL_T)
dframe = scm_last_debug_frame;
else
/* just use dframe == scm_last_debug_frame
(from initialization of dframe, above) if obj is #t */
if (obj != SCM_BOOL_T)
{
SCM_ASSERT (SCM_NIMP (obj), obj, SCM_ARG1, s_make_stack);
if (SCM_DEBUGOBJP (obj))