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

PROCESS-JOIN would fail when called while a thread was being started.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-18 23:22:06 +01:00
parent 5e9c80942c
commit edd09ea7e5
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -15,6 +15,8 @@ ECL 10.1.1:
- PROCESS-JOIN was exported from the wrong package.
- PROCESS-JOIN would fail when called while a thread was being started.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

5
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;
process->process.active = 2;
#ifndef ECL_WINDOWS_THREADS
pthread_cleanup_push(thread_cleanup, (void *)process);
#endif
@ -434,9 +435,11 @@ mp_process_join(cl_object process)
{
assert_type_process(process);
/* We only wait for threads that we have created */
if (process->process.active != 1) {
if (process->process.active) {
cl_object l = process->process.exit_lock;
if (!Null(l)) {
while (process->process.active != 1)
cl_sleep(MAKE_FIXNUM(0));
l = mp_get_lock(1, l);
if (Null(l)) {
FEerror("MP:PROCESS-JOIN: Error when "