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

Do not attempt interrupting a process while it is being initialized.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-20 22:54:23 +01:00
parent 7e6b13cfa3
commit 942e37bc8d
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/threads.d
View file

@ -141,6 +141,7 @@ thread_entry_point(void *arg)
cl_object process = (cl_object)arg;
cl_env_ptr env;
ecl_set_process_env(NULL);
process->process.active = 2;
#ifndef ECL_WINDOWS_THREADS
pthread_cleanup_push(thread_cleanup, (void *)process);