Branch data Line data Source code
1 : : /* Advance in archive to next element. 2 : : Copyright (C) 1998-2009, 2015 Red Hat, Inc. 3 : : This file is part of elfutils. 4 : : Contributed 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_Cmd 42 : 6991 : elf_next (Elf *elf) 43 : : { 44 : 6991 : Elf *parent; 45 : 6991 : Elf_Cmd ret; 46 : : 47 : : /* Be gratious, the specs demand it. */ 48 [ + - - + ]: 6991 : if (elf == NULL || elf->parent == NULL) 49 : : return ELF_C_NULL; 50 : : 51 : : /* We can be sure the parent is an archive. */ 52 : 6991 : parent = elf->parent; 53 [ - + ]: 6991 : assert (parent->kind == ELF_K_AR); 54 : : 55 : 6991 : rwlock_wrlock (parent->lock); 56 : : 57 : : /* Now advance the offset. */ 58 : 6991 : parent->state.ar.offset += (sizeof (struct ar_hdr) 59 : 6991 : + ((parent->state.ar.elf_ar_hdr.ar_size + 1) 60 : 6991 : & ~1l)); 61 : : 62 : : /* Get the next archive header. */ 63 [ + + ]: 6991 : ret = __libelf_next_arhdr_wrlock (parent) != 0 ? ELF_C_NULL : elf->cmd; 64 : : 65 : : /* If necessary, mark the archive header as unusable. */ 66 [ - + ]: 6972 : if (ret == ELF_C_NULL) 67 : 19 : parent->state.ar.elf_ar_hdr.ar_name = NULL; 68 : : 69 : : rwlock_unlock (parent->lock); 70 : : 71 : : return ret; 72 : : }