external/bsd/libelf/dist/libelf_extended.c

   1 /*      $NetBSD$        */
   2
   3 /*-
   4  * Copyright (c) 2006 Joseph Koshy
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include <sys/cdefs.h>
  30 /* __FBSDID("$FreeBSD: src/lib/libelf/libelf_extended.c,v 1.1.10.1.2.1 2009/10/25 01:10:29 kensmith Exp $"); */
  31
  32 #include <assert.h>
  33 #include <libelf.h>
  34
  35 #include "_libelf.h"
  36
  37 /*
  38  * Retrieve section #0, allocating a new section if needed.
  39  */
  40 static Elf_Scn *
  41 _libelf_getscn0(Elf *e)
  42 {
  43         Elf_Scn *s;
  44
  45         if ((s = STAILQ_FIRST(&e->e_u.e_elf.e_scn)) != NULL)
  46                 return (s);
  47
  48         return (_libelf_allocate_scn(e, (size_t) SHN_UNDEF));
  49 }
  50
  51 int
  52 _libelf_setshnum(Elf *e, void *eh, int ec, size_t shnum)
  53 {
  54         Elf_Scn *scn;
  55
  56         if (shnum >= SHN_LORESERVE) {
  57                 if ((scn = _libelf_getscn0(e)) == NULL)
  58                         return (0);
  59
  60                 assert(scn->s_ndx == SHN_UNDEF);
  61
  62                 if (ec == ELFCLASS32)
  63                         scn->s_shdr.s_shdr32.sh_size = shnum;
  64                 else
  65                         scn->s_shdr.s_shdr64.sh_size = shnum;
  66
  67                 (void) elf_flagshdr(scn, ELF_C_SET, ELF_F_DIRTY);
  68
  69                 shnum = 0;
  70         }
  71
  72         if (ec == ELFCLASS32)
  73                 ((Elf32_Ehdr *) eh)->e_shnum = shnum;
  74         else
  75                 ((Elf64_Ehdr *) eh)->e_shnum = shnum;
  76
  77
  78         return (1);
  79 }
  80
  81 int
  82 _libelf_setshstrndx(Elf *e, void *eh, int ec, size_t shstrndx)
  83 {
  84         Elf_Scn *scn;
  85
  86         if (shstrndx >= SHN_LORESERVE) {
  87                 if ((scn = _libelf_getscn0(e)) == NULL)
  88                         return (0);
  89
  90                 assert(scn->s_ndx == SHN_UNDEF);
  91
  92                 if (ec == ELFCLASS32)
  93                         scn->s_shdr.s_shdr32.sh_link = shstrndx;
  94                 else
  95                         scn->s_shdr.s_shdr64.sh_link = shstrndx;
  96
  97                 (void) elf_flagshdr(scn, ELF_C_SET, ELF_F_DIRTY);
  98
  99                 shstrndx = SHN_XINDEX;
 100         }
 101
 102         if (ec == ELFCLASS32)
 103                 ((Elf32_Ehdr *) eh)->e_shstrndx = shstrndx;
 104         else
 105                 ((Elf64_Ehdr *) eh)->e_shstrndx = shstrndx;
 106
 107         return (1);
 108 }
 109
 110 int
 111 _libelf_setphnum(Elf *e, void *eh, int ec, size_t phnum)
 112 {
 113         Elf_Scn *scn;
 114
 115         if (phnum >= PN_XNUM) {
 116                 if ((scn = _libelf_getscn0(e)) == NULL)
 117                         return (0);
 118
 119                 assert(scn->s_ndx == SHN_UNDEF);
 120
 121                 if (ec == ELFCLASS32)
 122                         scn->s_shdr.s_shdr32.sh_info = phnum;
 123                 else
 124                         scn->s_shdr.s_shdr64.sh_info = phnum;
 125
 126                 (void) elf_flagshdr(scn, ELF_C_SET, ELF_F_DIRTY);
 127
 128                 phnum = PN_XNUM;
 129         }
 130
 131         if (ec == ELFCLASS32)
 132                 ((Elf32_Ehdr *) eh)->e_phnum = phnum;
 133         else
 134                 ((Elf64_Ehdr *) eh)->e_phnum = phnum;
 135
 136         return (1);
 137 }
 138