From FEDORA_PATCHES Mon Sep 17 00:00:00 2001

From: Fedora GDB patches <invalid@email.com>

Date: Fri, 27 Oct 2017 21:07:50 +0200

Subject: gdb-archer-pie-addons.patch

;;=push+jan: May get obsoleted by Tom's unrelocated objfiles patch.

diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h

--- a/gdb/gdbtypes.h

+++ b/gdb/gdbtypes.h

@@ -516,6 +516,7 @@ enum field_loc_kind

   {

     FIELD_LOC_KIND_BITPOS,	/**< bitpos */

     FIELD_LOC_KIND_ENUMVAL,	/**< enumval */

+    /* This address is unrelocated by the objfile's ANOFFSET.  */

     FIELD_LOC_KIND_PHYSADDR,	/**< physaddr */

     FIELD_LOC_KIND_PHYSNAME,	/**< physname */

     FIELD_LOC_KIND_DWARF_BLOCK	/**< dwarf_block */

@@ -566,6 +567,7 @@ union field_location

      field.  Otherwise, physname is the mangled label of the

      static field.  */

+  /* This address is unrelocated by the objfile's ANOFFSET.  */

   CORE_ADDR physaddr;

   const char *physname;

@@ -1474,6 +1476,7 @@ extern void set_type_vptr_basetype (struct type *, struct type *);

 #define FIELD_ENUMVAL_LVAL(thisfld) ((thisfld).loc.enumval)

 #define FIELD_ENUMVAL(thisfld) (FIELD_ENUMVAL_LVAL (thisfld) + 0)

 #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 FIELD_DWARF_BLOCK(thisfld) ((thisfld).loc.dwarf_block)

 #define SET_FIELD_BITPOS(thisfld, bitpos)			\

@@ -1485,6 +1488,7 @@ extern void set_type_vptr_basetype (struct type *, struct type *);

 #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))

@@ -1501,6 +1505,7 @@ extern void set_type_vptr_basetype (struct type *, struct type *);

 #define TYPE_FIELD_BITPOS(thistype, n) FIELD_BITPOS (TYPE_FIELD (thistype, n))

 #define TYPE_FIELD_ENUMVAL(thistype, n) FIELD_ENUMVAL (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_DWARF_BLOCK(thistype, n) FIELD_DWARF_BLOCK (TYPE_FIELD (thistype, n))

 #define TYPE_FIELD_ARTIFICIAL(thistype, n) FIELD_ARTIFICIAL(TYPE_FIELD(thistype,n))

diff --git a/gdb/value.c b/gdb/value.c

--- a/gdb/value.c

+++ b/gdb/value.c

@@ -2839,7 +2839,8 @@ value_static_field (struct type *type, int fieldno)

     {

     case FIELD_LOC_KIND_PHYSADDR:

       retval = value_at_lazy (TYPE_FIELD_TYPE (type, fieldno),

-			      TYPE_FIELD_STATIC_PHYSADDR (type, fieldno));

+			      TYPE_FIELD_STATIC_PHYSADDR (type, fieldno)

+			      + (TYPE_OBJFILE (type) == NULL ? 0 : TYPE_OBJFILE (type)->section_offsets[SECT_OFF_TEXT (TYPE_OBJFILE (type))]));

       break;

     case FIELD_LOC_KIND_PHYSNAME:

     {