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, Version 1.0 only
6 * (the "License").  You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22/*
23 * Copyright 2003 Sun Microsystems, Inc.  All rights reserved.
24 * Use is subject to license terms.
25 */
26
27#pragma ident	"%Z%%M%	%I%	%E% SMI"
28
29#include <sys/sysmacros.h>
30#include <sys/modctl.h>
31#include <sys/debug.h>
32#include <sys/mman.h>
33#include <sys/modctl.h>
34#include <sys/kobj.h>
35#include <ctf_impl.h>
36
37int ctf_leave_compressed = 0;
38
39static struct modlmisc modlmisc = {
40	&mod_miscops, "Compact C Type Format routines"
41};
42
43static struct modlinkage modlinkage = {
44	MODREV_1, &modlmisc, NULL
45};
46
47int
48_init(void)
49{
50	return (mod_install(&modlinkage));
51}
52
53int
54_info(struct modinfo *mip)
55{
56	return (mod_info(&modlinkage, mip));
57}
58
59int
60_fini(void)
61{
62	return (mod_remove(&modlinkage));
63}
64
65/*ARGSUSED*/
66void *
67ctf_zopen(int *errp)
68{
69	return ((void *)1); /* zmod is always loaded because we depend on it */
70}
71
72/*ARGSUSED*/
73const void *
74ctf_sect_mmap(ctf_sect_t *sp, int fd)
75{
76	return (MAP_FAILED); /* we don't support this in the kernel */
77}
78
79/*ARGSUSED*/
80void
81ctf_sect_munmap(const ctf_sect_t *sp)
82{
83	/* we don't support this in the kernel */
84}
85
86/*ARGSUSED*/
87ctf_file_t *
88ctf_fdopen(int fd, int *errp)
89{
90	return (ctf_set_open_errno(errp, ENOTSUP));
91}
92
93/*ARGSUSED*/
94ctf_file_t *
95ctf_open(const char *filename, int *errp)
96{
97	return (ctf_set_open_errno(errp, ENOTSUP));
98}
99
100/*ARGSUSED*/
101int
102ctf_write(ctf_file_t *fp, int fd)
103{
104	return (ctf_set_errno(fp, ENOTSUP));
105}
106
107int
108ctf_version(int version)
109{
110	ASSERT(version > 0 && version <= CTF_VERSION);
111
112	if (version > 0)
113		_libctf_version = MIN(CTF_VERSION, version);
114
115	return (_libctf_version);
116}
117
118/*ARGSUSED*/
119ctf_file_t *
120ctf_modopen(struct module *mp, int *error)
121{
122	ctf_sect_t ctfsect, symsect, strsect;
123	ctf_file_t *fp = NULL;
124	int err;
125
126	if (error == NULL)
127		error = &err;
128
129	ctfsect.cts_name = ".SUNW_ctf";
130	ctfsect.cts_type = SHT_PROGBITS;
131	ctfsect.cts_flags = SHF_ALLOC;
132	ctfsect.cts_data = mp->ctfdata;
133	ctfsect.cts_size = mp->ctfsize;
134	ctfsect.cts_entsize = 1;
135	ctfsect.cts_offset = 0;
136
137	symsect.cts_name = ".symtab";
138	symsect.cts_type = SHT_SYMTAB;
139	symsect.cts_flags = 0;
140	symsect.cts_data = mp->symtbl;
141	symsect.cts_size = mp->symhdr->sh_size;
142#ifdef _LP64
143	symsect.cts_entsize = sizeof (Elf64_Sym);
144#else
145	symsect.cts_entsize = sizeof (Elf32_Sym);
146#endif
147	symsect.cts_offset = 0;
148
149	strsect.cts_name = ".strtab";
150	strsect.cts_type = SHT_STRTAB;
151	strsect.cts_flags = 0;
152	strsect.cts_data = mp->strings;
153	strsect.cts_size = mp->strhdr->sh_size;
154	strsect.cts_entsize = 1;
155	strsect.cts_offset = 0;
156
157	ASSERT(MUTEX_HELD(&mod_lock));
158
159	if ((fp = ctf_bufopen(&ctfsect, &symsect, &strsect, error)) == NULL)
160		return (NULL);
161
162	if (!ctf_leave_compressed && (caddr_t)fp->ctf_base != mp->ctfdata) {
163		/*
164		 * We must have just uncompressed the CTF data.  To avoid
165		 * others having to pay the (substantial) cost of decompressing
166		 * the data, we're going to substitute the uncompressed version
167		 * for the compressed version.  Note that this implies that the
168		 * first CTF consumer will induce memory impact on the system
169		 * (but in the name of performance of future CTF consumers).
170		 */
171		kobj_set_ctf(mp, (caddr_t)fp->ctf_base, fp->ctf_size);
172		fp->ctf_data.cts_data = fp->ctf_base;
173		fp->ctf_data.cts_size = fp->ctf_size;
174	}
175
176	return (fp);
177}
178