22 |
|
|
23 |
#include <string.h> |
#include <string.h> |
24 |
|
|
25 |
|
#include "libguile/debug.h" |
26 |
#include "libguile/root.h" |
#include "libguile/root.h" |
27 |
#include "libguile/stackchk.h" |
#include "libguile/stackchk.h" |
28 |
#include "libguile/smob.h" |
#include "libguile/smob.h" |
30 |
#include "libguile/dynwind.h" |
#include "libguile/dynwind.h" |
31 |
#include "libguile/values.h" |
#include "libguile/values.h" |
32 |
|
|
|
#ifdef DEBUG_EXTENSIONS |
|
|
#include "libguile/debug.h" |
|
|
#endif |
|
|
|
|
33 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
34 |
#include "libguile/continuations.h" |
#include "libguile/continuations.h" |
35 |
|
|
128 |
continuation->throw_value = SCM_EOL; |
continuation->throw_value = SCM_EOL; |
129 |
continuation->base = src = rootcont->base; |
continuation->base = src = rootcont->base; |
130 |
continuation->seq = rootcont->seq; |
continuation->seq = rootcont->seq; |
|
#ifdef DEBUG_EXTENSIONS |
|
131 |
continuation->dframe = scm_last_debug_frame; |
continuation->dframe = scm_last_debug_frame; |
|
#endif |
|
132 |
SCM_NEWSMOB (cont, scm_tc16_continuation, continuation); |
SCM_NEWSMOB (cont, scm_tc16_continuation, continuation); |
133 |
SCM_EXIT_A_SECTION; |
SCM_EXIT_A_SECTION; |
134 |
|
|
210 |
memcpy (dst, continuation->stack, |
memcpy (dst, continuation->stack, |
211 |
sizeof (SCM_STACKITEM) * continuation->num_stack_items); |
sizeof (SCM_STACKITEM) * continuation->num_stack_items); |
212 |
|
|
|
#ifdef DEBUG_EXTENSIONS |
|
213 |
scm_last_debug_frame = continuation->dframe; |
scm_last_debug_frame = continuation->dframe; |
|
#endif |
|
214 |
|
|
215 |
continuation->throw_value = val; |
continuation->throw_value = val; |
216 |
#ifdef __ia64__ |
#ifdef __ia64__ |