mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

move up some initializations in the vm

Browse source 
* libguile/vm.c: Move 'vm-run, 'vm-error, 'debug sym initialization up to
  the bootstrap phase, so they are ready if load-compiled/vm is called
  before (system vm vm) is loaded.
This commit is contained in:
Andy Wingo 2008-09-02 00:27:59 -07:00
parent 27af6bc2b3
commit 90b0be2028
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/vm.c
View file

@ -144,8 +144,9 @@ vm_cont_free (SCM obj)
* VM Internal functions * VM Internal functions
*/ */
SCM_SYMBOL (sym_vm_run, "vm-run"); static SCM sym_vm_run;
SCM_SYMBOL (sym_vm_error, "vm-error"); static SCM sym_vm_error;
static SCM sym_debug;
static scm_byte_t * static scm_byte_t *
vm_fetch_length (scm_byte_t *ip, size_t *lenp) vm_fetch_length (scm_byte_t *ip, size_t *lenp)
@ -316,8 +317,6 @@ vm_free (SCM obj)
return 0; return 0;
} }
SCM_SYMBOL (sym_debug, "debug");
SCM SCM
scm_vm_apply (SCM vm, SCM program, SCM args) scm_vm_apply (SCM vm, SCM program, SCM args)
#define FUNC_NAME "scm_vm_apply" #define FUNC_NAME "scm_vm_apply"
@ -660,6 +659,10 @@ scm_bootstrap_vm (void)
scm_c_make_gsubr ("load-compiled/vm", 1, 0, 0, scm_c_make_gsubr ("load-compiled/vm", 1, 0, 0,
scm_load_compiled_with_vm)); scm_load_compiled_with_vm));
sym_vm_run = scm_permanent_object (scm_from_locale_symbol ("vm-run"));
sym_vm_error = scm_permanent_object (scm_from_locale_symbol ("vm-error"));
sym_debug = scm_permanent_object (scm_from_locale_symbol ("debug"));
strappage = 1; strappage = 1;
} }