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
122
123
124
125
126
127
|
/* symtab.c Routines to maintain and manipulate a symbol table
*
* These routines donated to the NASM effort by Graeme Defty.
*
* The Netwide Assembler is copyright (C) 1996 Simon Tatham and
* Julian Hall. All rights reserved. The software is
* redistributable under the licence given in the file "Licence"
* distributed in the NASM archive.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "symtab.h"
#include "hash.h"
#define SYMTABSIZE 64
#define slotnum(x) (hash((x)) % SYMTABSIZE)
/* ------------------------------------- */
/* Private data types */
typedef struct tagSymtabNode {
struct tagSymtabNode *next;
symtabEnt ent;
} symtabNode;
typedef symtabNode *(symtabTab[SYMTABSIZE]);
typedef symtabTab *symtab;
/* ------------------------------------- */
void *symtabNew(void)
{
symtab mytab;
mytab = (symtabTab *) calloc(SYMTABSIZE, sizeof(symtabNode *));
if (mytab == NULL) {
fprintf(stderr, "symtab: out of memory\n");
exit(3);
}
return mytab;
}
/* ------------------------------------- */
void symtabDone(void *stab)
{
symtab mytab = (symtab) stab;
int i;
symtabNode *this, *next;
for (i = 0; i < SYMTABSIZE; ++i) {
for (this = (*mytab)[i]; this; this = next) {
next = this->next;
free(this);
}
}
free(*mytab);
}
/* ------------------------------------- */
void symtabInsert(void *stab, symtabEnt * ent)
{
symtab mytab = (symtab) stab;
symtabNode *node;
int slot;
node = malloc(sizeof(symtabNode));
if (node == NULL) {
fprintf(stderr, "symtab: out of memory\n");
exit(3);
}
slot = slotnum(ent->name);
node->ent = *ent;
node->next = (*mytab)[slot];
(*mytab)[slot] = node;
}
/* ------------------------------------- */
symtabEnt *symtabFind(void *stab, const int8_t *name)
{
symtab mytab = (symtab) stab;
int slot = slotnum(name);
symtabNode *node = (*mytab)[slot];
while (node) {
if (!strcmp(node->ent.name, name)) {
return &(node->ent);
}
node = node->next;
}
return NULL;
}
/* ------------------------------------- */
void symtabDump(void *stab, FILE * of)
{
symtab mytab = (symtab) stab;
int i;
int8_t *SegNames[3] = { "code", "data", "bss" };
fprintf(of, "Symbol table is ...\n");
for (i = 0; i < SYMTABSIZE; ++i) {
symtabNode *l = (symtabNode *) (*mytab)[i];
if (l) {
fprintf(of, " ... slot %d ...\n", i);
}
while (l) {
if ((l->ent.segment) == -1) {
fprintf(of, "%-32s Unresolved reference\n", l->ent.name);
} else {
fprintf(of, "%-32s %s:%08lx (%ld)\n", l->ent.name,
SegNames[l->ent.segment],
l->ent.offset, l->ent.flags);
}
l = l->next;
}
}
fprintf(of, "........... end of Symbol table.\n");
}
|
