diff options
author | Paul Smith <psmith@gnu.org> | 1999-07-24 04:55:08 +0000 |
---|---|---|
committer | Paul Smith <psmith@gnu.org> | 1999-07-24 04:55:08 +0000 |
commit | a9166bb7bc8a7798aa75c0077288885e48c37252 (patch) | |
tree | 7e3cf0ed0dafe2cd0b4eb1f437b4fbb280308cfb /job.c | |
parent | 4e7ee4fc01524432028e073bcac96c67a82bf312 (diff) | |
download | gunmake-a9166bb7bc8a7798aa75c0077288885e48c37252.tar.gz |
* Some configure fixes.
Diffstat (limited to 'job.c')
-rw-r--r-- | job.c | 255 |
1 files changed, 126 insertions, 129 deletions
@@ -542,153 +542,150 @@ reap_children (block, err) break; if (c == 0) - { - /* An unknown child died. - Ignore it; it was inherited from our invoker. */ - continue; - } - else - { - if (debug_flag) - printf ("Reaping %s child 0x%08lx PID %ld token %c%s\n", - child_failed ? "losing" : "winning", - (unsigned long int) c, (long) c->pid, c->job_token, - c->remote ? " (remote)" : ""); - - if (c->sh_batch_file) { - if (debug_flag) - printf("Cleaning up temp batch file %s\n", c->sh_batch_file); + /* An unknown child died. + Ignore it; it was inherited from our invoker. */ + continue; - /* just try and remove, don't care if this fails */ - remove(c->sh_batch_file); + if (debug_flag) + printf ("Reaping %s child 0x%08lx PID %ld token %c%s\n", + child_failed ? "losing" : "winning", + (unsigned long int) c, (long) c->pid, c->job_token, + c->remote ? " (remote)" : ""); - /* all done with memory */ - free(c->sh_batch_file); - c->sh_batch_file = NULL; - } + if (c->sh_batch_file) { + if (debug_flag) + printf ("Cleaning up temp batch file %s\n", c->sh_batch_file); - /* If this child had the good stdin, say it is now free. */ - if (c->good_stdin) - good_stdin_used = 0; + /* just try and remove, don't care if this fails */ + remove (c->sh_batch_file); - if (child_failed && !c->noerror && !ignore_errors_flag) - { - /* The commands failed. Write an error message, - delete non-precious targets, and abort. */ - static int delete_on_error = -1; - child_error (c->file->name, exit_code, exit_sig, coredump, 0); - c->file->update_status = 2; - if (delete_on_error == -1) - { - struct file *f = lookup_file (".DELETE_ON_ERROR"); - delete_on_error = f != 0 && f->is_target; - } - if (exit_sig != 0 || delete_on_error) - delete_child_targets (c); - } - else - { - if (child_failed) - { - /* The commands failed, but we don't care. */ - child_error (c->file->name, - exit_code, exit_sig, coredump, 1); - child_failed = 0; - } - - /* If there are more commands to run, try to start them. */ - if (job_next_command (c)) - { - if (handling_fatal_signal) - { - /* Never start new commands while we are dying. - Since there are more commands that wanted to be run, - the target was not completely remade. So we treat - this as if a command had failed. */ - c->file->update_status = 2; - } - else - { - /* Check again whether to start remotely. - Whether or not we want to changes over time. - Also, start_remote_job may need state set up - by start_remote_job_p. */ - c->remote = start_remote_job_p (0); - start_job_command (c); - /* Fatal signals are left blocked in case we were - about to put that child on the chain. But it is - already there, so it is safe for a fatal signal to - arrive now; it will clean up this child's targets. */ - unblock_sigs (); - if (c->file->command_state == cs_running) - /* We successfully started the new command. - Loop to reap more children. */ - continue; - } + /* all done with memory */ + free (c->sh_batch_file); + c->sh_batch_file = NULL; + } - if (c->file->update_status != 0) - /* We failed to start the commands. */ - delete_child_targets (c); - } - else - /* There are no more commands. We got through them all - without an unignored error. Now the target has been - successfully updated. */ - c->file->update_status = 0; - } + /* If this child had the good stdin, say it is now free. */ + if (c->good_stdin) + good_stdin_used = 0; - /* When we get here, all the commands for C->file are finished - (or aborted) and C->file->update_status contains 0 or 2. But - C->file->command_state is still cs_running if all the commands - ran; notice_finish_file looks for cs_running to tell it that - it's interesting to check the file's modtime again now. */ + if (child_failed && !c->noerror && !ignore_errors_flag) + { + /* The commands failed. Write an error message, + delete non-precious targets, and abort. */ + static int delete_on_error = -1; + child_error (c->file->name, exit_code, exit_sig, coredump, 0); + c->file->update_status = 2; + if (delete_on_error == -1) + { + struct file *f = lookup_file (".DELETE_ON_ERROR"); + delete_on_error = f != 0 && f->is_target; + } + if (exit_sig != 0 || delete_on_error) + delete_child_targets (c); + } + else + { + if (child_failed) + { + /* The commands failed, but we don't care. */ + child_error (c->file->name, + exit_code, exit_sig, coredump, 1); + child_failed = 0; + } - if (! handling_fatal_signal) - /* Notice if the target of the commands has been changed. - This also propagates its values for command_state and - update_status to its also_make files. */ - notice_finished_file (c->file); + /* If there are more commands to run, try to start them. */ + if (job_next_command (c)) + { + if (handling_fatal_signal) + { + /* Never start new commands while we are dying. + Since there are more commands that wanted to be run, + the target was not completely remade. So we treat + this as if a command had failed. */ + c->file->update_status = 2; + } + else + { + /* Check again whether to start remotely. + Whether or not we want to changes over time. + Also, start_remote_job may need state set up + by start_remote_job_p. */ + c->remote = start_remote_job_p (0); + start_job_command (c); + /* Fatal signals are left blocked in case we were + about to put that child on the chain. But it is + already there, so it is safe for a fatal signal to + arrive now; it will clean up this child's targets. */ + unblock_sigs (); + if (c->file->command_state == cs_running) + /* We successfully started the new command. + Loop to reap more children. */ + continue; + } + + if (c->file->update_status != 0) + /* We failed to start the commands. */ + delete_child_targets (c); + } + else + /* There are no more commands. We got through them all + without an unignored error. Now the target has been + successfully updated. */ + c->file->update_status = 0; + } + + /* When we get here, all the commands for C->file are finished + (or aborted) and C->file->update_status contains 0 or 2. But + C->file->command_state is still cs_running if all the commands + ran; notice_finish_file looks for cs_running to tell it that + it's interesting to check the file's modtime again now. */ + + if (! handling_fatal_signal) + /* Notice if the target of the commands has been changed. + This also propagates its values for command_state and + update_status to its also_make files. */ + notice_finished_file (c->file); - if (debug_flag) - printf ("Removing child 0x%08lx PID %ld token %c%s from chain.\n", - (unsigned long int) c, (long) c->pid, c->job_token, - c->remote ? " (remote)" : ""); + if (debug_flag) + printf ("Removing child 0x%08lx PID %ld token %c%s from chain.\n", + (unsigned long int) c, (long) c->pid, c->job_token, + c->remote ? " (remote)" : ""); - /* Block fatal signals while frobnicating the list, so that - children and job_slots_used are always consistent. Otherwise - a fatal signal arriving after the child is off the chain and - before job_slots_used is decremented would believe a child was - live and call reap_children again. */ - block_sigs (); + /* Block fatal signals while frobnicating the list, so that + children and job_slots_used are always consistent. Otherwise + a fatal signal arriving after the child is off the chain and + before job_slots_used is decremented would believe a child was + live and call reap_children again. */ + block_sigs (); - /* If this job has a token out, return it. */ - free_job_token(c); + /* If this job has a token out, return it. */ + free_job_token(c); - /* There is now another slot open. */ - if (job_slots_used > 0) - --job_slots_used; + /* There is now another slot open. */ + if (job_slots_used > 0) + --job_slots_used; - /* Remove the child from the chain and free it. */ - if (lastc == 0) - children = c->next; - else - lastc->next = c->next; - if (! handling_fatal_signal) /* Don't bother if about to die. */ - free_child (c); + /* Remove the child from the chain and free it. */ + if (lastc == 0) + children = c->next; + else + lastc->next = c->next; + if (! handling_fatal_signal) /* Don't bother if about to die. */ + free_child (c); - unblock_sigs (); + unblock_sigs (); - /* If the job failed, and the -k flag was not given, die, - unless we are already in the process of dying. */ - if (!err && child_failed && !keep_going_flag && - /* fatal_error_signal will die with the right signal. */ - !handling_fatal_signal) - die (2); - } + /* If the job failed, and the -k flag was not given, die, + unless we are already in the process of dying. */ + if (!err && child_failed && !keep_going_flag && + /* fatal_error_signal will die with the right signal. */ + !handling_fatal_signal) + die (2); /* Only block for one child. */ block = 0; } + return; } |