Branch data Line data Source code
1 : : /* Read header of next archive member. 2 : : Copyright (C) 1998, 1999, 2000, 2002, 2008, 2015 Red Hat, Inc. 3 : : This file is part of elfutils. 4 : : Written by Ulrich Drepper <drepper@redhat.com>, 1998. 5 : : 6 : : This file is free software; you can redistribute it and/or modify 7 : : it under the terms of either 8 : : 9 : : * the GNU Lesser General Public License as published by the Free 10 : : Software Foundation; either version 3 of the License, or (at 11 : : your option) any later version 12 : : 13 : : or 14 : : 15 : : * the GNU General Public License as published by the Free 16 : : Software Foundation; either version 2 of the License, or (at 17 : : your option) any later version 18 : : 19 : : or both in parallel, as here. 20 : : 21 : : elfutils is distributed in the hope that it will be useful, but 22 : : WITHOUT ANY WARRANTY; without even the implied warranty of 23 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 24 : : General Public License for more details. 25 : : 26 : : You should have received copies of the GNU General Public License and 27 : : the GNU Lesser General Public License along with this program. If 28 : : not, see <http://www.gnu.org/licenses/>. */ 29 : : 30 : : #ifdef HAVE_CONFIG_H 31 : : # include <config.h> 32 : : #endif 33 : : 34 : : #include <assert.h> 35 : : #include <libelf.h> 36 : : #include <stddef.h> 37 : : 38 : : #include "libelfP.h" 39 : : 40 : : 41 : : Elf_Arhdr * 42 : 14538 : elf_getarhdr (Elf *elf) 43 : : { 44 [ - + ]: 14538 : if (elf == NULL) 45 : : return NULL; 46 : : 47 : 14538 : Elf *parent = elf->parent; 48 : : 49 : : /* Calling this function is not ok for any file type but archives. */ 50 [ - + ]: 14538 : if (parent == NULL) 51 : : { 52 : 0 : __libelf_seterrno (ELF_E_INVALID_OP); 53 : 0 : return NULL; 54 : : } 55 : : 56 : : /* Make sure we have read the archive header. */ 57 [ - + ]: 14538 : if (parent->state.ar.elf_ar_hdr.ar_name == NULL 58 [ # # ]: 0 : && __libelf_next_arhdr_wrlock (parent) != 0) 59 : : { 60 : 0 : rwlock_wrlock (parent->lock); 61 : 0 : int st = __libelf_next_arhdr_wrlock (parent); 62 : 0 : rwlock_unlock (parent->lock); 63 : : 64 [ # # ]: 0 : if (st != 0) 65 : : /* Something went wrong. Maybe there is no member left. */ 66 : : return NULL; 67 : : } 68 : : 69 : : /* We can be sure the parent is an archive. */ 70 [ - + ]: 14538 : assert (parent->kind == ELF_K_AR); 71 : : 72 : 14538 : return &parent->state.ar.elf_ar_hdr; 73 : : }