rdoff/symtab.c

   1 /* ----------------------------------------------------------------------- *
   2  *
   3  *   Copyright 1996-2009 The NASM Authors - All Rights Reserved
   4  *   See the file AUTHORS included with the NASM distribution for
   5  *   the specific copyright holders.
   6  *
   7  *   Redistribution and use in source and binary forms, with or without
   8  *   modification, are permitted provided that the following
   9  *   conditions are met:
  10  *
  11  *   * Redistributions of source code must retain the above copyright
  12  *     notice, this list of conditions and the following disclaimer.
  13  *   * Redistributions in binary form must reproduce the above
  14  *     copyright notice, this list of conditions and the following
  15  *     disclaimer in the documentation and/or other materials provided
  16  *     with the distribution.
  17  *
  18  *     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  19  *     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  20  *     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  21  *     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  22  *     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  23  *     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  24  *     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  25  *     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  26  *     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  *     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  28  *     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  29  *     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  30  *     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31  *
  32  * ----------------------------------------------------------------------- */
  33
  34 /*
  35  * symtab.c     Routines to maintain and manipulate a symbol table
  36  *
  37  *   These routines donated to the NASM effort by Graeme Defty.
  38  */
  39
  40 #include "rdfutils.h"
  41
  42 #include <stdio.h>
  43 #include <stdlib.h>
  44
  45 #include "symtab.h"
  46 #include "hash.h"
  47
  48 #define SYMTABSIZE 64
  49 #define slotnum(x) (hash((x)) % SYMTABSIZE)
  50
  51 /* ------------------------------------- */
  52 /* Private data types */
  53
  54 typedef struct tagSymtabNode {
  55     struct tagSymtabNode *next;
  56     symtabEnt ent;
  57 } symtabNode;
  58
  59 typedef symtabNode *(symtabTab[SYMTABSIZE]);
  60
  61 typedef symtabTab *symtab;
  62
  63 /* ------------------------------------- */
  64 void *symtabNew(void)
  65 {
  66     symtab mytab;
  67
  68     mytab = (symtabTab *) nasm_calloc(SYMTABSIZE, sizeof(symtabNode *));
  69     if (mytab == NULL) {
  70         fprintf(stderr, "symtab: out of memory\n");
  71         exit(3);
  72     }
  73
  74     return mytab;
  75 }
  76
  77 /* ------------------------------------- */
  78 void symtabDone(void *stab)
  79 {
  80     symtab mytab = (symtab) stab;
  81     int i;
  82     symtabNode *this, *next;
  83
  84     for (i = 0; i < SYMTABSIZE; ++i) {
  85
  86         for (this = (*mytab)[i]; this; this = next) {
  87             next = this->next;
  88             nasm_free(this);
  89         }
  90
  91     }
  92     nasm_free(*mytab);
  93 }
  94
  95 /* ------------------------------------- */
  96 void symtabInsert(void *stab, symtabEnt * ent)
  97 {
  98     symtab mytab = (symtab) stab;
  99     symtabNode *node;
 100     int slot;
 101
 102     node = nasm_malloc(sizeof(symtabNode));
 103     if (node == NULL) {
 104         fprintf(stderr, "symtab: out of memory\n");
 105         exit(3);
 106     }
 107
 108     slot = slotnum(ent->name);
 109
 110     node->ent = *ent;
 111     node->next = (*mytab)[slot];
 112     (*mytab)[slot] = node;
 113 }
 114
 115 /* ------------------------------------- */
 116 symtabEnt *symtabFind(void *stab, const char *name)
 117 {
 118     symtab mytab = (symtab) stab;
 119     int slot = slotnum(name);
 120     symtabNode *node = (*mytab)[slot];
 121
 122     while (node) {
 123         if (!strcmp(node->ent.name, name)) {
 124             return &(node->ent);
 125         }
 126         node = node->next;
 127     }
 128
 129     return NULL;
 130 }
 131
 132 /* ------------------------------------- */
 133 void symtabDump(void *stab, FILE * of)
 134 {
 135     symtab mytab = (symtab) stab;
 136     int i;
 137     char *SegNames[3] = { "code", "data", "bss" };
 138
 139     fprintf(of, "Symbol table is ...\n");
 140     for (i = 0; i < SYMTABSIZE; ++i) {
 141         symtabNode *l = (symtabNode *) (*mytab)[i];
 142
 143         if (l) {
 144             fprintf(of, " ... slot %d ...\n", i);
 145         }
 146         while (l) {
 147             if ((l->ent.segment) == -1) {
 148                 fprintf(of, "%-32s Unresolved reference\n", l->ent.name);
 149             } else {
 150                 fprintf(of, "%-32s %s:%08"PRIx32" (%"PRId32")\n", l->ent.name,
 151                         SegNames[l->ent.segment],
 152                         l->ent.offset, l->ent.flags);
 153             }
 154             l = l->next;
 155         }
 156     }
 157     fprintf(of, "........... end of Symbol table.\n");
 158 }