mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +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

9
libguile/continuations.c
View file

@ -22,6 +22,7 @@
#include <string.h>
#include "libguile/debug.h"
#include "libguile/root.h"
#include "libguile/stackchk.h"
#include "libguile/smob.h"
@ -29,10 +30,6 @@
#include "libguile/dynwind.h"
#include "libguile/values.h"
#ifdef DEBUG_EXTENSIONS
#include "libguile/debug.h"
#endif
#include "libguile/validate.h"
#include "libguile/continuations.h"
@ -131,9 +128,7 @@ scm_make_continuation (int *first)
continuation->throw_value = SCM_EOL;
continuation->base = src = rootcont->base;
continuation->seq = rootcont->seq;
#ifdef DEBUG_EXTENSIONS
continuation->dframe = scm_last_debug_frame;
#endif
SCM_NEWSMOB (cont, scm_tc16_continuation, continuation);
SCM_EXIT_A_SECTION;
@ -215,9 +210,7 @@ copy_stack_and_call (scm_t_contregs *continuation, SCM val,
memcpy (dst, continuation->stack,
sizeof (SCM_STACKITEM) * continuation->num_stack_items);
#ifdef DEBUG_EXTENSIONS
scm_last_debug_frame = continuation->dframe;
#endif
continuation->throw_value = val;
#ifdef __ia64__