Fix event insertion when processing more than one event for the current time.

2 files changed, 12 insertions, 3 deletions

diff --git a/sim/ppc/ChangeLog b/sim/ppc/ChangeLog
index 36bb656..e182234 100644
--- a/sim/ppc/ChangeLog
+++ b/sim/ppc/ChangeLog
@@ -1,3 +1,10 @@
+Fri Apr 28 15:59:27 2000  Andrew Cagney  <cagney@b1.cygnus.com>
+
+	* events.c (event_queue_process): Call update_time_from_event
+ 	every time an event is removed from the queue.
+	(update_time_from_event): Delete assertion that a negative
+ 	time_from_event implies an empty event queue.
+
 Fri Apr 28 15:53:54 2000  Andrew Cagney  <cagney@b1.cygnus.com>
 
 	* interrupts.c (deliver_hardware_interrupt): Print time trace in
diff --git a/sim/ppc/events.c b/sim/ppc/events.c
index 5743ffd..72c9138 100644
--- a/sim/ppc/events.c
+++ b/sim/ppc/events.c
@@ -180,7 +180,6 @@ update_time_from_event(event_queue *events)
 	}
     }
   ASSERT(current_time == event_queue_time(events));
-  ASSERT((events->time_from_event >= 0) == (events->queue != NULL));
 }
 
 STATIC_INLINE_EVENTS\
@@ -394,12 +393,15 @@ event_queue_process(event_queue *events)
 			 (long)handler,
 			 (long)data));
     zfree(to_do);
+    /* Always re-compute the time to the next event so that HANDLER()
+       can safely insert new events into the queue. */
+    update_time_from_event(events);
     handler(data);
   }
   events->processing = 0;
 
-  /* re-caculate time for new events */
-  update_time_from_event(events);
+  ASSERT(events->time_from_event > 0);
+  ASSERT(events->queue != NULL); /* always poll event */
 }