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