shithub: scc

ref: fe6c85f724bdef3c203b6ebc83c4fe0edfb3094a
dir: /src/libmach/coff32/coff32strip.c/

#include <stdio.h>
#include <stdlib.h>

#include <scc/mach.h>

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

int
coff32strip(Obj *obj)
{
	int i;
	FILHDR *hdr;
	SCNHDR *scn;
	struct coff32 *coff = obj->data;

	hdr = &coff->hdr;
	for (i = 0; i < hdr->f_nscns; i++) {
		scn = &coff->scns[i];
		scn->s_nrelloc = 0;
		scn->s_relptr = 0;
		scn->s_nlnno = 0;
		scn->s_lnnoptr = 0;
	}

	hdr->f_nsyms = 0;
	hdr->f_symptr = 0;
	hdr->f_flags |= F_RELFLG | F_LMNO | F_SYMS;

	free(coff->ents);
	free(coff->rels);
	free(coff->lines);

	coff->ents = NULL;
	coff->rels = NULL;
	coff->lines = NULL;
	objdel(obj);

	return 0;
}