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
  11 #include "compiler.h"
  12
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15 #include <string.h>
  16
  17 #include "symtab.h"
  18 #include "hash.h"
  19
  20 #define SYMTABSIZE 64
  21 #define slotnum(x) (hash((x)) % SYMTABSIZE)
  22
  23 /* ------------------------------------- */
  24 /* Private data types */
  25
  26 typedef struct tagSymtabNode {
  27     struct tagSymtabNode *next;
  28     symtabEnt ent;
  29 } symtabNode;
  30
  31 typedef symtabNode *(symtabTab[SYMTABSIZE]);
  32
  33 typedef symtabTab *symtab;
  34
  35 /* ------------------------------------- */
  36 void *symtabNew(void)
  37 {
  38     symtab mytab;
  39
  40     mytab = (symtabTab *) calloc(SYMTABSIZE, sizeof(symtabNode *));
  41     if (mytab == NULL) {
  42         fprintf(stderr, "symtab: out of memory\n");
  43         exit(3);
  44     }
  45
  46     return mytab;
  47 }
  48
  49 /* ------------------------------------- */
  50 void symtabDone(void *stab)
  51 {
  52     symtab mytab = (symtab) stab;
  53     int i;
  54     symtabNode *this, *next;
  55
  56     for (i = 0; i < SYMTABSIZE; ++i) {
  57
  58         for (this = (*mytab)[i]; this; this = next) {
  59             next = this->next;
  60             free(this);
  61         }
  62
  63     }
  64     free(*mytab);
  65 }
  66
  67 /* ------------------------------------- */
  68 void symtabInsert(void *stab, symtabEnt * ent)
  69 {
  70     symtab mytab = (symtab) stab;
  71     symtabNode *node;
  72     int slot;
  73
  74     node = malloc(sizeof(symtabNode));
  75     if (node == NULL) {
  76         fprintf(stderr, "symtab: out of memory\n");
  77         exit(3);
  78     }
  79
  80     slot = slotnum(ent->name);
  81
  82     node->ent = *ent;
  83     node->next = (*mytab)[slot];
  84     (*mytab)[slot] = node;
  85 }
  86
  87 /* ------------------------------------- */
  88 symtabEnt *symtabFind(void *stab, const char *name)
  89 {
  90     symtab mytab = (symtab) stab;
  91     int slot = slotnum(name);
  92     symtabNode *node = (*mytab)[slot];
  93
  94     while (node) {
  95         if (!strcmp(node->ent.name, name)) {
  96             return &(node->ent);
  97         }
  98         node = node->next;
  99     }
 100
 101     return NULL;
 102 }
 103
 104 /* ------------------------------------- */
 105 void symtabDump(void *stab, FILE * of)
 106 {
 107     symtab mytab = (symtab) stab;
 108     int i;
 109     char *SegNames[3] = { "code", "data", "bss" };
 110
 111     fprintf(of, "Symbol table is ...\n");
 112     for (i = 0; i < SYMTABSIZE; ++i) {
 113         symtabNode *l = (symtabNode *) (*mytab)[i];
 114
 115         if (l) {
 116             fprintf(of, " ... slot %d ...\n", i);
 117         }
 118         while (l) {
 119             if ((l->ent.segment) == -1) {
 120                 fprintf(of, "%-32s Unresolved reference\n", l->ent.name);
 121             } else {
 122                 fprintf(of, "%-32s %s:%08"PRIx32" (%"PRId32")\n", l->ent.name,
 123                         SegNames[l->ent.segment],
 124                         l->ent.offset, l->ent.flags);
 125             }
 126             l = l->next;
 127         }
 128     }
 129     fprintf(of, "........... end of Symbol table.\n");
 130 }