rdoff/symtab.c

   1 /* symtab.c     Routines to maintain and manipulate a symbol table
   2  *
   3  *   These routines donated to the NASM effort by Graeme Defty.
   4  *
   5  * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
   6  * Julian Hall. All rights reserved. The software is
   7  * redistributable under the licence given in the file "Licence"
   8  * distributed in the NASM archive.
   9  */
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <string.h>
  13
  14 #include "symtab.h"
  15 #include "hash.h"
  16
  17 #define SYMTABSIZE 64
  18 #define slotnum(x) (hash((x)) % SYMTABSIZE)
  19
  20 /* ------------------------------------- */
  21 /* Private data types */
  22
  23 typedef struct tagSymtabNode {
  24     struct tagSymtabNode *next;
  25     symtabEnt ent;
  26 } symtabNode;
  27
  28 typedef symtabNode *(symtabTab[SYMTABSIZE]);
  29
  30 typedef symtabTab *symtab;
  31
  32 /* ------------------------------------- */
  33 void *symtabNew(void)
  34 {
  35     symtab mytab;
  36
  37     mytab = (symtabTab *) calloc(SYMTABSIZE, sizeof(symtabNode *));
  38     if (mytab == NULL) {
  39         fprintf(stderr, "symtab: out of memory\n");
  40         exit(3);
  41     }
  42
  43     return mytab;
  44 }
  45
  46 /* ------------------------------------- */
  47 void symtabDone(void *stab)
  48 {
  49     symtab mytab = (symtab) stab;
  50     int i;
  51     symtabNode *this, *next;
  52
  53     for (i = 0; i < SYMTABSIZE; ++i) {
  54
  55         for (this = (*mytab)[i]; this; this = next) {
  56             next = this->next;
  57             free(this);
  58         }
  59
  60     }
  61     free(*mytab);
  62 }
  63
  64 /* ------------------------------------- */
  65 void symtabInsert(void *stab, symtabEnt * ent)
  66 {
  67     symtab mytab = (symtab) stab;
  68     symtabNode *node;
  69     int slot;
  70
  71     node = malloc(sizeof(symtabNode));
  72     if (node == NULL) {
  73         fprintf(stderr, "symtab: out of memory\n");
  74         exit(3);
  75     }
  76
  77     slot = slotnum(ent->name);
  78
  79     node->ent = *ent;
  80     node->next = (*mytab)[slot];
  81     (*mytab)[slot] = node;
  82 }
  83
  84 /* ------------------------------------- */
  85 symtabEnt *symtabFind(void *stab, const char *name)
  86 {
  87     symtab mytab = (symtab) stab;
  88     int slot = slotnum(name);
  89     symtabNode *node = (*mytab)[slot];
  90
  91     while (node) {
  92         if (!strcmp(node->ent.name, name)) {
  93             return &(node->ent);
  94         }
  95         node = node->next;
  96     }
  97
  98     return NULL;
  99 }
 100
 101 /* ------------------------------------- */
 102 void symtabDump(void *stab, FILE * of)
 103 {
 104     symtab mytab = (symtab) stab;
 105     int i;
 106     char *SegNames[3] = { "code", "data", "bss" };
 107
 108     fprintf(of, "Symbol table is ...\n");
 109     for (i = 0; i < SYMTABSIZE; ++i) {
 110         symtabNode *l = (symtabNode *) (*mytab)[i];
 111
 112         if (l) {
 113             fprintf(of, " ... slot %d ...\n", i);
 114         }
 115         while (l) {
 116             if ((l->ent.segment) == -1) {
 117                 fprintf(of, "%-32s Unresolved reference\n", l->ent.name);
 118             } else {
 119                 fprintf(of, "%-32s %s:%08lx (%ld)\n", l->ent.name,
 120                         SegNames[l->ent.segment],
 121                         l->ent.offset, l->ent.flags);
 122             }
 123             l = l->next;
 124         }
 125     }
 126     fprintf(of, "........... end of Symbol table.\n");
 127 }