aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoel Brobecker <brobecker@gnat.com>2009-04-16 17:16:18 +0000
committerJoel Brobecker <brobecker@gnat.com>2009-04-16 17:16:18 +0000
commitf9bc20b9bed700cb200d59ef8afb4745ad6bfc0f (patch)
treeed5e86f1d37237e761e981362b5762be173f272a
parent34adf976079a1903e0b513410889588ba7d90ec4 (diff)
downloadgdb-f9bc20b9bed700cb200d59ef8afb4745ad6bfc0f.zip
gdb-f9bc20b9bed700cb200d59ef8afb4745ad6bfc0f.tar.gz
gdb-f9bc20b9bed700cb200d59ef8afb4745ad6bfc0f.tar.bz2
* ada-lang.c (extract_string): Delete.
(ada_main_name): Reimplement using target_read_string instead of extract_string.
-rw-r--r--gdb/ChangeLog6
-rw-r--r--gdb/ada-lang.c13
2 files changed, 16 insertions, 3 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f723145..ccbdfea 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 54f2590..814a793 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;
}