1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
/* Create new ABS symbol.
Copyright (C) 2002 Red Hat, Inc.
Written by Ulrich Drepper <drepper@redhat.com>, 2002.
This program is Open Source software; you can redistribute it and/or
modify it under the terms of the Open Software License version 1.0 as
published by the Open Source Initiative.
You should have received a copy of the Open Software License along
with this program; if not, you may obtain a copy of the Open Software
License version 1.0 from http://www.opensource.org/licenses/osl.php or
by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
3001 King Ranch Road, Ukiah, CA 95482. */
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <inttypes.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <libasmP.h>
#include <system.h>
/* Object for special COMMON section. */
static const AsmScn_t __libasm_abs_scn =
{
.data = {
.main = {
.scn = ASM_ABS_SCN
}
}
};
AsmSym_t *
asm_newabssym (ctx, name, size, value, type, binding)
AsmCtx_t *ctx;
const char *name;
GElf_Xword size;
GElf_Addr value;
int type;
int binding;
{
AsmSym_t *result;
if (ctx == NULL)
/* Something went wrong before. */
return NULL;
/* Common symbols are public. Therefore the user must provide a
name. */
if (name == NULL)
{
__libasm_seterrno (ASM_E_INVALID);
return NULL;
}
rwlock_wrlock (ctx->lock);
result = (AsmSym_t *) malloc (sizeof (AsmSym_t));
if (result == NULL)
return NULL;
result->scn = (AsmScn_t *) &__libasm_abs_scn;
result->size = size;
result->type = type;
result->binding = binding;
result->symidx = 0;
result->strent = ebl_strtabadd (ctx->symbol_strtab, name, 0);
/* The value of an ABS symbol must not be modified. Since there are
no subsection and the initial offset of the section is 0 we can
get the alignment recorded by storing it into the offset
field. */
result->offset = value;
if (unlikely (ctx->textp))
{
/* An absolute symbol can be defined by giving a symbol a
specific value. */
if (binding == STB_GLOBAL)
fprintf (ctx->out.file, "\t.globl %s\n", name);
else if (binding == STB_WEAK)
fprintf (ctx->out.file, "\t.weak %s\n", name);
if (type == STT_OBJECT)
fprintf (ctx->out.file, "\t.type %s,@object\n", name);
else if (type == STT_FUNC)
fprintf (ctx->out.file, "\t.type %s,@function\n", name);
fprintf (ctx->out.file, "%s = %llu\n",
name, (unsigned long long int) value);
if (size != 0)
fprintf (ctx->out.file, "\t.size %s, %llu\n",
name, (unsigned long long int) size);
}
else
{
/* Put the symbol in the hash table so that we can later find it. */
if (asm_symbol_tab_insert (&ctx->symbol_tab, elf_hash (name), result)
!= 0)
{
/* The symbol already exists. */
__libasm_seterrno (ASM_E_DUPLSYM);
free (result);
result = NULL;
}
else if (name != NULL && asm_emit_symbol_p (name))
/* Only count non-private symbols. */
++ctx->nsymbol_tab;
}
rwlock_unlock (ctx->lock);
return result;
}
|
