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

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

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

revision 1.58 by ghouston, Sat Sep 15 21:56:52 2001 UTC revision 1.59 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 105  scm_make_root (SCM parent) Line 105  scm_make_root (SCM parent)
105    SCM root;    SCM root;
106    scm_root_state *root_state;    scm_root_state *root_state;
107    
108    root_state = (scm_root_state *) scm_must_malloc (sizeof (scm_root_state),    root_state = (scm_root_state *) scm_gc_malloc (sizeof (scm_root_state),
109                                                     "scm_make_root");                                                   "root state");
110    if (SCM_ROOTP (parent))    if (SCM_ROOTP (parent))
111      {      {
112        memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state));        memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state));
# Line 247  scm_internal_cwdr (scm_t_catch_body body Line 247  scm_internal_cwdr (scm_t_catch_body body
247    
248      SCM_REDEFER_INTS;      SCM_REDEFER_INTS;
249      {      {
250        scm_t_contregs *contregs = scm_must_malloc (sizeof (scm_t_contregs),        scm_t_contregs *contregs = scm_gc_malloc (sizeof (scm_t_contregs),
251                                                  "inferior root continuation");                                                  "continuation");
252    
253        contregs->num_stack_items = 0;        contregs->num_stack_items = 0;
254        contregs->dynenv = SCM_EOL;        contregs->dynenv = SCM_EOL;

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

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