mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2025-02-11 07:51:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formerly job.c.~98~

Browse source
This commit is contained in:
Roland McGrath 1993-04-07 21:10:12 +00:00
parent de21395cad
commit 791928d60b
1 changed files with 23 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
job.c
View file

@ -615,7 +615,11 @@ start_job_command (child)
child->file->command_state = cs_finished;
}
static void
/* Try to start a child running.
Returns nonzero if the child was started (and maybe finished), or zero if
the load was too high and the child was put on the `waiting_jobs' chain. */
static int
start_waiting_job (c)
struct child *c;
{
@ -634,7 +638,7 @@ start_waiting_job (c)
c->file->command_state = cs_running;
c->next = waiting_jobs;
waiting_jobs = c;
return;
return 0;
}
/* Start the first command; reap_children will run later command lines. */
@ -665,6 +669,8 @@ start_waiting_job (c)
abort ();
break;
}
return 1;
}
/* Create a `struct child' for FILE and start its commands running. */
@ -678,6 +684,10 @@ new_job (file)
char **lines;
register unsigned int i;
/* Let any previously decided-upon jobs that are waiting
for the load to go down start before this new one. */
start_waiting_jobs ();
/* Reap any children that might have finished recently. */
reap_children (0, 0);
@ -877,22 +887,23 @@ load_too_high ()
void
start_waiting_jobs ()
{
while (waiting_jobs != 0)
if (waiting_jobs == 0)
return;
do
{
struct child *c;
struct child *job;
/* Check for recently deceased descendants. */
reap_children (0, 0);
if (job_slots_used > 0
&& (job_slots_used == job_slots || load_too_high ()))
/* We have started all the jobs we can at the moment. */
return;
/* Take a job off the waiting list. */
job = waiting_jobs;
waiting_jobs = job->next;
c = waiting_jobs;
waiting_jobs = c->next;
start_waiting_job (c);
}
/* Try to start that job. We break out of the loop as soon
as start_waiting_job puts one back on the waiting list. */
} while (start_waiting_job (job) && waiting_jobs != 0);
}
/* Replace the current process with one executing the command in ARGV.