fix global enviroment reset

svn: r1171
This commit is contained in:
Matthew Flatt 2005-10-26 21:27:06 +00:00
parent b671f3825c
commit a804d634d4
2 changed files with 5 additions and 3 deletions

View File

@ -3036,7 +3036,7 @@ static void check_ptr(void **a)
}
# endif
static void check_variable_stack()
void GC_check_variable_stack()
{
void **limit, **var_stack;
# if CHECK_STACK_PTRS
@ -4021,7 +4021,7 @@ void *GC_malloc_one_tagged(size_t size_in_bytes)
void **m, **naya;
#if CHECKS
check_variable_stack();
GC_check_variable_stack();
#endif
size_in_words = ((size_in_bytes + 3) >> LOG_WORD_SIZE);
@ -4099,7 +4099,7 @@ static gcINLINE void *malloc_untagged(size_t size_in_bytes, mtype_t mtype, MSet
void **m, **naya;
#if CHECKS
check_variable_stack();
GC_check_variable_stack();
#endif
if (!size_in_bytes)

View File

@ -163,6 +163,8 @@ Scheme_Env *scheme_basic_env()
env = scheme_make_empty_env();
scheme_install_initial_module_set(env);
scheme_set_param(scheme_current_config(), MZCONFIG_ENV,
(Scheme_Object *)env);
scheme_init_port_config();
scheme_init_port_fun_config();