125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Get next section.
225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   This file is part of elfutils.
425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   Contributed by Ulrich Drepper <drepper@redhat.com>, 1998.
525b3c049e70834cf33790a28643ab058b507b35cBen Cheng
603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   This file is free software; you can redistribute it and/or modify
703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   it under the terms of either
825b3c049e70834cf33790a28643ab058b507b35cBen Cheng
903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes     * the GNU Lesser General Public License as published by the Free
1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes       Software Foundation; either version 3 of the License, or (at
1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes       your option) any later version
1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes
1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   or
1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes
1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes     * the GNU General Public License as published by the Free
1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes       Software Foundation; either version 2 of the License, or (at
1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes       your option) any later version
1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes
1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   or both in parallel, as here.
2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes
2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   elfutils is distributed in the hope that it will be useful, but
2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng   WITHOUT ANY WARRANTY; without even the implied warranty of
2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng   General Public License for more details.
2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng
2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   You should have received copies of the GNU General Public License and
2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   the GNU Lesser General Public License along with this program.  If
2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes   not, see <http://www.gnu.org/licenses/>.  */
2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H
3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h>
3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif
3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng
3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <assert.h>
3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <libelf.h>
3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <stddef.h>
3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng
3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libelfP.h"
3925b3c049e70834cf33790a28643ab058b507b35cBen Cheng
4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng
4125b3c049e70834cf33790a28643ab058b507b35cBen ChengElf_Scn *
4225b3c049e70834cf33790a28643ab058b507b35cBen Chengelf_nextscn (elf, scn)
4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng     Elf *elf;
4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng     Elf_Scn *scn;
4525b3c049e70834cf33790a28643ab058b507b35cBen Cheng{
4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng  Elf_Scn *result = NULL;
4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng
4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng  if (elf == NULL)
4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng    return NULL;
5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng
5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng  rwlock_rdlock (elf->lock);
5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng
5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng  if (scn == NULL)
5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng    {
5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng      /* If no section handle is given return the first (not 0th) section.  */
5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng      if (elf->class == ELFCLASS32
5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng	   || (offsetof (Elf, state.elf32.scns)
5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng	       == offsetof (Elf, state.elf64.scns)))
5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng	{
6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng	  if (elf->state.elf32.scns.cnt > 1)
6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng	    result = &elf->state.elf32.scns.data[1];
6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng	}
6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      else
6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng	{
6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng	  if (elf->state.elf64.scns.cnt > 1)
6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng	    result = &elf->state.elf64.scns.data[1];
6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng	}
6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng    }
6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng  else
7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng    {
7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng      Elf_ScnList *list = scn->list;
7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng
7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng      if (scn + 1 < &list->data[list->cnt])
7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng	result = scn + 1;
7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng      else if (scn + 1 == &list->data[list->max]
7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng	       && (list = list->next) != NULL)
7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng	{
7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng	  /* If there is another element in the section list it must
7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng	     have at least one entry.  */
8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng	  assert (list->cnt > 0);
8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng	  result = &list->data[0];
8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng	}
8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng    }
8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng
8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng  rwlock_unlock (elf->lock);
8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng
8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng  return result;
8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng}
8925b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF(elf_nextscn)
90