mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* continuations.c, debug.[ch], eval.c, gscm.c init.c, root.c,

Browse source 
throw.c: Renamed last_debug_info_frame -> scm_last_debug_frame.

* init.c (scm_start_stack): Set initial root continuation number
to 0.
This commit is contained in:
Mikael Djurfeldt 1996-10-05 16:49:49 +00:00
parent 1646d37b71
commit 4b5166ac27
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/init.c
View file

@ -198,6 +198,7 @@ scm_start_stack (base, in, out, err)
SCM_NEWCELL (scm_rootcont); SCM_NEWCELL (scm_rootcont);
SCM_SETJMPBUF (scm_rootcont, scm_must_malloc ((long) sizeof (regs), "continuation")); SCM_SETJMPBUF (scm_rootcont, scm_must_malloc ((long) sizeof (regs), "continuation"));
SCM_CAR (scm_rootcont) = scm_tc7_contin; SCM_CAR (scm_rootcont) = scm_tc7_contin;
SCM_SEQ (scm_rootcont) = 0;
/* The root continuation if further initialized by scm_restart_stack. */ /* The root continuation if further initialized by scm_restart_stack. */
/* Create the look-aside stack for variables that are shared between /* Create the look-aside stack for variables that are shared between
@ -221,7 +222,7 @@ scm_restart_stack (base)
SCM_DYNENV (scm_rootcont) = SCM_EOL; SCM_DYNENV (scm_rootcont) = SCM_EOL;
SCM_THROW_VALUE (scm_rootcont) = SCM_EOL; SCM_THROW_VALUE (scm_rootcont) = SCM_EOL;
#ifdef DEBUG_EXTENSIONS #ifdef DEBUG_EXTENSIONS
SCM_DFRAME (scm_rootcont) = last_debug_info_frame = 0; SCM_DFRAME (scm_rootcont) = scm_last_debug_frame = 0;
#endif #endif
SCM_BASE (scm_rootcont) = base; SCM_BASE (scm_rootcont) = base;
scm_continuation_stack_ptr = SCM_MAKINUM (0); scm_continuation_stack_ptr = SCM_MAKINUM (0);
@ -354,7 +355,7 @@ scm_boot_guile (result, argc, argv, in, out, err, init_func, boot_cmd)
scm_init_storage (0); scm_init_storage (0);
scm_init_root (); scm_init_root ();
#ifdef USE_THREADS #ifdef USE_THREADS
scm_init_threads (); scm_init_threads (&i);
#endif #endif
scm_start_stack (&i, in, out, err); scm_start_stack (&i, in, out, err);
scm_init_gsubr (); scm_init_gsubr ();