google3/third_party/grte/v5_src/glibc-2.27/elf/get-dynamic-info.h - GRTEv5 - Git at Google

 /* Read the dynamic section at DYN and fill in INFO with indices DT_*.
    Copyright (C) 2012-2018 Free Software Foundation, Inc.
    This file is part of the GNU C Library.

    The GNU C Library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    The GNU C Library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with the GNU C Library; if not, see
    <http://www.gnu.org/licenses/>.  */

 /* This file is included multiple times and therefore lacks a header
    file inclusion guard.  */

 #include <assert.h>
 #include <libc-diag.h>

 #if defined NESTING || !defined SAW_EGDI

 #ifndef RESOLVE_MAP
 static
 #else
 auto
 #endif
 inline void __attribute__ ((unused, always_inline))
 elf_get_dynamic_info (struct link_map *l, ElfW(Dyn) *temp)
 {
   ElfW(Dyn) *dyn = l->l_ld;
   ElfW(Dyn) **info;
 #if __ELF_NATIVE_CLASS == 32
   typedef Elf32_Word d_tag_utype;
 #elif __ELF_NATIVE_CLASS == 64
   typedef Elf64_Xword d_tag_utype;
 #endif

 #if !defined RTLD_BOOTSTRAP && !defined STATIC_PIE_BOOTSTRAP
   if (dyn == NULL)
     return;
 #endif

   info = l->l_info;

   while (dyn->d_tag != DT_NULL)
     {
       /* Google-local: b/208156916.  See ELF_DYNAMIC_DO_RELR.  */
       if (dyn->d_tag == DT_RELR)
 	info[VERSYMIDX (DT_VERSYM + 1)] = dyn;
       else if (dyn->d_tag == DT_RELRSZ)
 	info[VERSYMIDX (DT_VERSYM + 2)] = dyn;
       else if ((d_tag_utype) dyn->d_tag < DT_NUM)
 	info[dyn->d_tag] = dyn;
       else if (dyn->d_tag >= DT_LOPROC &&
 	       dyn->d_tag < DT_LOPROC + DT_THISPROCNUM)
 	{
 	  /* This does not violate the array bounds of l->l_info, but
 	     gcc 4.6 on sparc somehow does not see this.  */
 	  DIAG_PUSH_NEEDS_COMMENT;
 	  DIAG_IGNORE_NEEDS_COMMENT (4.6,
 				     "-Warray-bounds");
 	  info[dyn->d_tag - DT_LOPROC + DT_NUM] = dyn;
 	  DIAG_POP_NEEDS_COMMENT;
 	}
       else if ((d_tag_utype) DT_VERSIONTAGIDX (dyn->d_tag) < DT_VERSIONTAGNUM)
 	info[VERSYMIDX (dyn->d_tag)] = dyn;
       else if ((d_tag_utype) DT_EXTRATAGIDX (dyn->d_tag) < DT_EXTRANUM)
 	info[DT_EXTRATAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
 	     + DT_VERSIONTAGNUM] = dyn;
       else if ((d_tag_utype) DT_VALTAGIDX (dyn->d_tag) < DT_VALNUM)
 	info[DT_VALTAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
 	     + DT_VERSIONTAGNUM + DT_EXTRANUM] = dyn;
       else if ((d_tag_utype) DT_ADDRTAGIDX (dyn->d_tag) < DT_ADDRNUM)
 	info[DT_ADDRTAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
 	     + DT_VERSIONTAGNUM + DT_EXTRANUM + DT_VALNUM] = dyn;
       ++dyn;
     }

 #define DL_RO_DYN_TEMP_CNT	8

 #ifndef DL_RO_DYN_SECTION
   /* Don't adjust .dynamic unnecessarily.  */
   if (l->l_addr != 0)
     {
       ElfW(Addr) l_addr = l->l_addr;
       int cnt = 0;

 # define ADJUST_DYN_INFO(tag) \
       do								      \
 	if (info[tag] != NULL)						      \
 	  {								      \
 	    if (temp)							      \
 	      {								      \
 		temp[cnt].d_tag = info[tag]->d_tag;			      \
 		temp[cnt].d_un.d_ptr = info[tag]->d_un.d_ptr + l_addr;	      \
 		info[tag] = temp + cnt++;				      \
 	      }								      \
 	    else							      \
 	      info[tag]->d_un.d_ptr += l_addr;				      \
 	  }								      \
       while (0)

       ADJUST_DYN_INFO (DT_HASH);
       ADJUST_DYN_INFO (DT_PLTGOT);
       ADJUST_DYN_INFO (DT_STRTAB);
       ADJUST_DYN_INFO (DT_SYMTAB);
       ADJUST_DYN_INFO (VERSYMIDX (DT_VERSYM + 1)); /* DT_RELR */
       ADJUST_DYN_INFO (DT_JMPREL);
       ADJUST_DYN_INFO (VERSYMIDX (DT_VERSYM));
       ADJUST_DYN_INFO (DT_ADDRTAGIDX (DT_GNU_HASH) + DT_NUM + DT_THISPROCNUM
 		       + DT_VERSIONTAGNUM + DT_EXTRANUM + DT_VALNUM);
 # undef ADJUST_DYN_INFO

       /* DT_RELA/DT_REL are mandatory.  But they may have zero value if
 	 there is DT_RELR.  Don't relocate them if they are zero.  */
 # define ADJUST_DYN_INFO(tag) \
       do								      \
 	if (info[tag] != NULL && info[tag]->d_un.d_ptr != 0)		      \
          info[tag]->d_un.d_ptr += l_addr;				      \
       while (0)

 # if ! ELF_MACHINE_NO_RELA
       ADJUST_DYN_INFO (DT_RELA);
 # endif
 # if ! ELF_MACHINE_NO_REL
       ADJUST_DYN_INFO (DT_REL);
 # endif
 # undef ADJUST_DYN_INFO
       assert (cnt <= DL_RO_DYN_TEMP_CNT);
     }
 #endif
   if (info[DT_PLTREL] != NULL)
     {
 #if ELF_MACHINE_NO_RELA
       assert (info[DT_PLTREL]->d_un.d_val == DT_REL);
 #elif ELF_MACHINE_NO_REL
       assert (info[DT_PLTREL]->d_un.d_val == DT_RELA);
 #else
       assert (info[DT_PLTREL]->d_un.d_val == DT_REL
 	      || info[DT_PLTREL]->d_un.d_val == DT_RELA);
 #endif
     }
 #if ! ELF_MACHINE_NO_RELA
   if (info[DT_RELA] != NULL)
     assert (info[DT_RELAENT]->d_un.d_val == sizeof (ElfW(Rela)));
 # endif
 # if ! ELF_MACHINE_NO_REL
   if (info[DT_REL] != NULL)
     assert (info[DT_RELENT]->d_un.d_val == sizeof (ElfW(Rel)));
 #endif
 #ifdef RTLD_BOOTSTRAP
   /* Only the bind now flags are allowed.  */
   assert (info[VERSYMIDX (DT_FLAGS_1)] == NULL
 	  || (info[VERSYMIDX (DT_FLAGS_1)]->d_un.d_val & ~DF_1_NOW) == 0);
   /* Flags must not be set for ld.so.  */
   assert (info[DT_FLAGS] == NULL
 	  || (info[DT_FLAGS]->d_un.d_val & ~DF_BIND_NOW) == 0);
 #endif
 #if defined RTLD_BOOTSTRAP || defined STATIC_PIE_BOOTSTRAP
   assert (info[DT_RUNPATH] == NULL);
   assert (info[DT_RPATH] == NULL);
 #else
   if (info[DT_FLAGS] != NULL)
     {
       /* Flags are used.  Translate to the old form where available.
 	 Since these l_info entries are only tested for NULL pointers it
 	 is ok if they point to the DT_FLAGS entry.  */
       l->l_flags = info[DT_FLAGS]->d_un.d_val;

       if (l->l_flags & DF_SYMBOLIC)
 	info[DT_SYMBOLIC] = info[DT_FLAGS];
       if (l->l_flags & DF_TEXTREL)
 	info[DT_TEXTREL] = info[DT_FLAGS];
       if (l->l_flags & DF_BIND_NOW)
 	info[DT_BIND_NOW] = info[DT_FLAGS];
     }
   if (info[VERSYMIDX (DT_FLAGS_1)] != NULL)
     {
       l->l_flags_1 = info[VERSYMIDX (DT_FLAGS_1)]->d_un.d_val;

       /* Only DT_1_SUPPORTED_MASK bits are supported, and we would like
 	 to assert this, but we can't. Users have been setting
 	 unsupported DF_1_* flags for a long time and glibc has ignored
 	 them. Therefore to avoid breaking existing applications the
 	 best we can do is add a warning during debugging with the
 	 intent of notifying the user of the problem.  */
       if (__builtin_expect (GLRO(dl_debug_mask) & DL_DEBUG_FILES, 0)
 	  && l->l_flags_1 & ~DT_1_SUPPORTED_MASK)
 	_dl_debug_printf ("\nWARNING: Unsupported flag value(s) of 0x%x in DT_FLAGS_1.\n",
 			  l->l_flags_1 & ~DT_1_SUPPORTED_MASK);

       if (l->l_flags_1 & DF_1_NOW)
 	info[DT_BIND_NOW] = info[VERSYMIDX (DT_FLAGS_1)];
     }
   if (info[DT_RUNPATH] != NULL)
     /* If both RUNPATH and RPATH are given, the latter is ignored.  */
     info[DT_RPATH] = NULL;
 #endif
 }

 #endif

 #ifndef NESTING
 #ifndef SAW_EGDI
 #define SAW_EGDI
 #endif
 #endif /* n NESTING */
	/* Read the dynamic section at DYN and fill in INFO with indices DT_*.
	Copyright (C) 2012-2018 Free Software Foundation, Inc.
	This file is part of the GNU C Library.

	The GNU C Library is free software; you can redistribute it and/or
	modify it under the terms of the GNU Lesser General Public
	License as published by the Free Software Foundation; either
	version 2.1 of the License, or (at your option) any later version.

	The GNU C Library is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public
	License along with the GNU C Library; if not, see
	<http://www.gnu.org/licenses/>. */

	/* This file is included multiple times and therefore lacks a header
	file inclusion guard. */

	#include <assert.h>
	#include <libc-diag.h>

	#if defined NESTING \|\| !defined SAW_EGDI

	#ifndef RESOLVE_MAP
	static
	#else
	auto
	#endif
	inline void __attribute__ ((unused, always_inline))
	elf_get_dynamic_info (struct link_map l, ElfW(Dyn) temp)
	{
	ElfW(Dyn) *dyn = l->l_ld;
	ElfW(Dyn) **info;
	#if __ELF_NATIVE_CLASS == 32
	typedef Elf32_Word d_tag_utype;
	#elif __ELF_NATIVE_CLASS == 64
	typedef Elf64_Xword d_tag_utype;
	#endif

	#if !defined RTLD_BOOTSTRAP && !defined STATIC_PIE_BOOTSTRAP
	if (dyn == NULL)
	return;
	#endif

	info = l->l_info;

	while (dyn->d_tag != DT_NULL)
	{
	/* Google-local: b/208156916. See ELF_DYNAMIC_DO_RELR. */
	if (dyn->d_tag == DT_RELR)
	info[VERSYMIDX (DT_VERSYM + 1)] = dyn;
	else if (dyn->d_tag == DT_RELRSZ)
	info[VERSYMIDX (DT_VERSYM + 2)] = dyn;
	else if ((d_tag_utype) dyn->d_tag < DT_NUM)
	info[dyn->d_tag] = dyn;
	else if (dyn->d_tag >= DT_LOPROC &&
	dyn->d_tag < DT_LOPROC + DT_THISPROCNUM)
	{
	/* This does not violate the array bounds of l->l_info, but
	gcc 4.6 on sparc somehow does not see this. */
	DIAG_PUSH_NEEDS_COMMENT;
	DIAG_IGNORE_NEEDS_COMMENT (4.6,
	"-Warray-bounds");
	info[dyn->d_tag - DT_LOPROC + DT_NUM] = dyn;
	DIAG_POP_NEEDS_COMMENT;
	}
	else if ((d_tag_utype) DT_VERSIONTAGIDX (dyn->d_tag) < DT_VERSIONTAGNUM)
	info[VERSYMIDX (dyn->d_tag)] = dyn;
	else if ((d_tag_utype) DT_EXTRATAGIDX (dyn->d_tag) < DT_EXTRANUM)
	info[DT_EXTRATAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
	+ DT_VERSIONTAGNUM] = dyn;
	else if ((d_tag_utype) DT_VALTAGIDX (dyn->d_tag) < DT_VALNUM)
	info[DT_VALTAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
	+ DT_VERSIONTAGNUM + DT_EXTRANUM] = dyn;
	else if ((d_tag_utype) DT_ADDRTAGIDX (dyn->d_tag) < DT_ADDRNUM)
	info[DT_ADDRTAGIDX (dyn->d_tag) + DT_NUM + DT_THISPROCNUM
	+ DT_VERSIONTAGNUM + DT_EXTRANUM + DT_VALNUM] = dyn;
	++dyn;
	}

	#define DL_RO_DYN_TEMP_CNT 8

	#ifndef DL_RO_DYN_SECTION
	/* Don't adjust .dynamic unnecessarily. */
	if (l->l_addr != 0)
	{
	ElfW(Addr) l_addr = l->l_addr;
	int cnt = 0;

	# define ADJUST_DYN_INFO(tag) \
	do \
	if (info[tag] != NULL) \
	{ \
	if (temp) \
	{ \
	temp[cnt].d_tag = info[tag]->d_tag; \
	temp[cnt].d_un.d_ptr = info[tag]->d_un.d_ptr + l_addr; \
	info[tag] = temp + cnt++; \
	} \
	else \
	info[tag]->d_un.d_ptr += l_addr; \
	} \
	while (0)

	ADJUST_DYN_INFO (DT_HASH);
	ADJUST_DYN_INFO (DT_PLTGOT);
	ADJUST_DYN_INFO (DT_STRTAB);
	ADJUST_DYN_INFO (DT_SYMTAB);
	ADJUST_DYN_INFO (VERSYMIDX (DT_VERSYM + 1)); /* DT_RELR */
	ADJUST_DYN_INFO (DT_JMPREL);
	ADJUST_DYN_INFO (VERSYMIDX (DT_VERSYM));
	ADJUST_DYN_INFO (DT_ADDRTAGIDX (DT_GNU_HASH) + DT_NUM + DT_THISPROCNUM
	+ DT_VERSIONTAGNUM + DT_EXTRANUM + DT_VALNUM);
	# undef ADJUST_DYN_INFO

	/* DT_RELA/DT_REL are mandatory. But they may have zero value if
	there is DT_RELR. Don't relocate them if they are zero. */
	# define ADJUST_DYN_INFO(tag) \
	do \
	if (info[tag] != NULL && info[tag]->d_un.d_ptr != 0) \
	info[tag]->d_un.d_ptr += l_addr; \
	while (0)

	# if ! ELF_MACHINE_NO_RELA
	ADJUST_DYN_INFO (DT_RELA);
	# endif
	# if ! ELF_MACHINE_NO_REL
	ADJUST_DYN_INFO (DT_REL);
	# endif
	# undef ADJUST_DYN_INFO
	assert (cnt <= DL_RO_DYN_TEMP_CNT);
	}
	#endif
	if (info[DT_PLTREL] != NULL)
	{
	#if ELF_MACHINE_NO_RELA
	assert (info[DT_PLTREL]->d_un.d_val == DT_REL);
	#elif ELF_MACHINE_NO_REL
	assert (info[DT_PLTREL]->d_un.d_val == DT_RELA);
	#else
	assert (info[DT_PLTREL]->d_un.d_val == DT_REL
	\|\| info[DT_PLTREL]->d_un.d_val == DT_RELA);
	#endif
	}
	#if ! ELF_MACHINE_NO_RELA
	if (info[DT_RELA] != NULL)
	assert (info[DT_RELAENT]->d_un.d_val == sizeof (ElfW(Rela)));
	# endif
	# if ! ELF_MACHINE_NO_REL
	if (info[DT_REL] != NULL)
	assert (info[DT_RELENT]->d_un.d_val == sizeof (ElfW(Rel)));
	#endif
	#ifdef RTLD_BOOTSTRAP
	/* Only the bind now flags are allowed. */
	assert (info[VERSYMIDX (DT_FLAGS_1)] == NULL
	\|\| (info[VERSYMIDX (DT_FLAGS_1)]->d_un.d_val & ~DF_1_NOW) == 0);
	/* Flags must not be set for ld.so. */
	assert (info[DT_FLAGS] == NULL
	\|\| (info[DT_FLAGS]->d_un.d_val & ~DF_BIND_NOW) == 0);
	#endif
	#if defined RTLD_BOOTSTRAP \|\| defined STATIC_PIE_BOOTSTRAP
	assert (info[DT_RUNPATH] == NULL);
	assert (info[DT_RPATH] == NULL);
	#else
	if (info[DT_FLAGS] != NULL)
	{
	/* Flags are used. Translate to the old form where available.
	Since these l_info entries are only tested for NULL pointers it
	is ok if they point to the DT_FLAGS entry. */
	l->l_flags = info[DT_FLAGS]->d_un.d_val;

	if (l->l_flags & DF_SYMBOLIC)
	info[DT_SYMBOLIC] = info[DT_FLAGS];
	if (l->l_flags & DF_TEXTREL)
	info[DT_TEXTREL] = info[DT_FLAGS];
	if (l->l_flags & DF_BIND_NOW)
	info[DT_BIND_NOW] = info[DT_FLAGS];
	}
	if (info[VERSYMIDX (DT_FLAGS_1)] != NULL)
	{
	l->l_flags_1 = info[VERSYMIDX (DT_FLAGS_1)]->d_un.d_val;

	/* Only DT_1_SUPPORTED_MASK bits are supported, and we would like
	to assert this, but we can't. Users have been setting
	unsupported DF_1_* flags for a long time and glibc has ignored
	them. Therefore to avoid breaking existing applications the
	best we can do is add a warning during debugging with the
	intent of notifying the user of the problem. */
	if (__builtin_expect (GLRO(dl_debug_mask) & DL_DEBUG_FILES, 0)
	&& l->l_flags_1 & ~DT_1_SUPPORTED_MASK)
	_dl_debug_printf ("\nWARNING: Unsupported flag value(s) of 0x%x in DT_FLAGS_1.\n",
	l->l_flags_1 & ~DT_1_SUPPORTED_MASK);

	if (l->l_flags_1 & DF_1_NOW)
	info[DT_BIND_NOW] = info[VERSYMIDX (DT_FLAGS_1)];
	}
	if (info[DT_RUNPATH] != NULL)
	/* If both RUNPATH and RPATH are given, the latter is ignored. */
	info[DT_RPATH] = NULL;
	#endif
	}

	#endif

	#ifndef NESTING
	#ifndef SAW_EGDI
	#define SAW_EGDI
	#endif
	#endif /* n NESTING */