|
Packit Service |
97d2fb |
/* Create new section in output file.
|
|
Packit Service |
97d2fb |
Copyright (C) 2002-2011, 2016 Red Hat, Inc.
|
|
Packit Service |
97d2fb |
This file is part of elfutils.
|
|
Packit Service |
97d2fb |
Written by Ulrich Drepper <drepper@redhat.com>, 2002.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
This file is free software; you can redistribute it and/or modify
|
|
Packit Service |
97d2fb |
it under the terms of either
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU Lesser General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 3 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 2 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or both in parallel, as here.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
elfutils is distributed in the hope that it will be useful, but
|
|
Packit Service |
97d2fb |
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
97d2fb |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit Service |
97d2fb |
General Public License for more details.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
You should have received copies of the GNU General Public License and
|
|
Packit Service |
97d2fb |
the GNU Lesser General Public License along with this program. If
|
|
Packit Service |
97d2fb |
not, see <http://www.gnu.org/licenses/>. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#ifdef HAVE_CONFIG_H
|
|
Packit Service |
97d2fb |
# include <config.h>
|
|
Packit Service |
97d2fb |
#endif
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#include <assert.h>
|
|
Packit Service |
97d2fb |
#include <libintl.h>
|
|
Packit Service |
97d2fb |
#include <stdlib.h>
|
|
Packit Service |
97d2fb |
#include <string.h>
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#include <libasmP.h>
|
|
Packit Service |
97d2fb |
#include <libelf.h>
|
|
Packit Service |
97d2fb |
#include <system.h>
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Memory for the default pattern. The type uses a flexible array
|
|
Packit Service |
97d2fb |
which does work well with a static initializer. So we play some
|
|
Packit Service |
97d2fb |
dirty tricks here. */
|
|
Packit Service |
97d2fb |
static const struct
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
struct FillPattern pattern;
|
|
Packit Service |
97d2fb |
char zero;
|
|
Packit Service |
97d2fb |
} xdefault_pattern =
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
.pattern =
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
.len = 1
|
|
Packit Service |
97d2fb |
},
|
|
Packit Service |
97d2fb |
.zero = '\0'
|
|
Packit Service |
97d2fb |
};
|
|
Packit Service |
97d2fb |
const struct FillPattern *__libasm_default_pattern = &xdefault_pattern.pattern;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static AsmScn_t *
|
|
Packit Service |
97d2fb |
text_newscn (AsmScn_t *result, GElf_Word type, GElf_Xword flags)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Buffer where we construct the flag string. */
|
|
Packit Service |
97d2fb |
char flagstr[sizeof (GElf_Xword) * 8 + 5];
|
|
Packit Service |
97d2fb |
char *wp = flagstr;
|
|
Packit Service |
97d2fb |
const char *typestr = "";
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Only write out the flag string if this is the first time the
|
|
Packit Service |
97d2fb |
section is selected. Some assemblers cannot cope with the
|
|
Packit Service |
97d2fb |
.section pseudo-op otherwise. */
|
|
Packit Service |
97d2fb |
wp = stpcpy (wp, ", \"");
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (flags & SHF_WRITE)
|
|
Packit Service |
97d2fb |
*wp++ = 'w';
|
|
Packit Service |
97d2fb |
if (flags & SHF_ALLOC)
|
|
Packit Service |
97d2fb |
*wp++ = 'a';
|
|
Packit Service |
97d2fb |
if (flags & SHF_EXECINSTR)
|
|
Packit Service |
97d2fb |
*wp++ = 'x';
|
|
Packit Service |
97d2fb |
if (flags & SHF_MERGE)
|
|
Packit Service |
97d2fb |
*wp++ = 'M';
|
|
Packit Service |
97d2fb |
if (flags & SHF_STRINGS)
|
|
Packit Service |
97d2fb |
*wp++ = 'S';
|
|
Packit Service |
97d2fb |
if (flags & SHF_LINK_ORDER)
|
|
Packit Service |
97d2fb |
*wp++ = 'L';
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*wp++ = '"';
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (type == SHT_PROGBITS)
|
|
Packit Service |
97d2fb |
typestr = ",@progbits";
|
|
Packit Service |
97d2fb |
else if (type == SHT_NOBITS)
|
|
Packit Service |
97d2fb |
typestr = ",@nobits";
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Terminate the string. */
|
|
Packit Service |
97d2fb |
*wp = '\0';
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
fprintf (result->ctx->out.file, "\t.section \"%s\"%s%s\n",
|
|
Packit Service |
97d2fb |
result->name, flagstr, typestr);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return result;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static AsmScn_t *
|
|
Packit Service |
97d2fb |
binary_newscn (AsmScn_t *result, GElf_Word type, GElf_Xword flags,
|
|
Packit Service |
97d2fb |
size_t scnname_len)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
GElf_Shdr shdr_mem;
|
|
Packit Service |
97d2fb |
GElf_Shdr *shdr;
|
|
Packit Service |
97d2fb |
Elf_Scn *scn;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* The initial subsection has the number zero. */
|
|
Packit Service |
97d2fb |
result->subsection_id = 0;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* We start at offset zero. */
|
|
Packit Service |
97d2fb |
result->offset = 0;
|
|
Packit Service |
97d2fb |
/* And generic alignment. */
|
|
Packit Service |
97d2fb |
result->max_align = 1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* No output yet. */
|
|
Packit Service |
97d2fb |
result->content = NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Put the default fill pattern in place. */
|
|
Packit Service |
97d2fb |
result->pattern = (struct FillPattern *) __libasm_default_pattern;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* There are no subsections so far. */
|
|
Packit Service |
97d2fb |
result->subnext = NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Add the name to the section header string table. */
|
|
Packit Service |
97d2fb |
result->data.main.strent = dwelf_strtab_add_len (result->ctx->section_strtab,
|
|
Packit Service |
97d2fb |
result->name, scnname_len);
|
|
Packit Service |
97d2fb |
assert (result->data.main.strent != NULL);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Create the new ELF section. */
|
|
Packit Service |
97d2fb |
result->data.main.scn = scn = elf_newscn (result->ctx->out.elf);
|
|
Packit Service |
97d2fb |
if (scn == NULL)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
free (result);
|
|
Packit Service |
97d2fb |
__libasm_seterrno (ASM_E_LIBELF);
|
|
Packit Service |
97d2fb |
return NULL;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Not part of a section group (yet). */
|
|
Packit Service |
97d2fb |
result->data.main.next_in_group = NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Remember the flags. */
|
|
Packit Service |
97d2fb |
shdr = gelf_getshdr (scn, &shdr_mem);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
shdr->sh_flags = flags;
|
|
Packit Service |
97d2fb |
result->type = shdr->sh_type = type;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
(void) gelf_update_shdr (scn, shdr);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return result;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
AsmScn_t *
|
|
Packit Service |
97d2fb |
asm_newscn (AsmCtx_t *ctx, const char *scnname, GElf_Word type,
|
|
Packit Service |
97d2fb |
GElf_Xword flags)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
size_t scnname_len = strlen (scnname) + 1;
|
|
Packit Service |
97d2fb |
AsmScn_t *result;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* If no context is given there might be an earlier error. */
|
|
Packit Service |
97d2fb |
if (ctx == NULL)
|
|
Packit Service |
97d2fb |
return NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Check whether only flags are set which areselectable by the user. */
|
|
Packit Service |
97d2fb |
if (unlikely ((flags & ~(SHF_WRITE | SHF_ALLOC | SHF_EXECINSTR | SHF_MERGE
|
|
Packit Service |
97d2fb |
| SHF_STRINGS | SHF_LINK_ORDER)) != 0)
|
|
Packit Service |
97d2fb |
/* We allow only two section types: data and data without file
|
|
Packit Service |
97d2fb |
representation. */
|
|
Packit Service |
97d2fb |
|| (type != SHT_PROGBITS && unlikely (type != SHT_NOBITS)))
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
__libasm_seterrno (ASM_E_INVALID);
|
|
Packit Service |
97d2fb |
return NULL;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
rwlock_wrlock (ctx->lock);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* This is a new section. */
|
|
Packit Service |
97d2fb |
result = (AsmScn_t *) malloc (sizeof (AsmScn_t) + scnname_len);
|
|
Packit Service |
97d2fb |
if (result != NULL)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Add the name. */
|
|
Packit Service |
97d2fb |
memcpy (result->name, scnname, scnname_len);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Add the reference to the context. */
|
|
Packit Service |
97d2fb |
result->ctx = ctx;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Perform operations according to output mode. */
|
|
Packit Service |
97d2fb |
result = (unlikely (ctx->textp)
|
|
Packit Service |
97d2fb |
? text_newscn (result, type, flags)
|
|
Packit Service |
97d2fb |
: binary_newscn (result, type, flags, scnname_len));
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* If everything went well finally add the new section to the hash
|
|
Packit Service |
97d2fb |
table. */
|
|
Packit Service |
97d2fb |
if (result != NULL)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
result->allnext = ctx->section_list;
|
|
Packit Service |
97d2fb |
ctx->section_list = result;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
rwlock_unlock (ctx->lock);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return result;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
INTDEF(asm_newscn)
|