From: Andrew Cagney <cagney@redhat.com>
Date: Fri, 28 Apr 2000 06:13:46 +0000 (+0000)
Subject: Provide more detailed traces of the event queue.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5eb1a8fac3a063d2ea5439a99be88a0c6cadce4e;p=binutils-gdb.git

Provide more detailed traces of the event queue.
---

diff --git a/sim/common/ChangeLog b/sim/common/ChangeLog
index bc0e35d5056..43462140a08 100644
--- 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 fc211644e85..fa294a7e147 100644
--- 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));
 }