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

if we have no eval.go, load no .go

Browse source 
* libguile/load.c (scm_init_eval_in_scheme): If we have no eval.go, null
  out the load-compiled path so that we load no compiled code. Prevents
  partially compiled Guile from turning tail-calls into stack-munching
  calls.
This commit is contained in:
Andy Wingo 2009-12-10 20:26:13 +01:00
parent 08d7492cf0
commit ed1bf2c85c
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/load.c
View file

@ -851,6 +851,9 @@ scm_init_eval_in_scheme (void)
if (scm_is_true (eval_scm) && scm_is_true (eval_go) if (scm_is_true (eval_scm) && scm_is_true (eval_go)
&& compiled_is_fresh (eval_scm, eval_go)) && compiled_is_fresh (eval_scm, eval_go))
scm_load_compiled_with_vm (eval_go); scm_load_compiled_with_vm (eval_go);
else
/* if we have no eval.go, we shouldn't load any compiled code at all */
*scm_loc_load_compiled_path = SCM_EOL;
} }