xref: /titanic_41/usr/src/cmd/sgs/libelf/common/end.c (revision e4d060fb4c00d44cd578713eb9a921f594b733b8)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*	Copyright (c) 1988 AT&T	*/
28 /*	  All Rights Reserved  	*/
29 
30 #pragma ident	"%Z%%M%	%I%	%E% SMI"
31 
32 #include <ar.h>
33 #include <stdlib.h>
34 #include "libelf.h"
35 #include "decl.h"
36 #include "member.h"
37 
38 int
39 elf_end(Elf * elf)
40 {
41 	Elf_Scn *	s;
42 	Dnode *	d;
43 	Elf_Void *		trail = 0;
44 	int			rc;
45 
46 	if (elf == 0)
47 		return (0);
48 
49 	ELFWLOCK(elf)
50 	if (--elf->ed_activ != 0) {
51 		rc = elf->ed_activ;
52 		ELFUNLOCK(elf)
53 		return (rc);
54 	}
55 
56 #ifndef __lock_lint
57 	while (elf->ed_activ == 0) {
58 		for (s = elf->ed_hdscn; s != 0; s = s->s_next) {
59 			if (s->s_myflags & SF_ALLOC) {
60 				if (trail != 0)
61 					free(trail);
62 				trail = (Elf_Void *)s;
63 			}
64 
65 			if ((s->s_myflags & SF_READY) == 0)
66 				continue;
67 			for (d = s->s_hdnode; d != 0; ) {
68 				register Dnode	*t;
69 
70 				if (d->db_buf != 0)
71 					free(d->db_buf);
72 				if ((t = d->db_raw) != 0) {
73 					if (t->db_buf != 0)
74 						free(t->db_buf);
75 					if (t->db_myflags & DBF_ALLOC)
76 						free(t);
77 				}
78 				t = d->db_next;
79 				if (d->db_myflags & DBF_ALLOC)
80 					free(d);
81 				d = t;
82 			}
83 		}
84 		if (trail != 0) {
85 			free(trail);
86 			trail = 0;
87 		}
88 
89 		{
90 			register Memlist	*l;
91 			register Memident	*i;
92 
93 			for (l = elf->ed_memlist; l; l = (Memlist *)trail) {
94 				trail = (Elf_Void *)l->m_next;
95 				for (i = (Memident *)(l + 1); i < l->m_free;
96 				    i++)
97 					free(i->m_member);
98 				free(l);
99 			}
100 		}
101 		if (elf->ed_myflags & EDF_EHALLOC)
102 			free(elf->ed_ehdr);
103 		if (elf->ed_myflags & EDF_PHALLOC)
104 			free(elf->ed_phdr);
105 		if (elf->ed_myflags & EDF_SHALLOC)
106 			free(elf->ed_shdr);
107 		if (elf->ed_myflags & EDF_RAWALLOC)
108 			free(elf->ed_raw);
109 		if (elf->ed_myflags & EDF_ASALLOC)
110 			free(elf->ed_arsym);
111 		if (elf->ed_myflags & EDF_ASTRALLOC)
112 			free(elf->ed_arstr);
113 
114 		/*
115 		 * Don't release the image until the last reference dies.
116 		 * If the image was introduced via elf_memory() then
117 		 * we don't release it at all, it's not ours to release.
118 		 */
119 
120 		if (elf->ed_parent == 0) {
121 			if (elf->ed_vm != 0)
122 				free(elf->ed_vm);
123 			else if ((elf->ed_myflags & EDF_MEMORY) == 0)
124 				_elf_unmap(elf->ed_image, elf->ed_imagesz);
125 		}
126 		trail = (Elf_Void *)elf;
127 		elf = elf->ed_parent;
128 		ELFUNLOCK(trail)
129 		free(trail);
130 		if (elf == 0)
131 			break;
132 		/*
133 		 * If parent is inactive we close
134 		 * it too, so we need to lock it too.
135 		 */
136 		ELFWLOCK(elf)
137 		--elf->ed_activ;
138 	}
139 
140 	if (elf) {
141 		ELFUNLOCK(elf)
142 	}
143 #else
144 	/*
145 	 * This sill stuff is here to make warlock happy
146 	 * durring it's lock checking.  The problem is that it
147 	 * just can't track the multiple dynamic paths through
148 	 * the above loop so we just give it a simple one it can
149 	 * look at.
150 	 */
151 	_elf_unmap(elf->ed_image, elf->ed_imagesz);
152 	ELFUNLOCK(elf)
153 #endif
154 
155 	return (0);
156 }
157