diff src/event-msw.c @ 263:727739f917cb r20-5b30

Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 11cf20601dec
children b2472a1930f2
line wrap: on
line diff
--- a/src/event-msw.c	Mon Aug 13 10:23:52 2007 +0200
+++ b/src/event-msw.c	Mon Aug 13 10:24:41 2007 +0200
@@ -1142,7 +1142,7 @@
 #endif
 
 #ifdef HAVE_TOOLBARS
-      O Toolbar Implementor, this place may have something for you!;
+      /* O Toolbar Implementor, this place may have something for you!;*/
 #endif
 
       /* Bite me - a spurious command. No abort(), for safety */
@@ -1583,6 +1583,7 @@
     }
 }
 
+#ifndef HAVE_X_WINDOWS
 /* This is called from GC when a process object is about to be freed.
    If we've still got pointers to it in this file, we're gonna lose hard.
  */
@@ -1590,20 +1591,17 @@
 debug_process_finalization (struct Lisp_Process *p)
 {
 #if 0 /* #### */
-  int i;
-  int infd, outfd;
-  get_process_file_descriptors (p, &infd, &outfd);
+  Lisp_Object instr, outstr;
+
+  get_process_streams (p, &instr, &outstr);
   /* if it still has fds, then it hasn't been killed yet. */
-  assert (infd < 0);
-  assert (outfd < 0);
-  /* Better not still be in the "with input" table; we know it's got no fds. */
-  for (i = 0; i < MAXDESC; i++)
-    {
-      Lisp_Object process = filedesc_fds_with_input [i];
-      assert (!PROCESSP (process) || XPROCESS (process) != p);
-    }
+  assert (NILP(instr));
+  assert (NILP(outstr));
+
+  /* #### More checks here */
 #endif
 }
+#endif
 
 /************************************************************************/
 /*                            initialization                            */