125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Return symbol table of archive. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 1998, 1999, 2000, 2002, 2005 Red Hat, Inc. 325b3c049e70834cf33790a28643ab058b507b35cBen Cheng This file is part of Red Hat elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Written by Ulrich Drepper <drepper@redhat.com>, 1998. 525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 725b3c049e70834cf33790a28643ab058b507b35cBen Cheng it under the terms of the GNU General Public License as published by the 825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Free Software Foundation; version 2 of the License. 925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 1025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 1125b3c049e70834cf33790a28643ab058b507b35cBen Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 1225b3c049e70834cf33790a28643ab058b507b35cBen Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 1325b3c049e70834cf33790a28643ab058b507b35cBen Cheng General Public License for more details. 1425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 1525b3c049e70834cf33790a28643ab058b507b35cBen Cheng You should have received a copy of the GNU General Public License along 1625b3c049e70834cf33790a28643ab058b507b35cBen Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 1725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 1825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 1925b3c049e70834cf33790a28643ab058b507b35cBen Cheng In addition, as a special exception, Red Hat, Inc. gives You the 2025b3c049e70834cf33790a28643ab058b507b35cBen Cheng additional right to link the code of Red Hat elfutils with code licensed 2125b3c049e70834cf33790a28643ab058b507b35cBen Cheng under any Open Source Initiative certified open source license 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng (http://www.opensource.org/licenses/index.php) which requires the 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng distribution of source code with any binary distribution and to 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng distribute linked combinations of the two. Non-GPL Code permitted under 2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng this exception must only link to the code of Red Hat elfutils through 2625b3c049e70834cf33790a28643ab058b507b35cBen Cheng those well defined interfaces identified in the file named EXCEPTION 2725b3c049e70834cf33790a28643ab058b507b35cBen Cheng found in the source code files (the "Approved Interfaces"). The files 2825b3c049e70834cf33790a28643ab058b507b35cBen Cheng of Non-GPL Code may instantiate templates or use macros or inline 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng functions from the Approved Interfaces without causing the resulting 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng work to be covered by the GNU General Public License. Only Red Hat, 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Inc. may make changes or additions to the list of Approved Interfaces. 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat's grant of this exception is conditioned upon your not adding 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng any new exceptions. If you wish to add a new Approved Interface or 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng exception, please contact Red Hat. You must obey the GNU General Public 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng License in all respects for all of the Red Hat elfutils code and other 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng code used in conjunction with Red Hat elfutils except the Non-GPL Code 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng covered by this exception. If you modify this file, you may extend this 3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng exception to your version of the file, but you are not obligated to do 3925b3c049e70834cf33790a28643ab058b507b35cBen Cheng so. If you do not wish to provide this exception without modification, 4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng you must delete this exception statement from your version and license 4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng this file solely under the GPL without exception. 4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is an included package of the Open Invention Network. 4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng An included package of the Open Invention Network is a package for which 4525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Open Invention Network licensees cross-license their patents. No patent 4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng license is granted, either expressly or impliedly, by designation as an 4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng included package. Should you wish to participate in the Open Invention 4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Network licensing program, please visit www.openinventionnetwork.com 4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng <http://www.openinventionnetwork.com>. */ 5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h> 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <assert.h> 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <byteswap.h> 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <endian.h> 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <errno.h> 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <stdint.h> 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <stdlib.h> 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <string.h> 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <unistd.h> 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <system.h> 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <dl-hash.h> 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libelfP.h" 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6925b3c049e70834cf33790a28643ab058b507b35cBen ChengElf_Arsym * 7025b3c049e70834cf33790a28643ab058b507b35cBen Chengelf_getarsym (elf, ptr) 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf *elf; 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t *ptr; 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->kind != ELF_K_AR) 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This is no archive. */ 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_ARCHIVE); 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ptr != NULL) 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* In case of an error or when we know the value store the expected 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng value now. Doing this allows us easier exits in an error case. */ 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *ptr = elf->state.ar.ar_sym_num; 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->state.ar.ar_sym == (Elf_Arsym *) -1l) 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There is no index. */ 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Arsym *result = elf->state.ar.ar_sym; 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (result == NULL) 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have not yet read the index. */ 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng rwlock_wrlock (elf->lock); 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* In case we find no index remember this for the next call. */ 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym = (Elf_Arsym *) -1l; 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct ar_hdr *index_hdr; 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address == NULL) 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We must read index from the file. */ 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (elf->fildes != -1); 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (pread_retry (elf->fildes, &elf->state.ar.ar_hdr, 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng sizeof (struct ar_hdr), elf->start_offset + SARMAG) 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng != sizeof (struct ar_hdr)) 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* It is not possible to read the index. Maybe it does not 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng exist. */ 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_READ_ERROR); 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng index_hdr = &elf->state.ar.ar_hdr; 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (SARMAG + sizeof (struct ar_hdr) > elf->maximum_size) 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There is no room for the full archive. */ 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng index_hdr = (struct ar_hdr *) (elf->map_address 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng + elf->start_offset + SARMAG); 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now test whether this really is an archive. */ 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (memcmp (index_hdr->ar_fmag, ARFMAG, 2) != 0) 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Invalid magic bytes. */ 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_ARCHIVE_FMAG); 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now test whether this is the index. It is denoted by the 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng name being "/ ". 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng XXX This is not entirely true. There are some more forms. 14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Which of them shall we handle? */ 14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (memcmp (index_hdr->ar_name, "/ ", 16) != 0) 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If the index is not the first entry, there is no index. 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng XXX Is this true? */ 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have an archive. The first word in there is the number of 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng entries in the table. */ 15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint32_t n; 15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address == NULL) 15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (pread_retry (elf->fildes, &n, sizeof (n), 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->start_offset + SARMAG + sizeof (struct ar_hdr)) 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng != sizeof (n)) 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Cannot read the number of entries. */ 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng n = *(uint32_t *) (elf->map_address + elf->start_offset 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng + SARMAG + sizeof (struct ar_hdr)); 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (__BYTE_ORDER == __LITTLE_ENDIAN) 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng n = bswap_32 (n); 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we can perform some first tests on whether all the data 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng needed for the index is available. */ 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng char tmpbuf[17]; 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng memcpy (tmpbuf, index_hdr->ar_size, 10); 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng tmpbuf[10] = '\0'; 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t index_size = atol (tmpbuf); 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (SARMAG + sizeof (struct ar_hdr) + index_size > elf->maximum_size 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng || n * sizeof (uint32_t) > index_size) 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This index table cannot be right since it does not fit into 18525b3c049e70834cf33790a28643ab058b507b35cBen Cheng the file. */ 18625b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we can allocate the arrays needed to store the index. */ 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t ar_sym_len = (n + 1) * sizeof (Elf_Arsym); 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym = (Elf_Arsym *) malloc (ar_sym_len); 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->state.ar.ar_sym != NULL) 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint32_t *file_data; 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng char *str_data; 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address == NULL) 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng file_data = (uint32_t *) alloca (n * sizeof (uint32_t)); 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng ar_sym_len += index_size - n * sizeof (uint32_t); 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Arsym *newp = (Elf_Arsym *) realloc (elf->state.ar.ar_sym, 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ar_sym_len); 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (newp == NULL) 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (elf->state.ar.ar_sym); 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym = NULL; 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NOMEM); 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21225b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym = newp; 21325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21425b3c049e70834cf33790a28643ab058b507b35cBen Cheng char *new_str = (char *) (elf->state.ar.ar_sym + n + 1); 21525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now read the data from the file. */ 21725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((size_t) pread_retry (elf->fildes, file_data, 21825b3c049e70834cf33790a28643ab058b507b35cBen Cheng n * sizeof (uint32_t), 21925b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->start_offset + SARMAG 22025b3c049e70834cf33790a28643ab058b507b35cBen Cheng + sizeof (struct ar_hdr) 22125b3c049e70834cf33790a28643ab058b507b35cBen Cheng + sizeof (uint32_t)) 22225b3c049e70834cf33790a28643ab058b507b35cBen Cheng != n * sizeof (uint32_t) 22325b3c049e70834cf33790a28643ab058b507b35cBen Cheng || ((size_t) pread_retry (elf->fildes, new_str, 22425b3c049e70834cf33790a28643ab058b507b35cBen Cheng index_size - n * sizeof (uint32_t), 22525b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->start_offset 22625b3c049e70834cf33790a28643ab058b507b35cBen Cheng + SARMAG + sizeof (struct ar_hdr) 22725b3c049e70834cf33790a28643ab058b507b35cBen Cheng + (n + 1) * sizeof (uint32_t)) 22825b3c049e70834cf33790a28643ab058b507b35cBen Cheng != index_size - n * sizeof (uint32_t))) 22925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 23025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We were not able to read the data. */ 23125b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (elf->state.ar.ar_sym); 23225b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym = NULL; 23325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libelf_seterrno (ELF_E_NO_INDEX); 23425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto out; 23525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 23625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23725b3c049e70834cf33790a28643ab058b507b35cBen Cheng str_data = (char *) new_str; 23825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 23925b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 24025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 24125b3c049e70834cf33790a28643ab058b507b35cBen Cheng file_data = (uint32_t *) (elf->map_address + elf->start_offset 24225b3c049e70834cf33790a28643ab058b507b35cBen Cheng + SARMAG + sizeof (struct ar_hdr) 24325b3c049e70834cf33790a28643ab058b507b35cBen Cheng + sizeof (uint32_t)); 24425b3c049e70834cf33790a28643ab058b507b35cBen Cheng str_data = (char *) &file_data[n]; 24525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 24625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we can build the data structure. */ 24825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Arsym *arsym = elf->state.ar.ar_sym; 24925b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t cnt = 0; cnt < n; ++cnt) 25025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 25125b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[cnt].as_name = str_data; 25225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (__BYTE_ORDER == __LITTLE_ENDIAN) 25325b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[cnt].as_off = bswap_32 (file_data[cnt]); 25425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 25525b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[cnt].as_off = file_data[cnt]; 25625b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[cnt].as_hash = _dl_elf_hash (str_data); 25725b3c049e70834cf33790a28643ab058b507b35cBen Cheng str_data = rawmemchr (str_data, '\0') + 1; 25825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 25925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* At the end a special entry. */ 26025b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[n].as_name = NULL; 26125b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[n].as_off = 0; 26225b3c049e70834cf33790a28643ab058b507b35cBen Cheng arsym[n].as_hash = ~0UL; 26325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Tell the caller how many entries we have. */ 26525b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf->state.ar.ar_sym_num = n + 1; 26625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 26725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26825b3c049e70834cf33790a28643ab058b507b35cBen Cheng result = elf->state.ar.ar_sym; 26925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27025b3c049e70834cf33790a28643ab058b507b35cBen Cheng out: 27125b3c049e70834cf33790a28643ab058b507b35cBen Cheng rwlock_unlock (elf->lock); 27225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 27325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ptr != NULL) 27525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *ptr = elf->state.ar.ar_sym_num; 27625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 27825b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 279