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

Eliminate last reference to ecl_query_all_processes_status(0).

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-27 20:48:51 +02:00
parent b8ee75a5af
commit 74cf32017b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/unixsys.d
View file

@ -285,16 +285,16 @@ ecl_waitpid(cl_object pid, cl_object wait)
@(return status code pid)
}
@(defun si::wait-for-all-processes (&optional flag)
@(defun si::wait-for-all-processes (&optional unsafep)
@
{
#if defined(SIGCHLD) && !defined(ECL_WINDOWS_HOST)
const cl_env_ptr env = ecl_process_env();
# ifdef ECL_THREADS
if (Null(flag)) {
if (Null(unsafep)) {
/* We come from the parallel thread, must lock */
ECL_WITH_LOCK_BEGIN(env, cl_core.external_processes_lock) {
ecl_query_all_processes_status(0);
si_wait_for_all_processes(1, Ct);
} ECL_WITH_LOCK_END(env, cl_core.external_processes_lock);
return;
}