cddl/contrib/opensolaris/lib/libdtrace/common/dt_error.c

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