mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

fix symbol initialization in vm.c

Browse source 
* libguile/vm.c (scm_bootstrap_vm): Fix case in which some symbols
  wouldn't be initialized by the time they were needed.
This commit is contained in:
Andy Wingo 2010-02-24 23:32:04 +01:00
parent c8df99730a
commit 0404c97dc9
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/vm.c
View file

@ -293,10 +293,9 @@ vm_reinstate_partial_continuation (SCM vm, SCM cont, SCM intwinds,
* VM Internal functions * VM Internal functions
*/ */
SCM_SYMBOL (sym_vm_run, "vm-run"); /* Unfortunately we can't snarf these: snarfed things are only loaded up from
SCM_SYMBOL (sym_vm_error, "vm-error"); (system vm vm), which might not be loaded before an error happens. */
SCM_SYMBOL (sym_keyword_argument_error, "keyword-argument-error"); static SCM sym_vm_run, sym_vm_error, sym_keyword_argument_error, sym_debug;
SCM_SYMBOL (sym_debug, "debug");
void void
scm_i_vm_print (SCM x, SCM port, scm_print_state *pstate) scm_i_vm_print (SCM x, SCM port, scm_print_state *pstate)
@ -753,6 +752,11 @@ scm_bootstrap_vm (void)
scm_c_register_extension ("libguile", "scm_init_vm", scm_c_register_extension ("libguile", "scm_init_vm",
(scm_t_extension_init_func)scm_init_vm, NULL); (scm_t_extension_init_func)scm_init_vm, NULL);
sym_vm_run = scm_from_locale_string ("vm-run");
sym_vm_error = scm_from_locale_string ("vm-error");
sym_keyword_argument_error = scm_from_locale_string ("keyword-argument-error");
sym_debug = scm_from_locale_string ("debug");
#ifdef VM_ENABLE_PRECISE_STACK_GC_SCAN #ifdef VM_ENABLE_PRECISE_STACK_GC_SCAN
vm_stack_gc_kind = vm_stack_gc_kind =
GC_new_kind (GC_new_free_list (), GC_new_kind (GC_new_free_list (),