/[guile]/guile/guile-core/libguile/continuations.c
ViewVC logotype

Diff of /guile/guile-core/libguile/continuations.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.49 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 22  Line 22 
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"
# Line 29  Line 30 
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    
# Line 131  scm_make_continuation (int *first) Line 128  scm_make_continuation (int *first)
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    
# Line 215  copy_stack_and_call (scm_t_contregs *con Line 210  copy_stack_and_call (scm_t_contregs *con
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__

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26