Mercurial > hg > xemacs-beta

diff src/process.c @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
author: cvs
date: Mon, 13 Aug 2007 09:21:54 +0200
parents: 360340f9fd5f
children: 9f59509498e1
--- a/src/process.c	Mon Aug 13 09:20:50 2007 +0200
+++ b/src/process.c	Mon Aug 13 09:21:54 2007 +0200
@@ -2203,6 +2203,11 @@
   int i;
   struct Lisp_Process *p;
 
+  if (exited_processes_index <= 0)
+    {
+      return;
+    }
+
 #ifdef  EMACS_BLOCK_SIGNAL
   EMACS_BLOCK_SIGNAL (SIGCHLD);
 #endif
@@ -2285,6 +2290,11 @@
 static void
 record_exited_processes (int block_sigchld)
 {
+  if (!sigchld_happened)
+    {
+      return;
+    }
+
 #ifdef EMACS_BLOCK_SIGNAL
   if (block_sigchld)
     EMACS_BLOCK_SIGNAL (SIGCHLD);