shithub: scc

ref: e661871dd3e996607e7444be1e0ca86be0a8565f
dir: /src/libmach/coff32/coff32getsym.c/

#include <ctype.h>
#include <stdio.h>
#include <string.h>

#include <scc/mach.h>

#include "../libmach.h"
#include "coff32.h"

static int
typeof(Coff32 *coff, SYMENT *ent, char *name)
{
	int c;
	SCNHDR *scn;

	switch (ent->n_scnum) {
	case N_DEBUG:
		c = 'N';
		break;
	case N_ABS:
		c = 'a';
		break;
	case N_UNDEF:
		c = (ent->n_value != 0) ? 'C' : 'U';
		break;
	default:
		scn = &coff->scns[ent->n_scnum-1];

		switch (scn->s_flags) {
		case STYP_TEXT:
			c = 't';
			break;
		case STYP_DATA:
			c = 'd';
			break;
		case STYP_BSS:
			c = 'b';
			break;
		case STYP_INFO:
			c = 'N';
			break;
		case STYP_LIT:
			c = 'r';
			break;
		default:
			c = '?';
			break;
		}
	}

	if (ent->n_sclass == C_EXT)
		c = toupper(c);

	return c;
}

static char *
symname(Coff32 *coff, SYMENT *ent)
{
	if (ent->n_zeroes != 0)
		return ent->n_name;

	return &coff->strtbl[ent->n_offset];
}

Symbol *
coff32getsym(Obj *obj, int *idx, Symbol *sym)
{
	int n = *idx;
	SYMENT *ent;
	Coff32 *coff = obj->data;
	FILHDR *hdr = &coff->hdr;

	if ((hdr->f_flags & F_SYMS) != 0 || n >= coff->hdr.f_nsyms)
		return NULL;

	ent = &coff->ents[n];
	sym->name = symname(coff, ent);
	sym->type = typeof(coff, ent, sym->name);
	sym->stype = SYMOBJECT;
	sym->value = ent->n_value;
	sym->size = (sym->type == 'C') ? ent->n_value : 0;
	sym->index = n;
	*idx += ent->n_numaux;

	return sym;
}