Provide more detailed traces of the event queue.

diff --git a/sim/common/ChangeLog b/sim/common/ChangeLog
index bc0e35d50566c91739e5d99a5ec5b06e0adad405..43462140a082030ef3e0b919c668a23b3a4bb1f9 100644 (file)
--- a/sim/common/ChangeLog
+++ b/sim/common/ChangeLog
@@ -1,3 +1,8 @@
+Wed Apr 26 16:18:44 2000  Andrew Cagney  <cagney@b1.cygnus.com>
+
+       * sim-events.c (update_time_from_event): Add more detailed event
+       tracing.
+
 2000-03-30  Dave Brolley  <brolley@redhat.com>
 
        * aclocal.m4 (cgen): Use guile to run cgen.

diff --git a/sim/common/sim-events.c b/sim/common/sim-events.c
index fc211644e85acbbb10c68c078556996dff99b5c6..fa294a7e1478f9771b30815da90e6f089d796fac 100644 (file)
--- a/sim/common/sim-events.c
+++ b/sim/common/sim-events.c
@@ -395,6 +395,27 @@ update_time_from_event (SIM_DESC sd)
       events->time_of_event = current_time - 1;
       events->time_from_event = -1;
     }
+  if (ETRACE_P)
+    {
+      sim_event *event;
+      int i;
+      for (event = events->queue, i = 0;
+          event != NULL;
+          event = event->next, i++)
+       {
+         ETRACE ((_ETRACE,
+                  "event time-from-event - time %ld, delta %ld - event %d, tag 0x%lx, time %ld, handler 0x%lx, data 0x%lx%s%s\n",
+                  (long)current_time,
+                  (long)events->time_from_event,
+                  i,
+                  (long)event,
+                  (long)event->time_of_event,
+                  (long)event->handler,
+                  (long)event->data,
+                  (event->trace != NULL) ? ", " : "",
+                  (event->trace != NULL) ? event->trace : ""));
+       }
+    }
   SIM_ASSERT (current_time == sim_events_time (sd));
 }