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

The value of process.parent has to be set _before_ the thread starts.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-02 00:39:59 +02:00
parent 70a281909a
commit 7becd5f3dd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/threads.d
View file

@ -326,16 +326,16 @@ mp_process_enable(cl_object process)
if (mp_process_active_p(process) != Cnil)
FEerror("Cannot enable the running process ~A.", 1, process);
code = (HANDLE)CreateThread(NULL, 0, thread_entry_point, process, 0, &threadId);
process->process.parent = mp_current_process();
code = (HANDLE)CreateThread(NULL, 0, thread_entry_point, process, 0, &threadId);
output = (process->process.thread = code)? process : Cnil;
#else
int code;
if (mp_process_active_p(process) != Cnil)
FEerror("Cannot enable the running process ~A.", 1, process);
code = pthread_create(&process->process.thread, NULL, thread_entry_point, process);
process->process.parent = mp_current_process();
code = pthread_create(&process->process.thread, NULL, thread_entry_point, process);
output = (process->process.thread = code)? Cnil : process;
#endif
@(return output)