mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Immediately register the process with the env it forms part of.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-08 15:19:06 +02:00
parent f03bb29cd9
commit d33fa59ee4
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/threads/process.d
View file

@ -345,8 +345,11 @@ ecl_import_current_thread(cl_object name, cl_object bindings)
process->process.thread = current;
ecl_list_process(process);
process->process.env = env = _ecl_alloc_env();
/* Link environment and process together */
env = _ecl_alloc_env();
env->own_process = process;
process->process.env = env;
ecl_set_process_env(env);
ecl_init_env(env);
env->bindings_array = process->process.initial_bindings;
@ -462,9 +465,12 @@ mp_process_enable(cl_object process)
process->process.parent->process.env->trap_fpe_bits;
ecl_list_process(process);
process->process.env = process_env = _ecl_alloc_env();
ecl_init_env(process_env);
/* Link environment and process together */
process_env = _ecl_alloc_env();
process_env->own_process = process;
process->process.env = process_env;
ecl_init_env(process_env);
process_env->trap_fpe_bits = process->process.trap_fpe_bits;
process_env->bindings_array = process->process.initial_bindings;
process_env->thread_local_bindings_size =