mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Remove unhittable else branch for nonexistent type of debug frame

Browse source 
* libguile/stacks.c (stack_depth): Remove unhittable else branch
  apparently catering to a kind of frame that isn't an eval, apply or
  void frame - in fact there are no other kinds of frames.
This commit is contained in:
Neil Jerram 2009-09-16 23:59:15 +01:00
parent eb350124a8
commit a29c00447b
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stacks.c
View file

@ -151,7 +151,7 @@ stack_depth (scm_t_debug_frame *dframe, scm_t_ptrdiff offset, SCM vmframe,
&& !SCM_UNBNDP (info[1].a.proc)) && !SCM_UNBNDP (info[1].a.proc))
++n; ++n;
} }
else if (SCM_APPLYFRAMEP (*dframe)) else
{ {
scm_t_debug_info *vect = RELOC_INFO (dframe->vect, offset); scm_t_debug_info *vect = RELOC_INFO (dframe->vect, offset);
if (SCM_PROGRAM_P (vect[0].a.proc)) if (SCM_PROGRAM_P (vect[0].a.proc))
@ -177,8 +177,6 @@ stack_depth (scm_t_debug_frame *dframe, scm_t_ptrdiff offset, SCM vmframe,
else else
++n; /* increment for non-program apply frame */ ++n; /* increment for non-program apply frame */
} }
else
++n;
} }
if (dframe && SCM_VOIDFRAMEP (*dframe)) if (dframe && SCM_VOIDFRAMEP (*dframe))
*id = RELOC_INFO(dframe->vect, offset)[0].id; *id = RELOC_INFO(dframe->vect, offset)[0].id;