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