1 /* Define new symbol for current position in given section.
2 Copyright (C) 2002 Red Hat, Inc.
3 Written by Ulrich Drepper <drepper@redhat.com>, 2002.
4
5 This program is Open Source software; you can redistribute it and/or
6 modify it under the terms of the Open Software License version 1.0 as
7 published by the Open Source Initiative.
8
9 You should have received a copy of the Open Software License along
10 with this program; if not, you may obtain a copy of the Open Software
11 License version 1.0 from http://www.opensource.org/licenses/osl.php or
12 by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
13 3001 King Ranch Road, Ukiah, CA 95482. */
14
15 #ifdef HAVE_CONFIG_H
16 # include <config.h>
17 #endif
18
19 #include <inttypes.h>
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include <string.h>
23
24 #include <libasmP.h>
25 #include <system.h>
26
27
28 AsmSym_t *
asm_newsym(asmscn,name,size,type,binding)29 asm_newsym (asmscn, name, size, type, binding)
30 AsmScn_t *asmscn;
31 const char *name;
32 GElf_Xword size;
33 int type;
34 int binding;
35 {
36 #define TEMPSYMLEN 10
37 char tempsym[TEMPSYMLEN];
38 AsmSym_t *result;
39
40 if (asmscn == NULL)
41 /* Something went wrong before. */
42 return NULL;
43
44 /* Generate a temporary symbol if necessary. */
45 if (name == NULL)
46 {
47 /* If a local symbol name is created the symbol better have
48 local binding. */
49 if (binding != STB_LOCAL)
50 {
51 __libasm_seterrno (ASM_E_INVALID);
52 return NULL;
53 }
54
55 // XXX This requires getting the format from the machine backend. */
56 snprintf (tempsym, TEMPSYMLEN, ".L%07u", asmscn->ctx->tempsym_count++);
57 }
58
59 result = (AsmSym_t *) malloc (sizeof (AsmSym_t));
60 if (result == NULL)
61 return NULL;
62
63 rwlock_wrlock (asmscn->ctx->lock);
64
65 result->scn = asmscn;
66 result->offset = asmscn->offset;
67 result->size = size;
68 result->type = type;
69 result->binding = binding;
70 result->symidx = 0;
71 result->strent = ebl_strtabadd (asmscn->ctx->symbol_strtab,
72 name ?: tempsym, 0);
73
74 if (unlikely (asmscn->ctx->textp))
75 {
76 /* We are only interested in the name and don't need to know whether
77 it is a local name or not. */
78 if (name == NULL)
79 name = tempsym;
80
81 /* First print the binding pseudo-op. */
82 if (binding == STB_GLOBAL)
83 fprintf (asmscn->ctx->out.file, "\t.globl\t%s\n", name);
84 else if (binding == STB_WEAK)
85 fprintf (asmscn->ctx->out.file, "\t.weak\t%s\n", name);
86
87 /* Next the symbol type. */
88 if (type == STT_OBJECT)
89 fprintf (asmscn->ctx->out.file, "\t.type\t%s,@object\n", name);
90 else if (type == STT_FUNC)
91 fprintf (asmscn->ctx->out.file, "\t.type\t%s,@function\n", name);
92
93 /* Finally the size and the label. */
94 fprintf (asmscn->ctx->out.file, "\t.size\t%s,%" PRIuMAX "\n%s:\n",
95 name, (uintmax_t) size, name);
96 }
97 else
98 {
99 /* Put the symbol in the hash table so that we can later find it. */
100 if (asm_symbol_tab_insert (&asmscn->ctx->symbol_tab,
101 elf_hash (name ?: tempsym), result) != 0)
102 {
103 /* The symbol already exists. */
104 __libasm_seterrno (ASM_E_DUPLSYM);
105 free (result);
106 result = NULL;
107 }
108 else if (name != NULL && asm_emit_symbol_p (name))
109 /* Only count non-private symbols. */
110 ++asmscn->ctx->nsymbol_tab;
111 }
112
113 rwlock_unlock (asmscn->ctx->lock);
114
115 return result;
116 }
117