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

Initialize `get_internal_run_time' before it is used.

Browse source 
* libguile/init.c (scm_i_init_guile): Call `scm_init_stime' before
  `scm_init_gc'.  Fixes <https://savannah.gnu.org/bugs/?34616> reported
  by Bake Timmons.
This commit is contained in:
Ludovic Courtès 2011-10-22 13:25:11 +02:00
parent 74e4dd2798
commit 80fc43f2cf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/init.c
View file

@ -435,7 +435,8 @@ scm_i_init_guile (void *base)
scm_init_objprop (); scm_init_objprop ();
scm_init_promises (); /* requires smob_prehistory */ scm_init_promises (); /* requires smob_prehistory */
scm_init_hooks (); /* Requires smob_prehistory */ scm_init_hooks (); /* Requires smob_prehistory */
scm_init_gc (); /* Requires hooks */ scm_init_stime ();
scm_init_gc (); /* Requires hooks and `get_internal_run_time' */
scm_init_gc_protect_object (); /* requires threads_prehistory */ scm_init_gc_protect_object (); /* requires threads_prehistory */
scm_init_gdbint (); /* Requires strports, gc_protect_object */ scm_init_gdbint (); /* Requires strports, gc_protect_object */
scm_init_gettext (); scm_init_gettext ();
@ -481,7 +482,6 @@ scm_i_init_guile (void *base)
scm_init_load (); /* Requires strings */ scm_init_load (); /* Requires strings */
scm_init_print (); /* Requires strings, struct, smob */ scm_init_print (); /* Requires strings, struct, smob */
scm_init_read (); scm_init_read ();
scm_init_stime ();
scm_init_strorder (); scm_init_strorder ();
scm_init_srfi_13 (); scm_init_srfi_13 ();
scm_init_srfi_14 (); /* Requires smob_prehistory */ scm_init_srfi_14 (); /* Requires smob_prehistory */