Mercurial > hg > xemacs-beta
comparison src/process-nt.c @ 5133:444a448b2f53
Merge branch ben-lisp-object into default branch
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sun, 07 Mar 2010 06:47:37 -0600 |
parents | b5df3737028a |
children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
5113:b2dcf6a6d8ab | 5133:444a448b2f53 |
---|---|
654 { | 654 { |
655 p->process_data = xnew_and_zero (struct nt_process_data); | 655 p->process_data = xnew_and_zero (struct nt_process_data); |
656 } | 656 } |
657 | 657 |
658 static void | 658 static void |
659 nt_finalize_process_data (Lisp_Process *p, int for_disksave) | 659 nt_finalize_process_data (Lisp_Process *p) |
660 { | 660 { |
661 assert (!for_disksave); | |
662 /* If it's still in the list of processes we are waiting on delete | 661 /* If it's still in the list of processes we are waiting on delete |
663 it. This can happen if we forcibly delete a process and are unable | 662 it. This can happen if we forcibly delete a process and are unable |
664 to kill it. */ | 663 to kill it. */ |
665 mswindows_unwait_process (p); | 664 mswindows_unwait_process (p); |
666 if (NT_DATA (p)->h_process) | 665 if (NT_DATA (p)->h_process) |
1157 p->pipe_errstream, in_usid, err_usid); | 1156 p->pipe_errstream, in_usid, err_usid); |
1158 /* Go ahead and close the process handle now to prevent accumulation | 1157 /* Go ahead and close the process handle now to prevent accumulation |
1159 of handles when lots of processes are run. (The handle gets closed | 1158 of handles when lots of processes are run. (The handle gets closed |
1160 anyway upon GC, but that might be a ways away, esp. if | 1159 anyway upon GC, but that might be a ways away, esp. if |
1161 deleted-exited-processes is set to nil.) */ | 1160 deleted-exited-processes is set to nil.) */ |
1162 nt_finalize_process_data (p, 0); | 1161 nt_finalize_process_data (p); |
1163 } | 1162 } |
1164 | 1163 |
1165 /* | 1164 /* |
1166 * Send a signal number SIGNO to PROCESS. | 1165 * Send a signal number SIGNO to PROCESS. |
1167 * CURRENT_GROUP means send to the process group that currently owns | 1166 * CURRENT_GROUP means send to the process group that currently owns |