aboutsummaryrefslogtreecommitdiffstats
path: root/rdoff/symtab.c
blob: 4999176de983b6eb87c7a0a9703b094db1101caa (plain)
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
128
129
130
131
/* 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 <malloc.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 char *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;
   char *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");
}