shithub: scc

ref: 51f244d2ec7cce0cd116df73b29e3c9ff5cc3425
dir: /src/libmach/objstrip.c/

View raw version 
#include <stdio.h>

#include <scc/mach.h>

#include "libmach.h"

extern stripfun_t stripv[];

int
objstrip(Obj *obj)
{
	int fmt;
	stripfun_t fn;

	fmt = FORMAT(obj->type);
	if (fmt >= NFORMATS)
		return -1;
	fn = stripv[fmt];
	(*fn)(obj);

	objfree(obj, GENERICDEL);

	return 0;
}