1 /* ----------------------------------------------------------------------- *
2 *
3 * Copyright 1996-2009 The NASM Authors - All Rights Reserved
4 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
9 * conditions are met:
10 *
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 *
32 * ----------------------------------------------------------------------- */
33
34 /*
35 * symtab.c Routines to maintain and manipulate a symbol table
36 *
37 * These routines donated to the NASM effort by Graeme Defty.
38 */
39
40 #include "rdfutils.h"
41
42 #include <stdio.h>
43 #include <stdlib.h>
44
45 #include "symtab.h"
46 #include "hash.h"
47
48 #define SYMTABSIZE 64
49 #define slotnum(x) (hash((x)) % SYMTABSIZE)
50
51 /* ------------------------------------- */
52 /* Private data types */
53
54 typedef struct tagSymtabNode {
55 struct tagSymtabNode *next;
56 symtabEnt ent;
57 } symtabNode;
58
59 typedef symtabNode *(symtabTab[SYMTABSIZE]);
60
61 typedef symtabTab *symtab;
62
63 /* ------------------------------------- */
symtabNew(void)64 void *symtabNew(void)
65 {
66 symtab mytab;
67
68 mytab = (symtabTab *) nasm_calloc(SYMTABSIZE, sizeof(symtabNode *));
69 if (mytab == NULL) {
70 fprintf(stderr, "symtab: out of memory\n");
71 exit(3);
72 }
73
74 return mytab;
75 }
76
77 /* ------------------------------------- */
symtabDone(void * stab)78 void symtabDone(void *stab)
79 {
80 symtab mytab = (symtab) stab;
81 int i;
82 symtabNode *this, *next;
83
84 for (i = 0; i < SYMTABSIZE; ++i) {
85
86 for (this = (*mytab)[i]; this; this = next) {
87 next = this->next;
88 nasm_free(this);
89 }
90
91 }
92 nasm_free(*mytab);
93 }
94
95 /* ------------------------------------- */
symtabInsert(void * stab,symtabEnt * ent)96 void symtabInsert(void *stab, symtabEnt * ent)
97 {
98 symtab mytab = (symtab) stab;
99 symtabNode *node;
100 int slot;
101
102 node = nasm_malloc(sizeof(symtabNode));
103 if (node == NULL) {
104 fprintf(stderr, "symtab: out of memory\n");
105 exit(3);
106 }
107
108 slot = slotnum(ent->name);
109
110 node->ent = *ent;
111 node->next = (*mytab)[slot];
112 (*mytab)[slot] = node;
113 }
114
115 /* ------------------------------------- */
symtabFind(void * stab,const char * name)116 symtabEnt *symtabFind(void *stab, const char *name)
117 {
118 symtab mytab = (symtab) stab;
119 int slot = slotnum(name);
120 symtabNode *node = (*mytab)[slot];
121
122 while (node) {
123 if (!strcmp(node->ent.name, name)) {
124 return &(node->ent);
125 }
126 node = node->next;
127 }
128
129 return NULL;
130 }
131
132 /* ------------------------------------- */
symtabDump(void * stab,FILE * of)133 void symtabDump(void *stab, FILE * of)
134 {
135 symtab mytab = (symtab) stab;
136 int i;
137 char *SegNames[3] = { "code", "data", "bss" };
138
139 fprintf(of, "Symbol table is ...\n");
140 for (i = 0; i < SYMTABSIZE; ++i) {
141 symtabNode *l = (symtabNode *) (*mytab)[i];
142
143 if (l) {
144 fprintf(of, " ... slot %d ...\n", i);
145 }
146 while (l) {
147 if ((l->ent.segment) == -1) {
148 fprintf(of, "%-32s Unresolved reference\n", l->ent.name);
149 } else {
150 fprintf(of, "%-32s %s:%08"PRIx32" (%"PRId32")\n", l->ent.name,
151 SegNames[l->ent.segment],
152 l->ent.offset, l->ent.flags);
153 }
154 l = l->next;
155 }
156 }
157 fprintf(of, "........... end of Symbol table.\n");
158 }
159