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

* Removed uses of DEBUG_EXTENSIONS and DYNAMIC_LINKING to

Browse source 
fix compile errors with --disable-deprecated.
This commit is contained in:
Dirk Herrmann 2003-04-20 07:19:38 +00:00
parent 1ac61c2b50
commit d0f6ceb84f
16 changed files with 18 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/root.c
View file

@ -230,9 +230,7 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
contregs->base = stack_start;
contregs->seq = ++n_dynamic_roots;
contregs->throw_value = SCM_BOOL_F;
#ifdef DEBUG_EXTENSIONS
contregs->dframe = 0;
#endif
SCM_NEWSMOB (new_rootcont, scm_tc16_continuation, contregs);
}
old_rootcont = scm_rootcont;
@ -244,10 +242,8 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
*/
old_winds = scm_dynwinds;
scm_dowinds (SCM_EOL, scm_ilength (scm_dynwinds));
#ifdef DEBUG_EXTENSIONS
SCM_DFRAME (old_rootcont) = scm_last_debug_frame;
scm_last_debug_frame = 0;
#endif
{
my_handler_data.run_handler = 0;
@ -258,9 +254,7 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
scm_dowinds (old_winds, - scm_ilength (old_winds));
SCM_REDEFER_INTS;
#ifdef DEBUG_EXTENSIONS
scm_last_debug_frame = SCM_DFRAME (old_rootcont);
#endif
scm_rootcont = old_rootcont;
SCM_REALLOW_INTS;