* mi/mi-interp.c (mi_solib_loaded, mi_solib_unloaded): New.
authorVladimir Prus <vladimir@codesourcery.com>
Wed, 18 Feb 2009 07:28:34 +0000 (07:28 +0000)
committerVladimir Prus <vladimir@codesourcery.com>
Wed, 18 Feb 2009 07:28:34 +0000 (07:28 +0000)
(mi_interpreter_init): Register the above.
* solib.c (clear_solib): Notify solib unload.
* breakpoint.c (disable_breakpoints_in_unloaded_shlib): Do not
disable breakpoints on a.out targets.

gdb/ChangeLog
gdb/breakpoint.c
gdb/doc/ChangeLog
gdb/doc/gdb.texinfo
gdb/mi/mi-interp.c
gdb/solib.c
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.mi/mi-nonstop.exp
gdb/testsuite/gdb.mi/mi-nsintrall.exp
gdb/testsuite/gdb.mi/mi-nsmoribund.exp
gdb/testsuite/lib/mi-support.exp

index f4b2e734dae44510de33c7c2bc38b71e46230921..47912f7daedbaef759d619e543d35bb68978d38c 100644 (file)
@@ -1,3 +1,11 @@
+2009-02-18  Vladimir Prus  <vladimir@codesourcery.com>
+
+       * mi/mi-interp.c (mi_solib_loaded, mi_solib_unloaded): New.
+       (mi_interpreter_init): Register the above.
+       * solib.c (clear_solib): Notify solib unload.
+       * breakpoint.c (disable_breakpoints_in_unloaded_shlib): Do not
+       disable breakpoints on a.out targets.
+
 2009-02-17  Vladimir Prus  <vladimir@codesourcery.com>
 
        * observer.c (observer_test_first_notification_function)
index 0caedec92ff35edb39f41887132f59e2c64e1a58..8a7057b03f42732ef596208bbdfd5cee123e9223 100644 (file)
@@ -4457,6 +4457,14 @@ disable_breakpoints_in_unloaded_shlib (struct so_list *solib)
   struct bp_location *loc;
   int disabled_shlib_breaks = 0;
 
+  /* SunOS a.out shared libraries are always mapped, so do not
+     disable breakpoints; they will only be reported as unloaded
+     through clear_solib when GDB discards its shared library
+     list.  See clear_solib for more information.  */
+  if (exec_bfd != NULL
+      && bfd_get_flavour (exec_bfd) == bfd_target_aout_flavour)
+    return;
+
   ALL_BP_LOCATIONS (loc)
   {
     struct breakpoint *b = loc->owner;
index ea227138bdf6702d284b38df803e284e7c4e27d0..c4a3429a9e7869978cf086ae07f2e4a4e01d6869 100644 (file)
@@ -1,3 +1,8 @@
+2009-02-18  Vladimir Prus  <vladimir@codesourcery.com>
+
+       * gdb.texinfo (GDB/MI Async Records): Document the
+       =library-loaded and =library-unloaded notifications.
+
 2009-02-17  Vladimir Prus  <vladimir@codesourcery.com>
 
        * observer.texi (test_notification): New observer.
index 6aad52067d0f00ab993e926b84f0c84e6fdec73a..ce959f58bd988aabbf4dc3481420601802b449a9 100644 (file)
@@ -19912,6 +19912,22 @@ We suggest that in response to this notification, front ends
 highlight the selected thread and cause subsequent commands to apply to
 that thread.
 
+@item =library-loaded,...
+Reports that a new library file was loaded by the program.  This
+notification has 4 fields---@var{id}, @var{target-name},
+@var{host-name}, and @var{symbols-loaded}. The @var{id} field is an
+opaque identifier of the library.  For remote debugging case,
+@var{target-name} and @var{host-name} fields give the name of the
+library file on the target, and on the host respectively. For native
+debugging, both those fields have the same value. The
+@var{symbols-loaded} field reports if the debug symbols for this
+library are loaded.
+
+@item =library-unloaded,...
+Reports that a library was unloaded by the program. This notification
+has 3 fields---@var{id}, @var{target-name} and @var{host-name} with
+the same meaning as for the @code{=library-loaded} notification
+
 @end table
 
 @node GDB/MI Frame Information
index 95dfdf4414ec4fb1f451c728c205b3a77b6650b7..65c1b4f49fafb5da3ba1ff05616a9026b4e3982e 100644 (file)
@@ -34,6 +34,7 @@
 #include "mi-common.h"
 #include "observer.h"
 #include "gdbthread.h"
+#include "solist.h"
 
 /* These are the interpreter setup, etc. functions for the MI interpreter */
 static void mi_execute_command_wrapper (char *cmd);
@@ -58,6 +59,8 @@ static void mi_thread_exit (struct thread_info *t);
 static void mi_new_inferior (int pid);
 static void mi_inferior_exit (int pid);
 static void mi_on_resume (ptid_t ptid);
+static void mi_solib_loaded (struct so_list *solib);
+static void mi_solib_unloaded (struct so_list *solib);
 
 static void *
 mi_interpreter_init (int top_level)
@@ -86,6 +89,8 @@ mi_interpreter_init (int top_level)
       observer_attach_inferior_exit (mi_inferior_exit);
       observer_attach_normal_stop (mi_on_normal_stop);
       observer_attach_target_resumed (mi_on_resume);
+      observer_attach_solib_loaded (mi_solib_loaded);
+      observer_attach_solib_unloaded (mi_solib_unloaded);
     }
 
   return mi;
@@ -408,6 +413,31 @@ mi_on_resume (ptid_t ptid)
   gdb_flush (raw_stdout);
 }
 
+static void
+mi_solib_loaded (struct so_list *solib)
+{
+  struct mi_interp *mi = top_level_interpreter_data ();
+  target_terminal_ours ();
+  fprintf_unfiltered (mi->event_channel, 
+                     "library-loaded,id=\"%s\",target-name=\"%s\",host-name=\"%s\",symbols-loaded=\"%d\"", 
+                     solib->so_original_name, solib->so_original_name, 
+                     solib->so_name, solib->symbols_loaded);
+  gdb_flush (mi->event_channel);
+}
+
+static void
+mi_solib_unloaded (struct so_list *solib)
+{
+  struct mi_interp *mi = top_level_interpreter_data ();
+  target_terminal_ours ();
+  fprintf_unfiltered (mi->event_channel, 
+                     "library-unloaded,id=\"%s\",target-name=\"%s\",host-name=\"%s\"", 
+                     solib->so_original_name, solib->so_original_name, 
+                     solib->so_name);
+  gdb_flush (mi->event_channel);
+}
+
+
 extern initialize_file_ftype _initialize_mi_interp; /* -Wmissing-prototypes */
 
 void
index cce4f7f13b634215a289aaa161e92a59e1f45560..5a282920a162f282869ab960340a31fd4aaf9820 100644 (file)
@@ -908,6 +908,7 @@ clear_solib (void)
     {
       struct so_list *so = so_list_head;
       so_list_head = so->next;
+      observer_notify_solib_unloaded (so);
       if (so->abfd)
        remove_target_sections (so->abfd);
       free_so (so);
index 6c22a6676dfddcf37476cdadee89d4c7400bff5a..9b36fd1e1bcf9d6b289661cc895682f177139085 100644 (file)
@@ -1,3 +1,12 @@
+2009-02-17  Vladimir Prus  <vladimir@codesourcery.com>
+
+       * gdb.mi/mi-nonstop.exp (notifs): Adjust for library
+       notifications.
+       * gdb.mi/mi-nsintrall.exp (notifs): Likewise.
+       * gdb.mi/mi-nsmoribund.exp (notifs): Likewise.
+       * lib/mi-support.exp (library_loaded_re): New.
+       (mi_run_cmd, mi_send_resuming_command_raw): Adjust.
+
 2009-02-17  Vladimir Prus  <vladimir@codesourcery.com>
 
        * gdb.gdb/observer.exp: Use test_notification observer, not
index 2521ae58c214449219653b1ebe8a159151b6f996..08952b0a610f0404b73f57edb0a2eca97a517eb4 100644 (file)
@@ -63,7 +63,7 @@ mi_gdb_test "200-break-insert -t main" ".*"
 set created "=thread-created,id=\"$decimal\"\r\n"
 set running "\\*running,thread-id=\"$decimal\"\r\n"
 
-set notifs "($created)*($running)*"
+set notifs "($created)*($running)*($library_loaded_re)*"
 
 # Note: presently, we skip this test on non-native targets,
 # so 'run' is OK.  As soon as we start to run this on remote
index b0d7b711269afaf1770fd2b479fc52d1a05b85f5..d34b08d4e7849e781b59cea83c8ca2e052323065 100644 (file)
@@ -62,7 +62,7 @@ mi_gdb_test "200-break-insert -t main" ".*"
 set created "=thread-created,id=\"$decimal\"\r\n"
 set running "\\*running,thread-id=\"$decimal\"\r\n"
 
-set notifs "($created)*($running)*"
+set notifs "($created)*($running)*($library_loaded_re)*"
 
 # Note: presently, we skip this test on non-native targets,
 # so 'run' is OK.  As soon as we start to run this on remote
index b836c5b6458aebbe086081064b27f7e945de23ab..505fc849bf178c9b02a776fd3b0c8a3a5b5a00fa 100644 (file)
@@ -62,7 +62,7 @@ mi_gdb_test "200-break-insert -t main" ".*"
 set created "=thread-created,id=\"$decimal\"\r\n"
 set running "\\*running,thread-id=\"$decimal\"\r\n"
 
-set notifs "($created)*($running)*"
+set notifs "($created)*($running)*($library_loaded_re)*"
 
 # Note: presently, we skip this test on non-native targets,
 # so 'run' is OK.  As soon as we start to run this on remote
index a2aa629c5973cf3b8680ba56abe96d8609656c1f..f62c2402c96aa17fd1f5d4ac8f9c95de2448b5b3 100644 (file)
@@ -31,6 +31,7 @@ global mi_inferior_tty_name
 set MIFLAGS "-i=mi"
 
 set thread_selected_re "=thread-selected,id=\"\[0-9+\]\"\r\n"
+set library_loaded_re "=library-loaded\[^\n\]+\"\r\n"
 
 #
 # mi_gdb_exit -- exit the GDB, killing the target program if necessary
@@ -778,6 +779,7 @@ proc mi_run_cmd {args} {
     }
     global mi_gdb_prompt
     global thread_selected_re
+    global library_loaded_re
 
     if [target_info exists gdb_init_command] {
        send_gdb "[target_info gdb_init_command]\n";
@@ -819,7 +821,7 @@ proc mi_run_cmd {args} {
 
     send_gdb "220-exec-run $args\n"
     gdb_expect {
-       -re "220\\^running\r\n(\\*running,thread-id=\"\[^\"\]+\"\r\n|=thread-created,id=\"1\",group-id=\"\[0-9\]+\"\r\n)*(${thread_selected_re})?${mi_gdb_prompt}" {
+       -re "220\\^running\r\n(\\*running,thread-id=\"\[^\"\]+\"\r\n|=thread-created,id=\"1\",group-id=\"\[0-9\]+\"\r\n)*(${library_loaded_re})*(${thread_selected_re})?${mi_gdb_prompt}" {
        }
        timeout {
            perror "Unable to start target"
@@ -1435,10 +1437,11 @@ proc mi_send_resuming_command_raw {command test} {
 
     global mi_gdb_prompt
     global thread_selected_re
+    global library_loaded_re
 
     send_gdb "$command\n"
     gdb_expect {
-        -re "\\^running\r\n\\*running,thread-id=\"\[^\"\]+\"\r\n($thread_selected_re)?${mi_gdb_prompt}" {
+        -re "\\^running\r\n\\*running,thread-id=\"\[^\"\]+\"\r\n($library_loaded_re)*($thread_selected_re)?${mi_gdb_prompt}" {
             # Note that lack of 'pass' call here -- this works around limitation
             # in DejaGNU xfail mechanism. mi-until.exp has this:
             #