#pragma ident "@(#)end.c 1.12 08/05/31 SMI"
#include <ar.h>
#include <stdlib.h>
#include "libelf.h"
#include "decl.h"
#include "member.h"
int
elf_end(Elf * elf)
{
Elf_Scn * s;
Dnode * d;
Elf_Void * trail = 0;
int rc;
if (elf == 0)
return (0);
ELFWLOCK(elf)
if (--elf->ed_activ != 0) {
rc = elf->ed_activ;
ELFUNLOCK(elf)
return (rc);
}
#ifndef __lock_lint
while (elf->ed_activ == 0) {
for (s = elf->ed_hdscn; s != 0; s = s->s_next) {
if (s->s_myflags & SF_ALLOC) {
if (trail != 0)
free(trail);
trail = (Elf_Void *)s;
}
if ((s->s_myflags & SF_READY) == 0)
continue;
for (d = s->s_hdnode; d != 0; ) {
register Dnode *t;
if (d->db_buf != 0)
free(d->db_buf);
if ((t = d->db_raw) != 0) {
if (t->db_buf != 0)
free(t->db_buf);
if (t->db_myflags & DBF_ALLOC)
free(t);
}
t = d->db_next;
if (d->db_myflags & DBF_ALLOC)
free(d);
d = t;
}
}
if (trail != 0) {
free(trail);
trail = 0;
}
{
register Memlist *l;
register Memident *i;
for (l = elf->ed_memlist; l; l = (Memlist *)trail) {
trail = (Elf_Void *)l->m_next;
for (i = (Memident *)(l + 1); i < l->m_free;
i++)
free(i->m_member);
free(l);
}
}
#if defined(__APPLE__)
if (elf->ed_kind == ELF_K_MACHO) {
free(elf->ed_ident);
}
#endif
if (elf->ed_myflags & EDF_EHALLOC)
free(elf->ed_ehdr);
if (elf->ed_myflags & EDF_PHALLOC)
free(elf->ed_phdr);
if (elf->ed_myflags & EDF_SHALLOC)
free(elf->ed_shdr);
if (elf->ed_myflags & EDF_RAWALLOC)
free(elf->ed_raw);
if (elf->ed_myflags & EDF_ASALLOC)
free(elf->ed_arsym);
if (elf->ed_myflags & EDF_ASTRALLOC)
free(elf->ed_arstr);
if (elf->ed_parent == 0) {
if (elf->ed_vm != 0)
free(elf->ed_vm);
else if ((elf->ed_myflags & EDF_MEMORY) == 0)
_elf_unmap(elf->ed_image, elf->ed_imagesz);
}
trail = (Elf_Void *)elf;
elf = elf->ed_parent;
ELFUNLOCK(trail)
free(trail);
if (elf == 0)
break;
ELFWLOCK(elf)
--elf->ed_activ;
}
if (elf) {
ELFUNLOCK(elf)
}
#else
_elf_unmap(elf->ed_image, elf->ed_imagesz);
ELFUNLOCK(elf)
#endif
return (0);
}