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 2009 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*
28  * Copyright (c) 2012 by Delphix. All rights reserved.
29  * Copyright (c) 2013, Joyent, Inc. All rights reserved.
30  */
31 
32 #include <strings.h>
33 #include <dt_impl.h>
34 
35 static const struct {
36 	int err;
37 	const char *msg;
38 } _dt_errlist[] = {
39 	{ EDT_VERSION,	"Client requested version newer than library" },
40 	{ EDT_VERSINVAL, "Version is not properly formatted or is too large" },
41 	{ EDT_VERSUNDEF, "Requested version is not supported by compiler" },
42 	{ EDT_VERSREDUCED, "Requested version conflicts with earlier setting" },
43 	{ EDT_CTF,	"Unexpected libctf error" },
44 	{ EDT_COMPILER, "Error in D program compilation" },
45 	{ EDT_NOTUPREG,	"Insufficient tuple registers to generate code" },
46 	{ EDT_NOMEM,	"Memory allocation failure" },
47 	{ EDT_INT2BIG,	"Integer constant table limit exceeded" },
48 	{ EDT_STR2BIG,	"String constant table limit exceeded" },
49 	{ EDT_NOMOD,	"Unknown module name" },
50 	{ EDT_NOPROV,	"Unknown provider name" },
51 	{ EDT_NOPROBE,	"No probe matches description" },
52 	{ EDT_NOSYM,	"Unknown symbol name" },
53 	{ EDT_NOSYMADDR, "No symbol corresponds to address" },
54 	{ EDT_NOTYPE,	"Unknown type name" },
55 	{ EDT_NOVAR,	"Unknown variable name" },
56 	{ EDT_NOAGG,	"Unknown aggregation name" },
57 	{ EDT_BADSCOPE,	"Improper use of scoping operator in type name" },
58 	{ EDT_BADSPEC,	"Overspecified probe description" },
59 	{ EDT_BADSPCV,	"Undefined macro variable in probe description" },
60 	{ EDT_BADID,	"Unknown probe identifier" },
61 	{ EDT_NOTLOADED, "Module is no longer loaded" },
62 	{ EDT_NOCTF,	"Module does not contain any CTF data" },
63 	{ EDT_DATAMODEL, "Module and program data models do not match" },
64 	{ EDT_DIFVERS,	"Library uses newer DIF version than kernel" },
65 	{ EDT_BADAGG,	"Unknown aggregating action" },
66 	{ EDT_FIO,	"Error occurred while reading from input stream" },
67 	{ EDT_DIFINVAL,	"DIF program content is invalid" },
68 	{ EDT_DIFSIZE,	"DIF program exceeds maximum program size" },
69 	{ EDT_DIFFAULT,	"DIF program contains invalid pointer" },
70 	{ EDT_BADPROBE,	"Invalid probe specification" },
71 	{ EDT_BADPGLOB, "Probe description has too many globbing characters" },
72 	{ EDT_NOSCOPE,	"Declaration scope stack underflow" },
73 	{ EDT_NODECL,	"Declaration stack underflow" },
74 	{ EDT_DMISMATCH, "Data record list does not match statement" },
75 	{ EDT_DOFFSET,	"Data record offset exceeds buffer boundary" },
76 	{ EDT_DALIGN,	"Data record has inappropriate alignment" },
77 	{ EDT_BADOPTNAME, "Invalid option name" },
78 	{ EDT_BADOPTVAL, "Invalid value for specified option" },
79 	{ EDT_BADOPTCTX, "Option cannot be used from within a D program" },
80 	{ EDT_CPPFORK,	"Failed to fork preprocessor" },
81 	{ EDT_CPPEXEC,	"Failed to exec preprocessor" },
82 	{ EDT_CPPENT,	"Preprocessor not found" },
83 	{ EDT_CPPERR,	"Preprocessor failed to process input program" },
84 	{ EDT_SYMOFLOW,	"Symbol table identifier space exhausted" },
85 	{ EDT_ACTIVE,	"Operation illegal when tracing is active" },
86 	{ EDT_DESTRUCTIVE, "Destructive actions not allowed" },
87 	{ EDT_NOANON,	"No anonymous tracing state" },
88 	{ EDT_ISANON,	"Can't claim anonymous state and enable probes" },
89 	{ EDT_ENDTOOBIG, "END enablings exceed size of principal buffer" },
90 	{ EDT_NOCONV,	"Failed to load type for printf conversion" },
91 	{ EDT_BADCONV,	"Incomplete printf conversion" },
92 	{ EDT_BADERROR,	"Invalid library ERROR action" },
93 	{ EDT_ERRABORT,	"Abort due to error" },
94 	{ EDT_DROPABORT, "Abort due to drop" },
95 	{ EDT_DIRABORT,	"Abort explicitly directed" },
96 	{ EDT_BADRVAL,	"Invalid return value from callback" },
97 	{ EDT_BADNORMAL, "Invalid normalization" },
98 	{ EDT_BUFTOOSMALL, "Enabling exceeds size of buffer" },
99 	{ EDT_BADTRUNC, "Invalid truncation" },
100 	{ EDT_BUSY, "DTrace cannot be used when kernel debugger is active" },
101 	{ EDT_ACCESS, "DTrace requires additional privileges" },
102 	{ EDT_NOENT, "DTrace device not available on system" },
103 	{ EDT_BRICKED, "Abort due to systemic unresponsiveness" },
104 	{ EDT_HARDWIRE, "Failed to load language definitions" },
105 	{ EDT_ELFVERSION, "libelf is out-of-date with respect to libdtrace" },
106 	{ EDT_NOBUFFERED, "Attempt to buffer output without handler" },
107 	{ EDT_UNSTABLE, "Description matched an unstable set of probes" },
108 	{ EDT_BADSETOPT, "Invalid setopt() library action" },
109 	{ EDT_BADSTACKPC, "Invalid stack program counter size" },
110 	{ EDT_BADAGGVAR, "Invalid aggregation variable identifier" },
111 	{ EDT_OVERSION,	"Client requested deprecated version of library" },
112 	{ EDT_ENABLING_ERR, "Failed to enable probe" },
113 	{ EDT_NOPROBES, "No probe sites found for declared provider" },
114 	{ EDT_CANTLOAD, "Failed to load module" },
115 };
116 
117 static const int _dt_nerr = sizeof (_dt_errlist) / sizeof (_dt_errlist[0]);
118 
119 const char *
dtrace_errmsg(dtrace_hdl_t * dtp,int error)120 dtrace_errmsg(dtrace_hdl_t *dtp, int error)
121 {
122 	const char *str;
123 	int i;
124 
125 	if (error == EDT_COMPILER && dtp != NULL && dtp->dt_errmsg[0] != '\0')
126 		str = dtp->dt_errmsg;
127 	else if (error == EDT_CTF && dtp != NULL && dtp->dt_ctferr != 0)
128 		str = ctf_errmsg(dtp->dt_ctferr);
129 	else if (error >= EDT_BASE && (error - EDT_BASE) < _dt_nerr) {
130 		for (i = 0; i < _dt_nerr; i++) {
131 			if (_dt_errlist[i].err == error)
132 				return (_dt_errlist[i].msg);
133 		}
134 		str = NULL;
135 	} else
136 		str = strerror(error);
137 
138 	return (str ? str : "Unknown error");
139 }
140 
141 int
dtrace_errno(dtrace_hdl_t * dtp)142 dtrace_errno(dtrace_hdl_t *dtp)
143 {
144 	return (dtp->dt_errno);
145 }
146 
147 int
dt_set_errno(dtrace_hdl_t * dtp,int err)148 dt_set_errno(dtrace_hdl_t *dtp, int err)
149 {
150 	dtp->dt_errno = err;
151 	return (-1);
152 }
153 
154 void
dt_set_errmsg(dtrace_hdl_t * dtp,const char * errtag,const char * region,const char * filename,int lineno,const char * format,va_list ap)155 dt_set_errmsg(dtrace_hdl_t *dtp, const char *errtag, const char *region,
156     const char *filename, int lineno, const char *format, va_list ap)
157 {
158 	size_t len, n;
159 	char *p, *s;
160 
161 	s = dtp->dt_errmsg;
162 	n = sizeof (dtp->dt_errmsg);
163 
164 	if (errtag != NULL && (yypcb->pcb_cflags & DTRACE_C_ETAGS))
165 		(void) snprintf(s, n, "[%s] ", errtag);
166 	else
167 		s[0] = '\0';
168 
169 	len = strlen(dtp->dt_errmsg);
170 	s = dtp->dt_errmsg + len;
171 	n = sizeof (dtp->dt_errmsg) - len;
172 
173 	if (filename == NULL)
174 		filename = dtp->dt_filetag;
175 
176 	if (filename != NULL)
177 		(void) snprintf(s, n, "\"%s\", line %d: ", filename, lineno);
178 	else if (lineno != 0)
179 		(void) snprintf(s, n, "line %d: ", lineno);
180 	else if (region != NULL)
181 		(void) snprintf(s, n, "in %s: ", region);
182 
183 	len = strlen(dtp->dt_errmsg);
184 	s = dtp->dt_errmsg + len;
185 	n = sizeof (dtp->dt_errmsg) - len;
186 	(void) vsnprintf(s, n, format, ap);
187 
188 	if ((p = strrchr(dtp->dt_errmsg, '\n')) != NULL)
189 		*p = '\0'; /* remove trailing \n from message buffer */
190 
191 	dtp->dt_errtag = errtag;
192 }
193 
194 /*ARGSUSED*/
195 const char *
dtrace_faultstr(dtrace_hdl_t * dtp,int fault)196 dtrace_faultstr(dtrace_hdl_t *dtp, int fault)
197 {
198 	int i;
199 
200 	static const struct {
201 		int code;
202 		const char *str;
203 	} faults[] = {
204 		{ DTRACEFLT_BADADDR,	"invalid address" },
205 		{ DTRACEFLT_BADALIGN,	"invalid alignment" },
206 		{ DTRACEFLT_ILLOP,	"illegal operation" },
207 		{ DTRACEFLT_DIVZERO,	"divide-by-zero" },
208 		{ DTRACEFLT_NOSCRATCH,	"out of scratch space" },
209 		{ DTRACEFLT_KPRIV,	"invalid kernel access" },
210 		{ DTRACEFLT_UPRIV,	"invalid user access" },
211 		{ DTRACEFLT_TUPOFLOW,	"tuple stack overflow" },
212 		{ DTRACEFLT_BADSTACK,	"bad stack" },
213 		{ DTRACEFLT_LIBRARY,	"library-level fault" },
214 		{ 0,			NULL }
215 	};
216 
217 	for (i = 0; faults[i].str != NULL; i++) {
218 		if (faults[i].code == fault)
219 			return (faults[i].str);
220 	}
221 
222 	return ("unknown fault");
223 }
224