125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Create new section in output file. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 2002-2011 Red Hat, Inc. 325b3c049e70834cf33790a28643ab058b507b35cBen Cheng This file is part of Red Hat elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Written by Ulrich Drepper <drepper@redhat.com>, 2002. 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 Red Hat elfutils is an included package of the Open Invention Network. 2025b3c049e70834cf33790a28643ab058b507b35cBen Cheng An included package of the Open Invention Network is a package for which 2125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Open Invention Network licensees cross-license their patents. No patent 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng license is granted, either expressly or impliedly, by designation as an 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng included package. Should you wish to participate in the Open Invention 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Network licensing program, please visit www.openinventionnetwork.com 2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng <http://www.openinventionnetwork.com>. */ 2625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 2725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H 2825b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h> 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <assert.h> 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <error.h> 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <libintl.h> 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <stdlib.h> 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <string.h> 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <libasmP.h> 3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <libelf.h> 3925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <system.h> 4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Memory for the default pattern. The type uses a flexible array 4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng which does work well with a static initializer. So we play some 4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng dirty tricks here. */ 4525b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic const struct 4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct FillPattern pattern; 4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng char zero; 4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng} xdefault_pattern = 5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng .pattern = 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng .len = 1 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng }, 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng .zero = '\0' 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 5725b3c049e70834cf33790a28643ab058b507b35cBen Chengconst struct FillPattern *__libasm_default_pattern = &xdefault_pattern.pattern; 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6025b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic AsmScn_t * 6125b3c049e70834cf33790a28643ab058b507b35cBen Chengtext_newscn (AsmScn_t *result, GElf_Word type, GElf_Xword flags) 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Buffer where we construct the flag string. */ 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng char flagstr[sizeof (GElf_Xword) * 8 + 5]; 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng char *wp = flagstr; 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *typestr = ""; 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Only write out the flag string if this is the first time the 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng section is selected. Some assemblers cannot cope with the 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng .section pseudo-op otherwise. */ 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng wp = stpcpy (wp, ", \""); 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_WRITE) 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'w'; 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_ALLOC) 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'a'; 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_EXECINSTR) 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'x'; 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_MERGE) 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'M'; 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_STRINGS) 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'S'; 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (flags & SHF_LINK_ORDER) 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = 'L'; 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp++ = '"'; 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (type == SHT_PROGBITS) 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng typestr = ",@progbits"; 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (type == SHT_NOBITS) 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng typestr = ",@nobits"; 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Terminate the string. */ 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *wp = '\0'; 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng fprintf (result->ctx->out.file, "\t.section \"%s\"%s%s\n", 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->name, flagstr, typestr); 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10325b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic AsmScn_t * 10425b3c049e70834cf33790a28643ab058b507b35cBen Chengbinary_newscn (AsmScn_t *result, GElf_Word type, GElf_Xword flags, 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t scnname_len) 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr shdr_mem; 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr *shdr; 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn; 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* The initial subsection has the number zero. */ 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->subsection_id = 0; 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We start at offset zero. */ 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->offset = 0; 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* And generic alignment. */ 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->max_align = 1; 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* No output yet. */ 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->content = NULL; 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Put the default fill pattern in place. */ 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->pattern = (struct FillPattern *) __libasm_default_pattern; 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There are no subsections so far. */ 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->subnext = NULL; 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Add the name to the section header string table. */ 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->data.main.strent = ebl_strtabadd (result->ctx->section_strtab, 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->name, scnname_len); 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (result->data.main.strent != NULL); 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Create the new ELF section. */ 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->data.main.scn = scn = elf_newscn (result->ctx->out.elf); 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (scn == NULL) 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (result); 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libasm_seterrno (ASM_E_LIBELF); 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Not part of a section group (yet). */ 14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->data.main.next_in_group = NULL; 14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Remember the flags. */ 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng shdr = gelf_getshdr (scn, &shdr_mem); 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng shdr->sh_flags = flags; 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->type = shdr->sh_type = type; 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) gelf_update_shdr (scn, shdr); 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15725b3c049e70834cf33790a28643ab058b507b35cBen ChengAsmScn_t * 15825b3c049e70834cf33790a28643ab058b507b35cBen Chengasm_newscn (ctx, scnname, type, flags) 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng AsmCtx_t *ctx; 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *scnname; 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Word type; 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Xword flags; 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t scnname_len = strlen (scnname) + 1; 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng AsmScn_t *result; 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If no context is given there might be an earlier error. */ 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ctx == NULL) 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Check whether only flags are set which areselectable by the user. */ 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely ((flags & ~(SHF_WRITE | SHF_ALLOC | SHF_EXECINSTR | SHF_MERGE 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng | SHF_STRINGS | SHF_LINK_ORDER)) != 0) 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We allow only two section types: data and data without file 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng representation. */ 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng || (type != SHT_PROGBITS && unlikely (type != SHT_NOBITS))) 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libasm_seterrno (ASM_E_INVALID); 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng rwlock_wrlock (ctx->lock); 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This is a new section. */ 18525b3c049e70834cf33790a28643ab058b507b35cBen Cheng result = (AsmScn_t *) malloc (sizeof (AsmScn_t) + scnname_len); 18625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (result != NULL) 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Add the name. */ 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng memcpy (result->name, scnname, scnname_len); 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Add the reference to the context. */ 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->ctx = ctx; 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Perform operations according to output mode. */ 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng result = (unlikely (ctx->textp) 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? text_newscn (result, type, flags) 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng : binary_newscn (result, type, flags, scnname_len)); 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If everything went well finally add the new section to the hash 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng table. */ 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (result != NULL) 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->allnext = ctx->section_list; 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ctx->section_list = result; 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng rwlock_unlock (ctx->lock); 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 21225b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF(asm_newscn) 213