From: Joel Brobecker <brobecker@gnat.com>
Date: Thu, 16 Apr 2009 17:16:18 +0000 (+0000)
Subject:         * ada-lang.c (extract_string): Delete.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f9bc20b9bed700cb200d59ef8afb4745ad6bfc0f;p=binutils-gdb.git

    * ada-lang.c (extract_string): Delete.
        (ada_main_name): Reimplement using target_read_string instead of
        extract_string.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f723145caaf..ccbdfea4f8f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2009-04-16  Joel Brobecker  <brobecker@adacore.com>
+
+	* ada-lang.c (extract_string): Delete.
+	(ada_main_name): Reimplement using target_read_string instead of
+	extract_string.
+
 2009-04-16  Andreas Schwab  <schwab@linux-m68k.org>
 
 	* m68klinux-nat.c: Remove obsolete comment.
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 54f2590e4d2..814a793e33c 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -679,8 +679,7 @@ char *
 ada_main_name (void)
 {
   struct minimal_symbol *msym;
-  CORE_ADDR main_program_name_addr;
-  static char main_program_name[1024];
+  static char *main_program_name = NULL;
 
   /* For Ada, the name of the main procedure is stored in a specific
      string constant, generated by the binder.  Look for that symbol,
@@ -691,11 +690,19 @@ ada_main_name (void)
 
   if (msym != NULL)
     {
+      CORE_ADDR main_program_name_addr;
+      int err_code;
+
       main_program_name_addr = SYMBOL_VALUE_ADDRESS (msym);
       if (main_program_name_addr == 0)
         error (_("Invalid address for Ada main program name."));
 
-      extract_string (main_program_name_addr, main_program_name);
+      xfree (main_program_name);
+      target_read_string (main_program_name_addr, &main_program_name,
+                          1024, &err_code);
+
+      if (err_code != 0)
+        return NULL;
       return main_program_name;
     }