This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[PATCH] Add support for architecture change events
- To: Insight Maling List <insight at sources dot redhat dot com>
- Subject: [PATCH] Add support for architecture change events
- From: Keith Seitz <keiths at cygnus dot com>
- Date: Mon, 13 Aug 2001 11:31:32 -0700 (PDT)
Hi,
I've committed the following patch, which adds support for gdb's new
"architecture changed" events.
Keith
ChangeLog
2001-08-13 Keith Seitz <keiths@redhat.com>
* generic/gdbtk-hooks.c (gdbtk_add_hooks): Register
architecture_changed event handler.
(gdbtk_architecture_changed): New function.
* library/gdbevent.ith (class ArchChangdEvent): New event.
* library/ehandler.ith (arch_changed): New method. Handler
for ArchChangedEvents.
* library/interface.tcl (gdbtk_tcl_architecture_changed): New
proc to handle architecture change events.
Patch
Index: generic/gdbtk-hooks.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-hooks.c,v
retrieving revision 1.16
diff -u -p -r1.16 gdbtk-hooks.c
--- gdbtk-hooks.c 2001/06/13 20:01:42 1.16
+++ gdbtk-hooks.c 2001/08/13 18:25:29
@@ -80,6 +80,7 @@ extern void (*post_add_symbol_hook) (voi
extern void (*selected_frame_level_changed_hook) (int);
extern int (*ui_loop_hook) (int);
+static void gdbtk_architecture_changed (void);
static void gdbtk_trace_find (char *arg, int from_tty);
static void gdbtk_trace_start_stop (int, int);
static void gdbtk_attach (void);
@@ -132,6 +133,7 @@ gdbtk_add_hooks (void)
handlers.tracepoint_create = gdbtk_create_tracepoint;
handlers.tracepoint_modify = gdbtk_modify_tracepoint;
handlers.tracepoint_delete = gdbtk_delete_tracepoint;
+ handlers.architecture_changed = gdbtk_architecture_changed;
set_gdb_event_hooks (&handlers);
/* Hooks */
@@ -840,3 +842,9 @@ gdbtk_detach ()
}
}
+/* Called from gdbarch_update_p whenever the architecture changes. */
+static void
+gdbtk_architecture_changed (void)
+{
+ Tcl_Eval (gdbtk_interp, "gdbtk_tcl_architecture_changed");
+}
Index: library/gdbevent.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/gdbevent.ith,v
retrieving revision 1.6
diff -u -p -r1.6 gdbevent.ith
--- gdbevent.ith 2001/06/11 23:08:05 1.6
+++ gdbevent.ith 2001/08/13 18:25:29
@@ -208,3 +208,13 @@ class UpdateEvent {
private variable _pc {}
private variable _shlib {}
}
+
+# ARCHITECTURE CHANGED EVENT
+#
+# This event is posted whenever the target architecture changes
+
+class ArchChangedEvent {
+ inherit GDBEvent
+
+ public method handler {} { return "arch_changed" }
+}
Index: library/ehandler.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/ehandler.ith,v
retrieving revision 1.5
diff -u -p -r1.5 ehandler.ith
--- ehandler.ith 2001/06/04 15:49:53 1.5
+++ ehandler.ith 2001/08/13 18:25:29
@@ -41,5 +41,8 @@ class GDBEventHandler {
# Update event
method update {event} {}
+
+ # Architecture changed event
+ method arch_changed {event} {}
}
}
Index: library/interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.28
diff -u -p -r1.28 interface.tcl
--- interface.tcl 2001/08/03 18:46:41 1.28
+++ interface.tcl 2001/08/13 18:25:29
@@ -1745,3 +1745,9 @@ proc initialize_gdbtk {} {
set gdb_target_changed 1
}
+# The architecture changed. Inform the UI.
+proc gdbtk_tcl_architecture_changed {} {
+ set e [ArchChangedEvent \#auto]
+ GDBEventHandler::dispatch $e
+ delete object $e
+}