mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-03-01 13:26:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

* ada-lang.c (extract_string): Delete.

Browse Source 
(ada_main_name): Reimplement using target_read_string instead of
        extract_string.
This commit is contained in:
Joel Brobecker 2009-04-16 17:16:18 +00:00
parent 34adf97607
commit f9bc20b9be
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/ChangeLog
View File

@ -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.

13
gdb/ada-lang.c
View File

@ -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;
}