|
Packit Service |
97d2fb |
/* Define new symbol for current position in given section.
|
|
Packit Service |
97d2fb |
Copyright (C) 2002, 2005, 2016, 2017 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 <inttypes.h>
|
|
Packit Service |
97d2fb |
#include <stdio.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 <system.h>
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
AsmSym_t *
|
|
Packit Service |
97d2fb |
asm_newsym (AsmScn_t *asmscn, const char *name, GElf_Xword size,
|
|
Packit Service |
97d2fb |
int type, int binding)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* We don't really expect labels with many digits, but in theory it could
|
|
Packit Service |
97d2fb |
be 10 digits (plus ".L" and a zero terminator). */
|
|
Packit Service |
97d2fb |
#define TEMPSYMLEN 13
|
|
Packit Service |
97d2fb |
char tempsym[TEMPSYMLEN];
|
|
Packit Service |
97d2fb |
AsmSym_t *result;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (asmscn == NULL)
|
|
Packit Service |
97d2fb |
/* Something went wrong before. */
|
|
Packit Service |
97d2fb |
return NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Generate a temporary symbol if necessary. */
|
|
Packit Service |
97d2fb |
if (name == NULL)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* If a local symbol name is created the symbol better have
|
|
Packit Service |
97d2fb |
local binding. */
|
|
Packit Service |
97d2fb |
if (binding != STB_LOCAL)
|
|
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 |
// XXX This requires getting the format from the machine backend. */
|
|
Packit Service |
97d2fb |
snprintf (tempsym, TEMPSYMLEN, ".L%07u", asmscn->ctx->tempsym_count++);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
name = tempsym;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
size_t name_len = strlen (name) + 1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
result = (AsmSym_t *) malloc (sizeof (AsmSym_t) + name_len);
|
|
Packit Service |
97d2fb |
if (result == NULL)
|
|
Packit Service |
97d2fb |
return NULL;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
rwlock_wrlock (asmscn->ctx->lock);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
result->scn = asmscn;
|
|
Packit Service |
97d2fb |
result->offset = asmscn->offset;
|
|
Packit Service |
97d2fb |
result->size = size;
|
|
Packit Service |
97d2fb |
result->type = type;
|
|
Packit Service |
97d2fb |
result->binding = binding;
|
|
Packit Service |
97d2fb |
result->symidx = 0;
|
|
Packit Service |
97d2fb |
result->strent = dwelf_strtab_add (asmscn->ctx->symbol_strtab,
|
|
Packit Service |
97d2fb |
memcpy (result + 1, name, name_len));
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (unlikely (asmscn->ctx->textp))
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* We are only interested in the name and don't need to know whether
|
|
Packit Service |
97d2fb |
it is a local name or not. */
|
|
Packit Service |
97d2fb |
/* First print the binding pseudo-op. */
|
|
Packit Service |
97d2fb |
if (binding == STB_GLOBAL)
|
|
Packit Service |
97d2fb |
fprintf (asmscn->ctx->out.file, "\t.globl\t%s\n", name);
|
|
Packit Service |
97d2fb |
else if (binding == STB_WEAK)
|
|
Packit Service |
97d2fb |
fprintf (asmscn->ctx->out.file, "\t.weak\t%s\n", name);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Next the symbol type. */
|
|
Packit Service |
97d2fb |
if (type == STT_OBJECT)
|
|
Packit Service |
97d2fb |
fprintf (asmscn->ctx->out.file, "\t.type\t%s,@object\n", name);
|
|
Packit Service |
97d2fb |
else if (type == STT_FUNC)
|
|
Packit Service |
97d2fb |
fprintf (asmscn->ctx->out.file, "\t.type\t%s,@function\n", name);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Finally the size and the label. */
|
|
Packit Service |
97d2fb |
fprintf (asmscn->ctx->out.file, "\t.size\t%s,%" PRIuMAX "\n%s:\n",
|
|
Packit Service |
97d2fb |
name, (uintmax_t) size, name);
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
else
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Put the symbol in the hash table so that we can later find it. */
|
|
Packit Service |
97d2fb |
if (asm_symbol_tab_insert (&asmscn->ctx->symbol_tab, elf_hash (name),
|
|
Packit Service |
97d2fb |
result) != 0)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* The symbol already exists. */
|
|
Packit Service |
97d2fb |
__libasm_seterrno (ASM_E_DUPLSYM);
|
|
Packit Service |
97d2fb |
/* Note that we can free the entry since there must be no
|
|
Packit Service |
97d2fb |
reference in the string table to the string. We can only
|
|
Packit Service |
97d2fb |
fail to insert the symbol into the symbol table if there
|
|
Packit Service |
97d2fb |
is already a symbol with this name. In this case the
|
|
Packit Service |
97d2fb |
dwelf_strtab_add function would use the previously provided
|
|
Packit Service |
97d2fb |
name. */
|
|
Packit Service |
97d2fb |
free (result);
|
|
Packit Service |
97d2fb |
result = NULL;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
else if (name != tempsym && asm_emit_symbol_p (name))
|
|
Packit Service |
97d2fb |
/* Only count non-private symbols. */
|
|
Packit Service |
97d2fb |
++asmscn->ctx->nsymbol_tab;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
rwlock_unlock (asmscn->ctx->lock);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return result;
|
|
Packit Service |
97d2fb |
}
|