From 562f49c4929bfd6e06e558d019685abaee20ec1d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Sep 2003 13:34:10 +0000
Subject: [PATCH] Fix problem with Edwin consuming lots of CPU while waiting
 for input.

---
 v7/src/microcode/ntio.c | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/v7/src/microcode/ntio.c b/v7/src/microcode/ntio.c
index d74b80365..d630788ff 100644
--- a/v7/src/microcode/ntio.c
+++ b/v7/src/microcode/ntio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntio.c,v 1.30 2003/04/08 01:11:54 cph Exp $
+$Id: ntio.c,v 1.31 2003/09/26 13:34:10 cph Exp $
 
 Copyright 1993,1997,1998,2000,2001,2003 Massachusetts Institute of Technology
 
@@ -934,7 +934,7 @@ test_single_object_1 (Tchannel channel, unsigned int qmode)
   unsigned int rmode = (qmode & SELECT_MODE_WRITE);
   if (((qmode & SELECT_MODE_READ) != 0)
       && ((channel == (OS_tty_input_channel ()))
-	  ? ((Screen_pending_events_p ()) || (test_for_pending_event ()))
+	  ? (test_for_pending_event ())
 	  : ((NT_channel_n_read (channel)) > 0)))
     rmode |= SELECT_MODE_READ;
   return (rmode);
@@ -943,14 +943,8 @@ test_single_object_1 (Tchannel channel, unsigned int qmode)
 static int
 test_for_pending_event (void)
 {
-  while (1)
-    {
-      MSG m;
-      int mp = (PeekMessage ((&m), 0, 0, 0, PM_NOREMOVE));
-      if (!mp)
-	return (0);
-      if ((m . message) != WM_SCHEME_INTERRUPT)
-	return (1);
-      PeekMessage ((&m), 0, 0, 0, PM_REMOVE);
-    }
+  MSG m;
+  while (PeekMessage ((&m), 0, 0, 0, PM_REMOVE))
+    DispatchMessage (&m);
+  return (Screen_pending_events_p ());
 }
-- 
2.25.1