45f79714b9
- archer-jankratochvil-fedora13 commit: 39c5a8b75fad3acd7204903db5dee025055a4594 - Fix a regression on "AAA::ALPHA" test due to a merge from FSF GDB. - Fix a regression of previous release due to false identification as core file. - Move ifunc .patch into the GIT-managed archer-jankratochvil-fedora13 branch. - Update gdb.pie/corefile.exp from 2007-01-26 FSF GDB commit by Andreas Schwab.
327 lines
14 KiB
Diff
327 lines
14 KiB
Diff
Index: gdb-7.0.50.20100115/gdb/dwarf2read.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/dwarf2read.c 2010-01-15 21:41:32.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/dwarf2read.c 2010-01-15 21:42:19.000000000 +0100
|
|
@@ -5821,7 +5821,12 @@ read_common_block (struct die_info *die,
|
|
{
|
|
struct attribute *attr;
|
|
struct symbol *sym;
|
|
- CORE_ADDR base = (CORE_ADDR) 0;
|
|
+ struct objfile *objfile = cu->objfile;
|
|
+ CORE_ADDR baseaddr = ANOFFSET (objfile->section_offsets,
|
|
+ SECT_OFF_TEXT (objfile));
|
|
+ /* This is used only for DW_AT_data_member_location entries. */
|
|
+ CORE_ADDR base = 0;
|
|
+ int base_p = 0;
|
|
|
|
attr = dwarf2_attr (die, DW_AT_location, cu);
|
|
if (attr)
|
|
@@ -5830,6 +5835,7 @@ read_common_block (struct die_info *die,
|
|
if (attr_form_is_block (attr))
|
|
{
|
|
base = decode_locdesc (DW_BLOCK (attr), cu);
|
|
+ base_p = 1;
|
|
}
|
|
else if (attr_form_is_section_offset (attr))
|
|
{
|
|
@@ -5891,12 +5897,15 @@ read_common_block (struct die_info *die,
|
|
else
|
|
dwarf2_complex_location_expr_complaint ();
|
|
|
|
- SYMBOL_VALUE_ADDRESS (sym) = base + byte_offset;
|
|
+ if (!base_p)
|
|
+ dwarf2_invalid_attrib_class_complaint
|
|
+ ("DW_AT_data_member_location", "common block member");
|
|
+ SYMBOL_VALUE_ADDRESS (sym) = base + byte_offset + baseaddr;
|
|
add_symbol_to_list (sym, &global_symbols);
|
|
}
|
|
|
|
if (SYMBOL_CLASS (sym) == LOC_STATIC)
|
|
- SET_FIELD_PHYSADDR (*field, SYMBOL_VALUE_ADDRESS (sym));
|
|
+ SET_FIELD_PHYSADDR (*field, SYMBOL_VALUE_ADDRESS (sym) - baseaddr);
|
|
else
|
|
SET_FIELD_PHYSNAME (*field, SYMBOL_LINKAGE_NAME (sym));
|
|
FIELD_TYPE (*field) = SYMBOL_TYPE (sym);
|
|
@@ -5910,7 +5919,7 @@ read_common_block (struct die_info *die,
|
|
|
|
sym = new_symbol (die, type, cu);
|
|
/* SYMBOL_VALUE_ADDRESS never gets used as all its fields are static. */
|
|
- SYMBOL_VALUE_ADDRESS (sym) = base;
|
|
+ SYMBOL_VALUE_ADDRESS (sym) = base + baseaddr;
|
|
|
|
set_die_type (die, type, cu);
|
|
}
|
|
Index: gdb-7.0.50.20100115/gdb/exec.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/exec.c 2010-01-15 21:35:14.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/exec.c 2010-01-15 21:47:19.000000000 +0100
|
|
@@ -35,6 +35,7 @@
|
|
#include "arch-utils.h"
|
|
#include "gdbthread.h"
|
|
#include "progspace.h"
|
|
+#include "solib.h"
|
|
|
|
#include <fcntl.h>
|
|
#include "readline/readline.h"
|
|
@@ -225,6 +226,10 @@ exec_file_attach (char *filename, int fr
|
|
char *scratch_pathname;
|
|
int scratch_chan;
|
|
struct target_section *sections = NULL, *sections_end = NULL;
|
|
+ struct target_section *p;
|
|
+ int addr_bit;
|
|
+ CORE_ADDR mask = CORE_ADDR_MAX;
|
|
+ CORE_ADDR displacement;
|
|
|
|
scratch_chan = openp (getenv ("PATH"), OPF_TRY_CWD_FIRST, filename,
|
|
write_files ? O_RDWR | O_BINARY : O_RDONLY | O_BINARY,
|
|
@@ -293,12 +298,23 @@ exec_file_attach (char *filename, int fr
|
|
scratch_pathname, bfd_errmsg (bfd_get_error ()));
|
|
}
|
|
|
|
+ set_gdbarch_from_file (exec_bfd);
|
|
+
|
|
+ addr_bit = gdbarch_addr_bit (target_gdbarch);
|
|
+ if (addr_bit < (sizeof (CORE_ADDR) * HOST_CHAR_BIT))
|
|
+ mask = ((CORE_ADDR) 1 << addr_bit) - 1;
|
|
+
|
|
+ displacement = solib_exec_displacement ();
|
|
+ for (p = sections; p < sections_end; p++)
|
|
+ {
|
|
+ p->addr = (p->addr + displacement) & mask;
|
|
+ p->endaddr = (p->endaddr + displacement) & mask;
|
|
+ }
|
|
+
|
|
exec_bfd_mtime = bfd_get_mtime (exec_bfd);
|
|
|
|
validate_files ();
|
|
|
|
- set_gdbarch_from_file (exec_bfd);
|
|
-
|
|
/* Add the executable's sections to the current address spaces'
|
|
list of sections. This possibly pushes the exec_ops
|
|
target. */
|
|
Index: gdb-7.0.50.20100115/gdb/gdbtypes.h
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/gdbtypes.h 2010-01-15 21:35:16.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/gdbtypes.h 2010-01-15 21:44:24.000000000 +0100
|
|
@@ -406,6 +406,7 @@ enum type_instance_flag_value
|
|
enum field_loc_kind
|
|
{
|
|
FIELD_LOC_KIND_BITPOS, /* bitpos */
|
|
+ /* This address is unrelocated by the objfile's ANOFFSET. */
|
|
FIELD_LOC_KIND_PHYSADDR, /* physaddr */
|
|
FIELD_LOC_KIND_PHYSNAME /* physname */
|
|
};
|
|
@@ -582,6 +583,7 @@ struct main_type
|
|
is the location (in the target) of the static field.
|
|
Otherwise, physname is the mangled label of the static field. */
|
|
|
|
+ /* This address is unrelocated by the objfile's ANOFFSET. */
|
|
CORE_ADDR physaddr;
|
|
char *physname;
|
|
}
|
|
@@ -1100,6 +1102,7 @@ extern void allocate_gnat_aux_type (stru
|
|
#define FIELD_LOC_KIND(thisfld) ((thisfld).loc_kind)
|
|
#define FIELD_BITPOS(thisfld) ((thisfld).loc.bitpos)
|
|
#define FIELD_STATIC_PHYSNAME(thisfld) ((thisfld).loc.physname)
|
|
+/* This address is unrelocated by the objfile's ANOFFSET. */
|
|
#define FIELD_STATIC_PHYSADDR(thisfld) ((thisfld).loc.physaddr)
|
|
#define SET_FIELD_BITPOS(thisfld, bitpos) \
|
|
(FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_BITPOS, \
|
|
@@ -1107,6 +1110,7 @@ extern void allocate_gnat_aux_type (stru
|
|
#define SET_FIELD_PHYSNAME(thisfld, name) \
|
|
(FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSNAME, \
|
|
FIELD_STATIC_PHYSNAME (thisfld) = (name))
|
|
+/* This address is unrelocated by the objfile's ANOFFSET. */
|
|
#define SET_FIELD_PHYSADDR(thisfld, addr) \
|
|
(FIELD_LOC_KIND (thisfld) = FIELD_LOC_KIND_PHYSADDR, \
|
|
FIELD_STATIC_PHYSADDR (thisfld) = (addr))
|
|
@@ -1119,6 +1123,7 @@ extern void allocate_gnat_aux_type (stru
|
|
#define TYPE_FIELD_LOC_KIND(thistype, n) FIELD_LOC_KIND (TYPE_FIELD (thistype, n))
|
|
#define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS (TYPE_FIELD (thistype, n))
|
|
#define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) FIELD_STATIC_PHYSNAME (TYPE_FIELD (thistype, n))
|
|
+/* This address is unrelocated by the objfile's ANOFFSET. */
|
|
#define TYPE_FIELD_STATIC_PHYSADDR(thistype, n) FIELD_STATIC_PHYSADDR (TYPE_FIELD (thistype, n))
|
|
#define TYPE_FIELD_ARTIFICIAL(thistype, n) FIELD_ARTIFICIAL(TYPE_FIELD(thistype,n))
|
|
#define TYPE_FIELD_BITSIZE(thistype, n) FIELD_BITSIZE(TYPE_FIELD(thistype,n))
|
|
Index: gdb-7.0.50.20100115/gdb/jv-lang.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/jv-lang.c 2010-01-15 21:35:13.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/jv-lang.c 2010-01-15 21:41:58.000000000 +0100
|
|
@@ -416,7 +416,8 @@ java_link_class_type (struct gdbarch *gd
|
|
|
|
fields = NULL;
|
|
nfields--; /* First set up dummy "class" field. */
|
|
- SET_FIELD_PHYSADDR (TYPE_FIELD (type, nfields), value_address (clas));
|
|
+ SET_FIELD_PHYSADDR (TYPE_FIELD (type, nfields), value_address (clas)
|
|
+ - (TYPE_OBJFILE (type) == NULL ? 0 : ANOFFSET (TYPE_OBJFILE (type)->section_offsets, SECT_OFF_TEXT (TYPE_OBJFILE (type)))));
|
|
TYPE_FIELD_NAME (type, nfields) = "class";
|
|
TYPE_FIELD_TYPE (type, nfields) = value_type (clas);
|
|
SET_TYPE_FIELD_PRIVATE (type, nfields);
|
|
@@ -462,7 +463,8 @@ java_link_class_type (struct gdbarch *gd
|
|
SET_TYPE_FIELD_PROTECTED (type, i);
|
|
}
|
|
if (accflags & 0x0008) /* ACC_STATIC */
|
|
- SET_FIELD_PHYSADDR (TYPE_FIELD (type, i), boffset);
|
|
+ SET_FIELD_PHYSADDR (TYPE_FIELD (type, i), boffset
|
|
+ - (TYPE_OBJFILE (type) == NULL ? 0 : ANOFFSET (TYPE_OBJFILE (type)->section_offsets, SECT_OFF_TEXT (TYPE_OBJFILE (type)))));
|
|
else
|
|
TYPE_FIELD_BITPOS (type, i) = 8 * boffset;
|
|
if (accflags & 0x8000) /* FIELD_UNRESOLVED_FLAG */
|
|
Index: gdb-7.0.50.20100115/gdb/solib-svr4.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/solib-svr4.c 2010-01-15 21:35:16.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/solib-svr4.c 2010-01-15 21:44:55.000000000 +0100
|
|
@@ -1689,7 +1689,10 @@ svr4_exec_displacement (void)
|
|
if (target_auxv_search (¤t_target, AT_ENTRY, &entry_point) == 1)
|
|
return entry_point - bfd_get_start_address (exec_bfd);
|
|
|
|
- return svr4_static_exec_displacement ();
|
|
+ if (!ptid_equal (inferior_ptid, null_ptid))
|
|
+ return svr4_static_exec_displacement ();
|
|
+
|
|
+ return 0;
|
|
}
|
|
|
|
/* Relocate the main executable. This function should be called upon
|
|
@@ -1700,7 +1703,7 @@ svr4_exec_displacement (void)
|
|
static void
|
|
svr4_relocate_main_executable (void)
|
|
{
|
|
- CORE_ADDR displacement = svr4_exec_displacement ();
|
|
+ CORE_ADDR displacement = solib_exec_displacement ();
|
|
|
|
/* Even if DISPLACEMENT is 0 still try to relocate it as this is a new
|
|
difference of in-memory vs. in-file addresses and we could already
|
|
@@ -2054,6 +2057,7 @@ _initialize_svr4_solib (void)
|
|
svr4_so_ops.free_so = svr4_free_so;
|
|
svr4_so_ops.clear_solib = svr4_clear_solib;
|
|
svr4_so_ops.solib_create_inferior_hook = svr4_solib_create_inferior_hook;
|
|
+ svr4_so_ops.exec_displacement = svr4_exec_displacement;
|
|
svr4_so_ops.special_symbol_handling = svr4_special_symbol_handling;
|
|
svr4_so_ops.current_sos = svr4_current_sos;
|
|
svr4_so_ops.open_symbol_file_object = open_symbol_file_object;
|
|
Index: gdb-7.0.50.20100115/gdb/solib.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/solib.c 2010-01-15 21:35:16.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/solib.c 2010-01-15 21:41:58.000000000 +0100
|
|
@@ -1037,6 +1037,19 @@ solib_create_inferior_hook (int from_tty
|
|
ops->solib_create_inferior_hook (from_tty);
|
|
}
|
|
|
|
+/* Query the difference of in-memory VMA addresses vs. exec_bfd VMAs. */
|
|
+
|
|
+CORE_ADDR
|
|
+solib_exec_displacement (void)
|
|
+{
|
|
+ struct target_so_ops *ops = solib_ops (target_gdbarch);
|
|
+
|
|
+ if (ops->exec_displacement != NULL)
|
|
+ return (*ops->exec_displacement) ();
|
|
+ else
|
|
+ return 0;
|
|
+}
|
|
+
|
|
/* GLOBAL FUNCTION
|
|
|
|
in_solib_dynsym_resolve_code -- check to see if an address is in
|
|
Index: gdb-7.0.50.20100115/gdb/solib.h
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/solib.h 2010-01-08 23:52:04.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/solib.h 2010-01-15 21:42:36.000000000 +0100
|
|
@@ -44,6 +44,8 @@ extern int solib_read_symbols (struct so
|
|
|
|
extern void solib_create_inferior_hook (int from_tty);
|
|
|
|
+extern CORE_ADDR solib_exec_displacement (void);
|
|
+
|
|
/* If ADDR lies in a shared library, return its name. */
|
|
|
|
extern char *solib_name_from_address (struct program_space *, CORE_ADDR);
|
|
Index: gdb-7.0.50.20100115/gdb/solist.h
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/solist.h 2010-01-08 23:52:04.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/solist.h 2010-01-15 21:41:58.000000000 +0100
|
|
@@ -92,6 +92,9 @@ struct target_so_ops
|
|
/* Target dependent code to run after child process fork. */
|
|
void (*solib_create_inferior_hook) (int from_tty);
|
|
|
|
+ /* Query the difference of in-memory VMA addresses vs. exec_bfd VMAs. */
|
|
+ CORE_ADDR (*exec_displacement) (void);
|
|
+
|
|
/* Do additional symbol handling, lookup, etc. after symbols
|
|
for a shared object have been loaded. */
|
|
void (*special_symbol_handling) (void);
|
|
Index: gdb-7.0.50.20100115/gdb/symfile.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/symfile.c 2010-01-15 21:35:14.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/symfile.c 2010-01-15 21:41:58.000000000 +0100
|
|
@@ -832,15 +832,36 @@ syms_from_objfile (struct objfile *objfi
|
|
if an error occurs during symbol reading. */
|
|
old_chain = make_cleanup_free_objfile (objfile);
|
|
|
|
- /* If ADDRS and OFFSETS are both NULL, put together a dummy address
|
|
- list. We now establish the convention that an addr of zero means
|
|
- no load address was specified. */
|
|
+ /* If ADDRS and OFFSETS are both NULL, put together a dummy offset list. */
|
|
+
|
|
if (! addrs && ! offsets)
|
|
{
|
|
- local_addr
|
|
- = alloc_section_addr_info (bfd_count_sections (objfile->obfd));
|
|
- make_cleanup (xfree, local_addr);
|
|
- addrs = local_addr;
|
|
+ /* Relocateble files have an exception in default_symfile_offsets which
|
|
+ applies only for ADDRS. But calling solib_exec_displacement is more
|
|
+ suitable for OFFSETS. Fortunately we never need the both
|
|
+ functionalities simultaneously and in other cases zeroed ADDRS and
|
|
+ zeroed OFFSETS are equivalent. */
|
|
+
|
|
+ if ((bfd_get_file_flags (objfile->obfd) & (EXEC_P | DYNAMIC)) == 0)
|
|
+ {
|
|
+ local_addr
|
|
+ = alloc_section_addr_info (bfd_count_sections (objfile->obfd));
|
|
+ make_cleanup (xfree, local_addr);
|
|
+ addrs = local_addr;
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ CORE_ADDR displacement = 0;
|
|
+ int i;
|
|
+
|
|
+ if (mainline)
|
|
+ displacement = solib_exec_displacement ();
|
|
+
|
|
+ num_offsets = bfd_count_sections (objfile->obfd);
|
|
+ offsets = alloca (SIZEOF_N_SECTION_OFFSETS (num_offsets));
|
|
+ for (i = 0; i < num_offsets; i++)
|
|
+ offsets->offsets[i] = displacement;
|
|
+ }
|
|
}
|
|
|
|
/* Now either addrs or offsets is non-zero. */
|
|
Index: gdb-7.0.50.20100115/gdb/value.c
|
|
===================================================================
|
|
--- gdb-7.0.50.20100115.orig/gdb/value.c 2010-01-15 21:35:13.000000000 +0100
|
|
+++ gdb-7.0.50.20100115/gdb/value.c 2010-01-15 21:41:58.000000000 +0100
|
|
@@ -1897,7 +1897,8 @@ value_static_field (struct type *type, i
|
|
if (TYPE_FIELD_LOC_KIND (type, fieldno) == FIELD_LOC_KIND_PHYSADDR)
|
|
{
|
|
retval = value_at (TYPE_FIELD_TYPE (type, fieldno),
|
|
- TYPE_FIELD_STATIC_PHYSADDR (type, fieldno));
|
|
+ TYPE_FIELD_STATIC_PHYSADDR (type, fieldno)
|
|
+ + (TYPE_OBJFILE (type) == NULL ? 0 : ANOFFSET (TYPE_OBJFILE (type)->section_offsets, SECT_OFF_TEXT (TYPE_OBJFILE (type)))));
|
|
}
|
|
else
|
|
{
|
|
@@ -1927,7 +1928,8 @@ value_static_field (struct type *type, i
|
|
}
|
|
if (retval && VALUE_LVAL (retval) == lval_memory)
|
|
SET_FIELD_PHYSADDR (TYPE_FIELD (type, fieldno),
|
|
- value_address (retval));
|
|
+ value_address (retval)
|
|
+ - (TYPE_OBJFILE (type) == NULL ? 0 : ANOFFSET (TYPE_OBJFILE (type)->section_offsets, SECT_OFF_TEXT (TYPE_OBJFILE (type)))));
|
|
}
|
|
return retval;
|
|
}
|