149 lines
2.9 KiB
C
149 lines
2.9 KiB
C
/*
|
|
* $Id: symbol.c,v 1.3 1993/11/01 16:26:19 pk Exp $ - symbol table routines
|
|
*/
|
|
|
|
/* Create the symbol table entries for `etext', `edata' and `end'. */
|
|
|
|
#include <sys/param.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <sys/types.h>
|
|
#include <fcntl.h>
|
|
#include <a.out.h>
|
|
#include <stab.h>
|
|
#include <string.h>
|
|
|
|
#include "ld.h"
|
|
|
|
void
|
|
symtab_init (relocatable_output)
|
|
int relocatable_output;
|
|
{
|
|
/*
|
|
* Put linker reserved symbols into symbol table.
|
|
*/
|
|
|
|
dynamic_symbol = getsym ("__DYNAMIC");
|
|
dynamic_symbol->defined = relocatable_output?N_UNDF:(N_DATA | N_EXT);
|
|
dynamic_symbol->referenced = 0;
|
|
dynamic_symbol->value = 0;
|
|
|
|
got_symbol = getsym ("__GLOBAL_OFFSET_TABLE_");
|
|
got_symbol->defined = N_DATA | N_EXT;
|
|
got_symbol->referenced = 0;
|
|
got_symbol->value = 0;
|
|
|
|
if (relocatable_output)
|
|
return;
|
|
|
|
#ifndef nounderscore
|
|
edata_symbol = getsym ("_edata");
|
|
etext_symbol = getsym ("_etext");
|
|
end_symbol = getsym ("_end");
|
|
#else
|
|
edata_symbol = getsym ("edata");
|
|
etext_symbol = getsym ("etext");
|
|
end_symbol = getsym ("end");
|
|
#endif
|
|
edata_symbol->defined = N_DATA | N_EXT;
|
|
etext_symbol->defined = N_TEXT | N_EXT;
|
|
end_symbol->defined = N_BSS | N_EXT;
|
|
|
|
edata_symbol->referenced = 1;
|
|
etext_symbol->referenced = 1;
|
|
end_symbol->referenced = 1;
|
|
}
|
|
|
|
/* Compute the hash code for symbol name KEY. */
|
|
|
|
int
|
|
hash_string (key)
|
|
char *key;
|
|
{
|
|
register char *cp;
|
|
register int k;
|
|
|
|
cp = key;
|
|
k = 0;
|
|
while (*cp)
|
|
k = (((k << 1) + (k >> 14)) ^ (*cp++)) & 0x3fff;
|
|
|
|
return k;
|
|
}
|
|
|
|
/* Get the symbol table entry for the global symbol named KEY.
|
|
Create one if there is none. */
|
|
|
|
symbol *
|
|
getsym(key)
|
|
char *key;
|
|
{
|
|
register int hashval;
|
|
register symbol *bp;
|
|
|
|
/* Determine the proper bucket. */
|
|
hashval = hash_string (key) % TABSIZE;
|
|
|
|
/* Search the bucket. */
|
|
for (bp = symtab[hashval]; bp; bp = bp->link)
|
|
if (! strcmp (key, bp->name))
|
|
return bp;
|
|
|
|
/* Nothing was found; create a new symbol table entry. */
|
|
bp = (symbol *) xmalloc (sizeof (symbol));
|
|
bp->refs = 0;
|
|
bp->name = (char *) xmalloc (strlen (key) + 1);
|
|
strcpy (bp->name, key);
|
|
bp->defined = 0;
|
|
bp->referenced = 0;
|
|
bp->trace = 0;
|
|
bp->value = 0;
|
|
bp->max_common_size = 0;
|
|
bp->warning = 0;
|
|
bp->undef_refs = 0;
|
|
bp->multiply_defined = 0;
|
|
bp->alias = 0;
|
|
bp->setv_count = 0;
|
|
|
|
bp->size = 0;
|
|
bp->sorefs = 0;
|
|
bp->so_defined = 0;
|
|
bp->def_nlist = 0;
|
|
bp->jmpslot_offset = -1;
|
|
bp->gotslot_offset = -1;
|
|
bp->jmpslot_claimed = 0;
|
|
bp->gotslot_claimed = 0;
|
|
bp->cpyreloc_reserved = 0;
|
|
bp->cpyreloc_claimed = 0;
|
|
|
|
/* Add the entry to the bucket. */
|
|
bp->link = symtab[hashval];
|
|
symtab[hashval] = bp;
|
|
|
|
++num_hash_tab_syms;
|
|
|
|
return bp;
|
|
}
|
|
|
|
/* Like `getsym' but return 0 if the symbol is not already known. */
|
|
|
|
symbol *
|
|
getsym_soft (key)
|
|
char *key;
|
|
{
|
|
register int hashval;
|
|
register symbol *bp;
|
|
|
|
/* Determine which bucket. */
|
|
|
|
hashval = hash_string (key) % TABSIZE;
|
|
|
|
/* Search the bucket. */
|
|
|
|
for (bp = symtab[hashval]; bp; bp = bp->link)
|
|
if (! strcmp (key, bp->name))
|
|
return bp;
|
|
|
|
return 0;
|
|
}
|