Return to syms.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / ld

researchv9-SUN3(old)

static char ID[] = "@(#) syms.c: 1.18 10/5/83";
#include "system.h"
#include <stdio.h>
#include <fatal.h>
#include <signal.h>
#if !NOSDP
#include "sdp1.h"
#include "sdpsrc/hd/define2.h"
#include "sdpsrc/hd/define4.h"
#include "sdpsrc/hd/struct.h"
#endif
#include "structs.h"
#include "paths.h"
#include "extrns.h"
#if TRVEC
#include "tv.h"
#include "ldtv.h"
#endif
#include "sgsmacros.h"
#include "instr.h"
#include "ldmacros.h"



/*
 * ***** NOTICE ***** NOTICE ***** NOTICE *******
 *						*
 *	This version of syms.c is designed to	*
 *	permit multiple aux entries per symbol	*
 *						*
 *	This version of syms.c uses a one-way	*
 *	circular list to link all symbols that	*
 *	hash to the same hashtab[] entry	*
 *						*
 * ***** NOTICE ***** NOTICE ***** NOTICE *******
 */

#if NOSDP && !UNIX
#define HASHSIZE	1021
#else
#define HASHSIZE	521
#endif
/*
 * VAX cc bug KLUDGE
 */
#define abs(x)	(x < 0 ? -x : x)

ITEMID hashtab[HASHSIZE];

#if NOSDP
#if UNIX
#define MAXEXTRA	100
#define XSMTBSZ		100
#define XAXTBSZ		50
#define MYSMTBSZ	200
#define MYAXTBSZ	100
#else
#if AR16WR
#define MAXEXTRA	20
#define	XSMTBSZ		80
#define XAXTBSZ		40
#define MYSMTBSZ	400
#define MYAXTBSZ	200
#endif
#if AR32W
#define MAXEXTRA	100
#define XSMTBSZ		800
#define XAXTBSZ		400
#define MYSMTBSZ	4000
#define MYAXTBSZ	2000
#endif
#if AR32WR
#define	MAXEXTRA	10
#define XSMTBSZ		400
#define XAXTBSZ		200
#define MYSMTBSZ	2000
#define MYAXTBSZ	1000
#endif
#endif
int	xsymcnt = 0;
int	xauxcnt = 0;
SYMTAB	*xsymptr[MAXEXTRA];
AUXTAB	*xauxptr[MAXEXTRA];
SYMTAB	mysymtab[MYSMTBSZ+1];
AUXTAB	myauxtab[MYAXTBSZ+1];
#else
extern HEADER global_frames[MAXATTACH];
static char	sdpname[sizeof(TMPDIR)+20] = "";
static char	auxname[sizeof(TMPDIR)+20] = "";

static int	sdp_called = 0;	/* indicates when syminit() has been called */
static int	aux_called = 0;	/* indicates when auxinit() has been called */
/*eject*/
syminit()
{

/*
 * Initialize the Software Demand Paging System
 */

	if( sdp_called )
		lderror(2,0,NULL,"Attempt to re-initialize SDP symbol space");

	sprintf( sdpname, "%s/%s", TMPDIR, "ldXXXXXX" );
	mktemp( sdpname );

	sdp_called++;

	if( sdpinit(sdpname, CREATE, SYMSPACE) != SYMSPACE )
		lderror(2,0,NULL,"Failed to initialize SDP symbol space");
	else
		sdp_called++;

	auxinit();		/* initialize aux entry space */
}



symfini()
{
	char buf[sizeof(sdpname)*2 + 20];

/*
 * Ignore BREAK, HANGUP, and QUIT signals, to insure that the cleanup
 * is done
 */

	signal(SIGINT, SIG_IGN);
	signal(SIGQUIT, SIG_IGN);

	if( sdp_called == 2 ) {
		sdp_called--;
		if( sdpterm(SYMSPACE) < 0 )
			lderror(2,0,NULL,"Failed to close SDP symbol space");
		}

	if( sdp_called != 1 )
		return;
	sdp_called--;

#if TS || RT
	sprintf(buf, "rm -r %s", sdpname);
#else
	sprintf(buf, "rm -r %s; rmdir %s", sdpname, sdpname);
#endif

	if( fork() == 0 ) {
		execl("/bin/sh", "sh", "-c", buf, 0);
		lderror(0,0,NULL, "Execl(%s) failed", buf);
		_exit(127);
		}

	auxfini();		/* close aux entry space */
}
/*eject*/
#endif
hash(name)
register char *name;
{

/*
 * Compute hash value for a symbol name
 */

	register unsigned hashval;
	register int tmp;	/* VAX CC BUG KLUDGE */

	hashval = 0;
	while (*name)
		hashval = hashval * 10 + *name++;	/*used to be 13*/

/*
 * Because of a bug in the current VAX compiler, the following
 * line has temporarily been replaced by the KLUDGE following
 * this comment.  The define of abs() is also added above
 *
 *	return( (int) (hashval % HASHSIZE) );
 */

	tmp = (int) hashval;
	tmp = abs(tmp);
	return ( tmp % HASHSIZE );
}
/*eject*/
SYMTAB *
findsym(name)
char *name;
{

/*
 * Return a pointer to the ld symbol table entry for a symbol.
 *
 * NULL indicates that the symbol does not exist
 */

	register SYMTAB *p;	/* ld symbol table entry	*/
	register int chain;	/* size of a collision chain	*/
	int hashval;		/* hashtab[] index for the sym	*/
	register ITEMID acid,	/* SDP id for ld symbol entry	*/
	       base;		/* head of collision chain	*/


/*
 * All symbols that hash to the same value are connected in a one-way,
 *	circular linked list.  The most recently referenced symbol on
 *	the chain is considered the head of the chain, and its id is
 *	stored in the hash table
 *
 * Get the head of the collision chain, and walk down it looking for
 *	a match
 */

	hashval = hash(name);
	if( (acid = hashtab[hashval]) == 0 )
		return( NULL );
	base = acid;
	chain = 1;

	do {
		char sym_space[9];
		char	*sym_name;
#if NOSDP
		p = getsym(acid);
#else
		p = (SYMTAB *) lock(acid, MISPARTITION, RNLY);
#endif
		if (p->smnamelength == 9)
		{
			strncpy( sym_space, p->sment.n_name, 8 );
			sym_space[8] = '\0';
			sym_name = sym_space;
		}
#if FLEXNAMES
		else if (p->smnamelength > 9)
			sym_name = p->sment.n_nptr;
#endif
		else
			sym_name = p->sment.n_name;

		if (equal( sym_name, name, p->smnamelength ))
		{
			maxchain = max(maxchain,chain);
			nwalks += (chain - 1);
			hashtab[hashval] = acid;
			return( p );
		}
#if !NOSDP
		unlock(acid, RNLY);
#endif

		acid = p->smchainid;
		chain++;
		
		}
	while( acid != base );

	nfwalks += (chain - 1);

	return( NULL );		/* not found */
}
/*eject*/
AUXTAB *
findaux(sym, ndx)
SYMTAB *sym;
int ndx;
{

/*
 * Return a pointer to the ndx'th aux entry for the ld symbol table
 * entry given by sym
 *
 * NULL indicates that no such aux entry exists
 */

	register AUXTAB *a;	/* pointer to a symbol aux entry*/
	ITEMID acid;		/* SDP id for ld aux entry	*/

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\nfindaux %s ", SYMNAME( sym->sment ));
#endif

/*
 * All aux entries belonging to a symbol are linked together in a
 *	one-way linked list.  The entries are ordered by aux-entry
 *	number: the first aux entry is the head of the list; it is
 *	linked to the 2'nd aux entry, which is linked to the 3'rd, etc
 *
 * Get the head of the aux entry list, and walk down it looking for
 *	the specified aux entry
 */

	acid = sym->smauxid;

	while( acid != 0 ) {

#if NOSDP
		a = getaux(acid);
#else
		a = (AUXTAB *) lock(acid, MISPARTITION, RNLY);
#endif

		if( a->axord == ndx )
			return( a );
#if !NOSDP
		unlock(acid, RNLY);
#endif

		acid = a->axchainid;

		}

	return( NULL );		/* not found */
}
/*eject*/
SYMTAB *
makesym(sym, filp)
register SYMENT *sym;
INFILE	*filp;
{

/*
 * Given a (new) *.o symbol table entry, add it to the ld
 * symbol table
 *
 * A ld symbol table entry is built and initialized. Appropriate
 * entries are made in the hash table and in the SDP address space
 *
 * The address of the ld symbol table entry is returned
 */

	register SYMTAB *p;	/* pointer to a ld symbol entry	*/
	register ITEMID acid;	/* SDP id of a ld symbol entry	*/
	int hashval;		/* index into hash table for sym*/
	int auxcnt;
	char *name;

	name = PTRNAME( sym );
	if( (p = findsym(name)) == NULL ) {
		/*
 		 * Case 1: The symbol is not in the ld symbol table.
		 *	   Add a new entry, making it the head of the
		 *		collision chain
		 *	   Update the hash table
 		 */
#if NOSDP
		if (numldsyms >= MYSMTBSZ + (xsymcnt * XSMTBSZ)) {
			if (xsymcnt >= MAXEXTRA)
				lderror(2,0,"internal error: ","symbol table overflow");
			xsymptr[xsymcnt++] = (SYMTAB *) myalloc(XSMTBSZ * SYMSIZ);
			}
		acid = ++numldsyms;
		p = getsym(acid);
#else
		numldsyms++;
		acid = allocate(SYMSIZ, SYMSPACE, MISPARTITION);
		p = (SYMTAB *) lock(acid, MISPARTITION, WRTN);
		zero( p, SYMSIZ );
#endif
		p->sment = *sym;
		p->smnamelength = strlen( name ) + 1;
#if FLEXNAMES
		if ((sym->n_zeroes == 0L) && ((filp == NULL)
				|| (filp && (filp->flstrings == NULL))))
			p->sment.n_nptr = savefn(sym->n_nptr);
#endif
		p->sment.n_numaux = 0;
		p->smmyacid = acid;

		hashval = hash(name);
		if( hashtab[hashval] > 0 ) {
			SYMTAB *p2;
#if NOSDP
			p2 = getsym(hashtab[hashval]);
#else
			p2 = (SYMTAB *) lock(hashtab[hashval], HITPARTITION, WRTN);
#endif
			p->smchainid = p2->smchainid;
			p2->smchainid = acid;
#if !NOSDP
			unlock(hashtab[hashval], WRTN);
#endif
			ncolisns++;
			}
		else
			p->smchainid = acid;

		hashtab[hashval] = acid;
		return( p );
		}

/*
 * Case 2: The symbol is already in the symbol table
 *	   Update the existing entry
 */

	if( sym->n_scnum != 0 ) {
		/*
		 * The makesym() argument 'sym' is the defining entry
		 * for the symbol
		 */
		if( p->sment.n_scnum == 0 ) {

			/*
			 * The existing ld symbol table entry
			 * was from a reference
			 *
			 * Merge the information from the function
			 * argument and the ld symbol table
			 *
			 * The ld symbol table entry may have a ld-
			 * generated aux entry. If so, carry this
			 * entry over.
			 */
#if COMMON
			if (Mflag && p->sment.n_value > 0)
				lderror(0,0,NULL, "Symbol %s in %s is multiply defined.", 
					name,curfilnm );
#endif
			p->sment.n_value = sym->n_value;
			p->sment.n_scnum = sym->n_scnum;
			p->sment.n_type = sym->n_type;
			p->sment.n_sclass = sym->n_sclass;
			}
		else if( p->sment.n_scnum != -1 )
			lderror(1,0,NULL, "Symbol %s in %s is multiply defined. First defined in %s",
				name, curfilnm, p->smscnptr->isfilptr->flname );
		}

#if COMMON
	else if (sym->n_value > 0)	/* & sym->n_scnum == 0 => common sym */
	{
		if (Mflag && (p->sment.n_scnum != 0 ||
			    (p->sment.n_scnum == 0 && p->sment.n_value > 0)))
			lderror(0, 0, NULL, "Symbol %s in %s is multiply defined.",
				name, curfilnm);

		/* set value for .common symbol */

		if ( p->sment.n_scnum == N_UNDEF )
		{
			if ( !tflag && ( p->sment.n_value > 0 )
				&& ( p->sment.n_value != sym->n_value ))
			{
				lderror(0, 0, NULL,
					"Multiply defined symbol %s, in %s, has more than one size",
					PTRNAME(sym), curfilnm);
			}

			p->sment.n_value = /* max of old & new val */
				(p->sment.n_value > sym->n_value) ?
				 p->sment.n_value : sym->n_value;

			if (sym->n_type != T_NULL && p->sment.n_type == T_NULL)
				p->sment.n_type = sym->n_type;
		}
	}
#endif
	return( p );
}
/*eject*/
AUXTAB *
makeaux(sym, aux, ndx)
register SYMTAB *sym;	/* symbol table entry to which the aux entry belongs */
register AUXENT *aux;	/* new aux entry				     */
int    ndx;	/* number of aux entries already added to entry	     */
{

/*
 * Given a (*.o) aux entry, add it to an existing ld symbol
 * table entry
 *
 * The address of the ld aux entry is returned
 */

	register AUXTAB *a;
	register int tvndx;
	ITEMID acid;

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\nmakeaux %s ", SYMNAME( sym->sment ) );
	else if( dflag > 2 )
		fprintf(stderr, "makeaux: %s (%d) : %08lx %04x %04x %08lx %08lx %04x\n",
			SYMNAME(sym->sment), ndx,
			aux->x_sym.x_tagndx, aux->x_sym.x_misc.x_lnsz.x_lnno,
			aux->x_sym.x_misc.x_lnsz.x_size,
			aux->x_sym.x_fcnary.x_fcn.x_lnnoptr,
			aux->x_sym.x_fcnary.x_fcn.x_endndx,
			aux->x_sym.x_tvndx);
#endif

/*
 * Add the new aux entry to the symbol table entry
 */

	if( (acid = sym->smauxid) == 0 ) {
		/*
		 * Add the first aux entry for a symbol 
		 */
		if( ndx != 0 )
			lderror(1,0,NULL,"Making aux entry %d for symbol %s out of sequence",
				ndx+1, SYMNAME( sym->sment ));
#if NOSDP
		if (numldaux >= MYAXTBSZ + (xauxcnt * XAXTBSZ)) {
			if (xauxcnt >= MAXEXTRA)
				lderror(2,0,"internal error: ","aux table overflow");
			xauxptr[xauxcnt++] = (AUXTAB *) myalloc(XAXTBSZ * AUXSIZ);
			}
		acid = ++numldaux;
		a = getaux(acid);
#else
		numldaux++;
		acid = allocate(AUXSIZ, AUXSPACE, MISPARTITION);
		a = (AUXTAB *) lock(acid, MISPARTITION, WRTN);

		zero( a, AUXSIZ );
#endif
		a->axent = *aux;
		a->axord = 1;
		a->axmyacid = acid;
		a->axchainid = 0;

		sym->sment.n_numaux++;
		sym->smauxid = acid;

		return( a );
		}
	
#if NOSDP
	a = getaux(acid);
#else
	a = (AUXTAB *) lock(acid, MISPARTITION, WRTN);
#endif


	if( ndx == 0 ) {
		/*
		 * The symbol table entry already has a aux entry.
		 *
		 * This occurs when ld generates an aux entry for
		 * the symbol, to contain a tv slot index.
		 *
		 * Merge this ld-entry with the entry obtained from
		 * the input file
		 *
		 * Two cases: due to a tv ref in an earlier
		 *	input file, the aux entry in the symbol
		 *	table is a dummy one and should be
		 *	overwritten except for the tvndx.
		 *
		 *  (2) we are doing subsystem linking and
		 *	we are getting dummy and real auxents
		 *	in an unknown order.  in this case
		 *	we have to test to see which one is
		 *	the dummy and either overwrite it
		 *	or throw it away.  We have this info
		 *	in psymtab() and should be an arg
		 *	to makeaux().  However a KLUDGE is
		 *	to see which one is all 0's except
		 *	for the tvndx and call that one the
		 *	dummy.  This should be cleaned up
		 *	and made reasonable later.
		 */

		/* if incoming is not dummy */
		if ( ! ( (aux->x_sym.x_tagndx == 0L) &&
			(aux->x_sym.x_misc.x_fsize == 0L) &&
			   (aux->x_sym.x_fcnary.x_fcn.x_lnnoptr == 0L) &&
			      (aux->x_sym.x_fcnary.x_fcn.x_endndx == 0L) ) ) {
			tvndx = a->axent.x_sym.x_tvndx;
			a->axent = *aux;
			if (tvndx != N_TV)
				a->axent.x_sym.x_tvndx = tvndx;
			}

		return( a );
		}

/*
 * Step down the chain of aux entries, to the correct position for the
 * new entry
 */

	while( a->axord != ndx ) {
#if NOSDP
		acid = a->axchainid;
		a = getaux(acid);
#else
		unlock(acid, RNLY);
		acid = a->axchainid;
		a = (AUXTAB *) lock(acid, MISPARTITION, RNLY);
#endif
		}

	if( a->axchainid != 0 ) {
		/*
		 * Overwriting an existing aux entry (but not the first aux
		 * entry). Warn the user
		 */
		lderror(0,0,NULL,"Overwriting aux entry %d of symbol %s",
			ndx+1, SYMNAME( sym->sment ));

#if NOSDP
		acid = a->axchainid;
		a = getaux(acid);
#else
		unlock(acid, RNLY);
		acid = a->axchainid;
		a = (AUXTAB *) lock(acid, MISPARTITION, WRTN);
#endif

		a->axent = *aux;

		return( a );
		}
	else {
		/*
		 * Add the new aux entry at the end of the list
		 */
#if NOSDP
		if (numldaux >= MYAXTBSZ + (xauxcnt * XAXTBSZ)) {
			if (xauxcnt >= MAXEXTRA)
				lderror(2,0,"internal error: ","aux table overflow");
			xauxptr[xauxcnt++] = (AUXTAB *) myalloc(XAXTBSZ * AUXSIZ);
			}
		acid = a->axchainid = ++numldsyms;
		a = getaux(acid);
#else
		numldaux++;
		a->axchainid = allocate(AUXSIZ, AUXSPACE, MISPARTITION);
		unlock(acid, WRTN);
		acid = a->axchainid;
		a = (AUXTAB *) lock(acid, MISPARTITION, WRTN);

		zero( a, AUXSIZ );
#endif
		a->axent = *aux;
		a->axord = ndx + 1;
		a->axmyacid = acid;
		a->axchainid = 0;

		sym->sment.n_numaux++;

		return( a );
		}
}

ITEMID
putsym(sym, changed)
SYMTAB *sym;
int changed;
{

/*
 * Return a ld symbol table entry to the SDP empire ("unlock")
 * Return the SDP access ID
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\n putsym %s ", SYMNAME( sym->sment ));
#endif

#if !NOSDP
	unlock(sym->smmyacid, (changed ? WRTN : RNLY));
#endif
	return( sym->smmyacid );
}


ITEMID
putaux(aux, changed)
AUXTAB *aux;
int changed;
{

/*
 * Return an auxiliary entry to the SDP empire ("unlock")
 *
 * Return the SDP access ID
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\n putaux %8lx ", aux->axmyacid );
#endif

#if !NOSDP
	unlock(aux->axmyacid, (changed ? WRTN : RNLY));
#endif
	return( aux->axmyacid );
}



SYMTAB *
getsym(acid)
register ITEMID acid;
{

/*
 * Return a pointer to an ld symbol table entry, given the
 * SDP access ID
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\n getsym %8lx ", acid );
#endif

#if NOSDP
	if (acid <= 0)
		lderror(2,0,"internal error: ","negative symbol table id");
	if (acid <= MYSMTBSZ)
		return(&mysymtab[acid]);
	acid -= (MYSMTBSZ + 1);
	if (acid < xsymcnt * XSMTBSZ)
		return( (SYMTAB *) ( (long) xsymptr[acid/XSMTBSZ] + ((acid % XSMTBSZ) * SYMSIZ)) );
	lderror(2,0,"internal error: ","invalid symbol table id");
#else
	return( (SYMTAB *) lock(acid, MISPARTITION, RNLY) );
#endif
}

AUXTAB *
getaux(acid)
ITEMID acid;
{

/*
 * Return a pointer to a ld aux entry, given the
 * SDP access ID
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\n getaux %8lx ", acid );
#endif

#if NOSDP
	if (acid <= 0)
		lderror(2,0,"internal error: ","negative aux table id");
	if (acid <= MYAXTBSZ)
		return(&myauxtab[acid]);
	acid -= (MYAXTBSZ + 1);
	if (acid < xauxcnt * XAXTBSZ)
		return( (AUXTAB *) ( (long) xauxptr[acid/XAXTBSZ] + ((acid % XAXTBSZ) * AUXSIZ)) );
	lderror(2,0,"internal error: ","invalid aux table id");
#else
	return( (AUXTAB *) lock(acid, MISPARTITION, RNLY) );
#endif
}
/*eject*/
long
#if FLEXNAMES
psymtab(fdes, numsyms, filp, symbuf,strtabptr)
char *strtabptr; /* pointer to string table with long symbol names, if
		     one exists */
#else
psymtab(fdes, numsyms, filp, symbuf, strtabptr)
#endif
FILE *fdes;	/* pointer to the file, positioned to the symbol table */
long numsyms;	/* total number of symbol table entries for the file   */
INFILE *filp;	/* pointer to the infilist entry for the file	       */
register SYMENT *symbuf;
{

/*
 * This routine is called during the scanning of the LDFILE list.
 *
 * Every *.o and archive library member which is to be link edited
 * is processed exactly once by this function:
 *
 *	1. Add all ld symbols from the file to ld's cumulative
 *		ld symbol table
 *	********** for FLEXNAMES ***********
 *	1a. When there is a long symbol name, change the
 *		offset of the name in the symbol table to a pointer
 *		to the name
 *	************************************
 *	2. Compute and return the number of local symbol table
 *		entries (locals, statics, functions, etc.) for this
 *		file
 */


	register SYMENT *sym;		/* input file symbol table entry     */
	register AUXENT *aux;		/* symbol aux entry		     */
	register SYMTAB *symp;		/* ld symbol table entry pointer     */
	register long n;
	long locsyms,		/* nbr local symbols from input file */
	     relsyms,		/* nbr relocatable symbols	     */
	     l;
	int  i;			/* for-loop index		     */
	char tmp_numaux,
	     tmp_sclass;
	SYMENT	lsymbuf;
	AUXENT	lauxbuf;

	sym = &lsymbuf;
	aux = &lauxbuf;

	locsyms = 0L;
	relsyms = 0L;

	for( n = 0L; n < numsyms; n++ ) {

#if !PORTAR && !PORT5AR
		if (symbuf != NULL) 
			sym = symbuf++;
		else 
#endif
			if (fread(sym,SYMESZ,1,fdes) != 1)
				lderror(2,0,NULL,"fail to read symbol table of file %s",
				filp->flname);

#if FLEXNAMES
			/* this symbol has a long name - change offset to ptr */
		if (sym->n_zeroes == 0L)
		{
			if (strtabptr == NULL)
				lderror( 2, 90, NULL, "no string table in file %s", filp->flname );
			sym->n_nptr = strtabptr + sym->n_offset;
		}
#endif

		switch( sym->n_sclass ) {

		/*
		 * Symbols of type C_EXT are global, and must be added
		 * to ld's cumulative symbol table
		 */
		case C_EXT:
			relsyms++;
			symp = makesym(sym, filp);

			if( sym->n_scnum > 0 )
				symp->smscnptr = sectnum(sym->n_scnum,filp);


			/*
			 * Functions, although added to ld's symbol
			 * table, must be put in the "local symbol"
			 * section of the final output file
			 */
			if( ISFCN(sym->n_type) ) {
				symp->smoutndx = locsyms;
				locsyms += (long) (sym->n_numaux + 1);
				symp->smlocflg = 1;
				}

			n += (long) sym->n_numaux;
			tmp_numaux = sym->n_numaux;
			for( i = 0; i < tmp_numaux; i++ ) {
#if !PORTAR && !PORT5AR
				if (symbuf != NULL) 
					aux = (AUXENT *) symbuf++;
				else 
#endif
					if (fread(aux,AUXESZ,1,fdes) != 1)
						lderror(2,0,NULL,"fail to read aux entries of file %s",
						filp->flname);

#if TRVEC
				if ( i == 0 && (ISFCN( sym->n_type ) || (sym->n_type == 0)))
				     if (aux->x_sym.x_tvndx == N_TV) {
					aux->x_sym.x_tvndx = P_TV;
					tvspec.tvosptr->oshdr.s_size += TVENTSZ;
					}
#endif
				putaux( makeaux(symp, aux, i), 1 );
				}

			PUTSYM(symp, 1);
			break;

		case C_FILE:
#if DMERT || XL
			if (!dmertplib)
#endif
				locsyms += 1 + (long) sym->n_numaux;
			if (sym->n_numaux) {
				n += sym->n_numaux;
#if !PORTAR && !PORT5AR
				if (symbuf != NULL)
					symbuf++;
				else
#endif
					if (fseek( fdes, (long) (AUXESZ) * sym->n_numaux, 1 ) != 0)
						lderror( 2, 0, NULL, "fail to skip aux entry of %s", filp->flname);
			}
			break;

		case C_STAT:
#if UNIX
			relsyms++;
			locsyms += 1 + sym->n_numaux;
			if (sym->n_numaux == 1) {
				n++;
#if !PORTAR && !PORT5AR
				if (symbuf != NULL)
					symbuf++;
				else
#endif
					if (fseek( fdes, (long) AUXESZ, 1 ) != 0)
						lderror( 2, 0, NULL, "fail to skip the aux entry of %s", filp->flname);
			};
			continue;
#endif

		case C_HIDDEN:
			relsyms++;

		default:
#if DMERT || XL
			if (!dmertplib)
#endif
#if UNIX || XL
			if (!xflag)
#endif
				locsyms++;

			if( sym->n_numaux > 0 ) {

#if DMERT || XL
				if (!dmertplib)
#endif
#if UNIX || XL
				if (!xflag)
#endif
					locsyms += (long) sym->n_numaux;
				n += (long) sym->n_numaux;
				tmp_sclass = sym->n_sclass;
				tmp_numaux = sym->n_numaux;
#if !PORTAR && !PORT5AR
				if (symbuf != NULL) 
					aux = (AUXENT *) symbuf++;
				else 
#endif
					if (fread(aux,AUXESZ,1,fdes) != 1)
						lderror(2,0,NULL,"fail to read aux entries of %s",
						filp->flname);

				/*
				 * Skip all aux entries after the first
				 */
				if( tmp_numaux > 1 ) 
#if !PORTAR && !PORT5AR
					if (symbuf != NULL) 
						symbuf++;
					else
#endif
						if (fseek(fdes, (long) (AUXESZ * (tmp_numaux-1)), 1) != 0)
							lderror(2,0,NULL,"fail to skip the aux entry of %s",
							filp->flname);

				/*
				 * Skip all members of structures and
			 	 * unions
				 */
				if( ISTAG(tmp_sclass) ) {
					l = aux->x_sym.x_fcnary.x_fcn.x_endndx - n - 1;
#if DMERT || XL
					if (!dmertplib)
#endif
#if UNIX || XL
					if (!xflag)
#endif
						locsyms += l;
					n = aux->x_sym.x_fcnary.x_fcn.x_endndx - 1;
#if !PORTAR && !PORT5AR
					if (symbuf != NULL) 
						symbuf += l;
					else 
#endif
						if (fseek(fdes, l * SYMESZ, 1) != 0)
							lderror(2,0,NULL,"fail to skip the mem of struct of %s",
							filp->flname);
					}
#if TRVEC

				/*
				 * Increment size of .tv if this
				 * symbol needs a slot in the tv.
				 */
				if( aflag && tvflag && (tmp_sclass == C_STAT) && (aux->x_sym.x_tvndx == N_TV) )
					tvspec.tvosptr->oshdr.s_size += TVENTSZ;
#endif
				}
			}
		}

	if( relsyms > maxrelocsms )
		maxrelocsms = relsyms;

	return( locsyms );
}
/*eject*/
SYMTAB *
loopsym(sym, changed)
SYMTAB *sym;
int changed;
{

/*
 * Loop through all symbol table entries 
 */

#if NOSDP
	static	long	ndx;
	if (sym == NULL) ndx = 0;
	if (ndx < numldsyms)
		return(getsym(++ndx));
	else
		return(NULL);
#else
	static long	offset,  /* offset of next symbol in page */
			page;	 /* SDP page number		  */
	register ITEMID acid;
/*
 * WARNING: this implementation of loopsym() is extremely dependent
 *	upon knowing exactly how SDP does things.  In particular, it
 *	is dependent upon symbol table entries being in one SDP space,
 *	separate from aux entries.  Anyone touching SDP 
 *	defines or code should check this function for accuracy.
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\nloopsym %8s ", sym->sment.n_name );
#endif

/*
 * This routine is used as follows:
 *
 *	For the first call to this routine, sym is set to NULL.
 *	For all subsequent calls, sym equals the value returned by
 *		the previous call.
 *	When sym again equals NULL, the entire table has been searched.
 */

	if( sym == NULL ) {
		/*
		 * Build the itemid for first entry in symbol table
		 */
		page = 1L;
		offset = 0L;
		acid = BUILDPN(page, SYMSPACE) + offset;
		if ( global_frames[SYMSPACE].maxpage == 0L )
			return( NULL );	/* no symbols */
		return( (SYMTAB *) lock(acid, MISPARTITION, RNLY) );
		}

/*
 * Find the next symbol table entry:
 *
 */

	unlock(sym->smmyacid, (changed ? WRTN : RNLY));

	offset += (long) SYMSIZ;
	if ( (offset + (long) SYMSIZ) > (long) PAGESIZE ) {
		offset = 0L;
		if ( ++page > global_frames[SYMSPACE].maxpage )
			return(NULL);
	} else {
		/*
		 * are we past the last entry on the last page?
		 */
		if ( (page == global_frames[SYMSPACE].curpage) &&
		    (offset == global_frames[SYMSPACE].curoffset) )
			return(NULL);
		}
	acid = BUILDPN(page, SYMSPACE) + offset;
	return( (SYMTAB *) lock(acid, MISPARTITION, RNLY) );
#endif
}
/*eject*/
AUXTAB *
loopaux(sym, aux, changed)
SYMTAB *sym;
AUXTAB *aux;
int changed;
{

/*
 * Loop through all the aux entries for a given ld symbol table entry
 *
 *
 * This routine is used as follows:
 *
 *	For the first call to this routine, aux is set to NULL.
 *	For all subsequent calls, aux equals the value returned by
 *		the previous call.
 *	When aux again equals NULL, all aux entries have been returned
 */

#if DEBUG
	if( dflag > 15 )
		fprintf( stderr, "\nloopaux %s ", SYMNAME( sym->sment ) );
#endif

	if( aux == NULL ) {
		/*
		 * Get the first aux entry, pointed to by the ld symbol
		 * table entry
		 */
		if( sym->smauxid != 0 )
#if NOSDP
			return(getaux(sym->smauxid));
#else
			return( (AUXTAB *) lock(sym->smauxid, MISPARTITION, WRTN) );
#endif

		return( NULL );
		}

/*
 * Find the next aux entry
 */

#if NOSDP
	if (aux->axchainid != 0)
		return(getaux(aux->axchainid));
#else
	unlock(aux->axmyacid, (changed ? WRTN : RNLY));

	if( aux->axchainid != 0 )
		return( (AUXTAB *) lock(aux->axchainid, MISPARTITION, WRTN) );
#endif

	return( NULL );
}
/*eject*/
INSECT *
sectnum(i, fp)
int i;
INFILE *fp;
{

/*
 * Called by psymtab to retrieve a pointer to the  i-th section header
 */

	register INSECT *sptr;

	if (i == 0)
		return(NULL);


	for ( sptr = fp->flishead; sptr != NULL; sptr = sptr->isnext )
		if ( sptr->isecnum == i)
			return(sptr);
	return(NULL);
}
/*eject*/
ITEMID
add_dot(dot_val, dot_sec)
long dot_val;
INSECT *dot_sec;
{
	register SYMTAB *sym;
	register ITEMID acid;
	static int count = 0;

/*
 * This is a special-purpose "makesym()" designed for exclusive use
 * in assignment expressions. It will create a symbol table entry
 * having the following characteristics:
 *
 *	n_name:		.dotnnn		001 <= nnn <= 999
 *	n_value:	dot_val
 *	n_scnum:	0
 *	n_type:		T_NULL
 *	n_sclass:	C_NULL
 *	n_numaux:	0
 *
 *	smscnptr:	dot_sec
 *	smlocflg:	1
 *
 * The symbol table entry will NOT appear in the hash table, and hence 
 * will not be accessible except thorugh the stored itemid returned
 * by this function
 */

#if NOSDP
	if (numldsyms >= MYSMTBSZ + (xsymcnt * XSMTBSZ)) {
		if (xsymcnt >= MAXEXTRA)
			lderror(2,0,"internal error: ","symbol table overflow");
		xsymptr[xsymcnt++] = (SYMTAB *) myalloc(XSMTBSZ * SYMSIZ);
		}
	acid = ++numldsyms;
	sym = getsym(acid);
#else
	acid = allocate(SYMSIZ, SYMSPACE, MISPARTITION);
	sym = (SYMTAB *) lock(acid, MISPARTITION, WRTN);

	zero(sym, SYMSIZ);
#endif
	sprintf(sym->sment.n_name, ".dot%03d", ++count);
	sym->sment.n_value = dot_val;
	sym->smscnptr = dot_sec;
	sym->smmyacid = acid;
	sym->smchainid = acid;
	sym->smlocflg = 1;

#if !NOSDP
	unlock(acid, WRTN);
#endif

	return( acid );

}

#if !NOSDP
auxinit()
{
	/* initialize SDP */

	if ( aux_called )
		lderror(2,0,NULL,"attempt to re-initialize SDP aux space");

	sprintf( auxname, "%s/%s", TMPDIR, "ldXXXXXX");
	mktemp(auxname);
	aux_called++;
	if ( sdpinit(auxname, CREATE, AUXSPACE) != AUXSPACE )
		lderror(2,0,NULL,"failure to initialize SDP aux space");
	else
		aux_called++;
}

auxfini()
{

	char buf[sizeof(auxname)*2+20];

	if ( aux_called == 2 ) {
		aux_called--;
		if ( sdpterm(AUXSPACE) < 0 )
			lderror(2,0,NULL,"failure in closing SDP aux space");
		}

	if ( aux_called != 1)
		return;
	aux_called--;

#if TS || RT
	sprintf(buf, "rm -r %s", auxname);
#else
	sprintf(buf, "rm -r %s; rmdir %s", auxname, auxname);
#endif

	if ( fork() == 0 ) {
		execl("/bin/sh", "sh", "-c", buf, 0);
		lderror(0,0,NULL, "failure in the execl of %s",buf);
		_exit(127);
		}
}
#endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.