17c478bd9Sstevel@tonic-gate /* 27c478bd9Sstevel@tonic-gate * CDDL HEADER START 37c478bd9Sstevel@tonic-gate * 47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the 57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 77c478bd9Sstevel@tonic-gate * with the License. 87c478bd9Sstevel@tonic-gate * 97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions 127c478bd9Sstevel@tonic-gate * and limitations under the License. 137c478bd9Sstevel@tonic-gate * 147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 197c478bd9Sstevel@tonic-gate * 207c478bd9Sstevel@tonic-gate * CDDL HEADER END 217c478bd9Sstevel@tonic-gate */ 227c478bd9Sstevel@tonic-gate /* 237c478bd9Sstevel@tonic-gate * Copyright 2005 Sun Microsystems, Inc. All rights reserved. 247c478bd9Sstevel@tonic-gate * Use is subject to license terms. 257c478bd9Sstevel@tonic-gate */ 267c478bd9Sstevel@tonic-gate 277c478bd9Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI" 287c478bd9Sstevel@tonic-gate 297c478bd9Sstevel@tonic-gate #include <strings.h> 307c478bd9Sstevel@tonic-gate #include <dt_impl.h> 317c478bd9Sstevel@tonic-gate 327c478bd9Sstevel@tonic-gate static const struct { 337c478bd9Sstevel@tonic-gate int err; 347c478bd9Sstevel@tonic-gate const char *msg; 357c478bd9Sstevel@tonic-gate } _dt_errlist[] = { 367c478bd9Sstevel@tonic-gate { EDT_VERSION, "Client requested version newer than library" }, 377c478bd9Sstevel@tonic-gate { EDT_VERSINVAL, "Version is not properly formatted or is too large" }, 387c478bd9Sstevel@tonic-gate { EDT_VERSUNDEF, "Requested version is not supported by compiler" }, 397c478bd9Sstevel@tonic-gate { EDT_VERSREDUCED, "Requested version conflicts with earlier setting" }, 407c478bd9Sstevel@tonic-gate { EDT_CTF, "Unexpected libctf error" }, 417c478bd9Sstevel@tonic-gate { EDT_COMPILER, "Error in D program compilation" }, 427c478bd9Sstevel@tonic-gate { EDT_NOREG, "Insufficient registers to generate code" }, 437c478bd9Sstevel@tonic-gate { EDT_NOTUPREG, "Insufficient tuple registers to generate code" }, 447c478bd9Sstevel@tonic-gate { EDT_NOMEM, "Memory allocation failure" }, 457c478bd9Sstevel@tonic-gate { EDT_INT2BIG, "Integer constant table limit exceeded" }, 467c478bd9Sstevel@tonic-gate { EDT_STR2BIG, "String constant table limit exceeded" }, 477c478bd9Sstevel@tonic-gate { EDT_NOMOD, "Unknown module name" }, 487c478bd9Sstevel@tonic-gate { EDT_NOPROV, "Unknown provider name" }, 497c478bd9Sstevel@tonic-gate { EDT_NOPROBE, "No probe matches description" }, 507c478bd9Sstevel@tonic-gate { EDT_NOSYM, "Unknown symbol name" }, 517c478bd9Sstevel@tonic-gate { EDT_NOSYMADDR, "No symbol corresponds to address" }, 527c478bd9Sstevel@tonic-gate { EDT_NOTYPE, "Unknown type name" }, 537c478bd9Sstevel@tonic-gate { EDT_NOVAR, "Unknown variable name" }, 547c478bd9Sstevel@tonic-gate { EDT_NOAGG, "Unknown aggregation name" }, 557c478bd9Sstevel@tonic-gate { EDT_BADSCOPE, "Improper use of scoping operator in type name" }, 567c478bd9Sstevel@tonic-gate { EDT_BADSPEC, "Overspecified probe description" }, 577c478bd9Sstevel@tonic-gate { EDT_BADSPCV, "Undefined macro variable in probe description" }, 587c478bd9Sstevel@tonic-gate { EDT_BADID, "Unknown probe identifier" }, 597c478bd9Sstevel@tonic-gate { EDT_NOTLOADED, "Module is no longer loaded" }, 607c478bd9Sstevel@tonic-gate { EDT_NOCTF, "Module does not contain any CTF data" }, 617c478bd9Sstevel@tonic-gate { EDT_DATAMODEL, "Module and program data models do not match" }, 627c478bd9Sstevel@tonic-gate { EDT_DIFVERS, "Library uses newer DIF version than kernel" }, 637c478bd9Sstevel@tonic-gate { EDT_BADAGG, "Unknown aggregating action" }, 647c478bd9Sstevel@tonic-gate { EDT_FIO, "Error occurred while reading from input stream" }, 657c478bd9Sstevel@tonic-gate { EDT_DIFINVAL, "DIF program content is invalid" }, 667c478bd9Sstevel@tonic-gate { EDT_DIFSIZE, "DIF program exceeds maximum program size" }, 677c478bd9Sstevel@tonic-gate { EDT_DIFFAULT, "DIF program contains invalid pointer" }, 687c478bd9Sstevel@tonic-gate { EDT_BADPROBE, "Invalid probe specification" }, 697c478bd9Sstevel@tonic-gate { EDT_BADPGLOB, "Probe description has too many globbing characters" }, 707c478bd9Sstevel@tonic-gate { EDT_NOSCOPE, "Declaration scope stack underflow" }, 717c478bd9Sstevel@tonic-gate { EDT_NODECL, "Declaration stack underflow" }, 727c478bd9Sstevel@tonic-gate { EDT_DMISMATCH, "Data record list does not match statement" }, 737c478bd9Sstevel@tonic-gate { EDT_DOFFSET, "Data record offset exceeds buffer boundary" }, 747c478bd9Sstevel@tonic-gate { EDT_DALIGN, "Data record has inappropriate alignment" }, 757c478bd9Sstevel@tonic-gate { EDT_BADOPTNAME, "Invalid option name" }, 767c478bd9Sstevel@tonic-gate { EDT_BADOPTVAL, "Invalid value for specified option" }, 777c478bd9Sstevel@tonic-gate { EDT_BADOPTCTX, "Option cannot be used from within a D program" }, 787c478bd9Sstevel@tonic-gate { EDT_CPPFORK, "Failed to fork preprocessor" }, 797c478bd9Sstevel@tonic-gate { EDT_CPPEXEC, "Failed to exec preprocessor" }, 807c478bd9Sstevel@tonic-gate { EDT_CPPENT, "Preprocessor not found" }, 817c478bd9Sstevel@tonic-gate { EDT_CPPERR, "Preprocessor failed to process input program" }, 827c478bd9Sstevel@tonic-gate { EDT_SYMOFLOW, "Symbol table identifier space exhausted" }, 837c478bd9Sstevel@tonic-gate { EDT_ACTIVE, "Operation illegal when tracing is active" }, 847c478bd9Sstevel@tonic-gate { EDT_DESTRUCTIVE, "Destructive actions not allowed" }, 857c478bd9Sstevel@tonic-gate { EDT_NOANON, "No anonymous tracing state" }, 867c478bd9Sstevel@tonic-gate { EDT_ISANON, "Can't claim anonymous state and enable probes" }, 877c478bd9Sstevel@tonic-gate { EDT_ENDTOOBIG, "END enablings exceed size of principal buffer" }, 887c478bd9Sstevel@tonic-gate { EDT_NOCONV, "Failed to load type for printf conversion" }, 897c478bd9Sstevel@tonic-gate { EDT_BADCONV, "Incomplete printf conversion" }, 907c478bd9Sstevel@tonic-gate { EDT_BADERROR, "Invalid library ERROR action" }, 917c478bd9Sstevel@tonic-gate { EDT_ERRABORT, "Abort due to error" }, 927c478bd9Sstevel@tonic-gate { EDT_DROPABORT, "Abort due to drop" }, 937c478bd9Sstevel@tonic-gate { EDT_DIRABORT, "Abort explicitly directed" }, 947c478bd9Sstevel@tonic-gate { EDT_BADRVAL, "Invalid return value from callback" }, 957c478bd9Sstevel@tonic-gate { EDT_BADNORMAL, "Invalid normalization" }, 967c478bd9Sstevel@tonic-gate { EDT_BUFTOOSMALL, "Enabling exceeds size of buffer" }, 977c478bd9Sstevel@tonic-gate { EDT_BADTRUNC, "Invalid truncation" }, 987c478bd9Sstevel@tonic-gate { EDT_BUSY, "DTrace cannot be used when kernel debugger is active" }, 997c478bd9Sstevel@tonic-gate { EDT_ACCESS, "DTrace requires additional privileges" }, 1007c478bd9Sstevel@tonic-gate { EDT_GNOENT, "DTrace device not available on system" }, 1017c478bd9Sstevel@tonic-gate { EDT_ZNOENT, "DTrace device not available in local zone" }, 1027c478bd9Sstevel@tonic-gate { EDT_BRICKED, "Abort due to systemic unresponsiveness" }, 1037c478bd9Sstevel@tonic-gate { EDT_HARDWIRE, "Failed to load language definitions" }, 1047c478bd9Sstevel@tonic-gate { EDT_ELFVERSION, "libelf is out-of-date with respect to libdtrace" }, 1057c478bd9Sstevel@tonic-gate { EDT_NOBUFFERED, "Attempt to buffer output without handler" }, 1067c478bd9Sstevel@tonic-gate { EDT_UNSTABLE, "Description matched an unstable set of probes" }, 107*30ef842dSbmc { EDT_BADSETOPT, "Invalid setopt() library action" }, 108*30ef842dSbmc { EDT_BADSTACKPC, "Invalid stack program counter size" }, 109*30ef842dSbmc { EDT_BADAGGVAR, "Invalid aggregation variable identifier" }, 110*30ef842dSbmc { EDT_OVERSION, "Client requested deprecated version of library" } 1117c478bd9Sstevel@tonic-gate }; 1127c478bd9Sstevel@tonic-gate 1137c478bd9Sstevel@tonic-gate static const int _dt_nerr = sizeof (_dt_errlist) / sizeof (_dt_errlist[0]); 1147c478bd9Sstevel@tonic-gate 1157c478bd9Sstevel@tonic-gate const char * 1167c478bd9Sstevel@tonic-gate dtrace_errmsg(dtrace_hdl_t *dtp, int error) 1177c478bd9Sstevel@tonic-gate { 1187c478bd9Sstevel@tonic-gate const char *str; 1197c478bd9Sstevel@tonic-gate int i; 1207c478bd9Sstevel@tonic-gate 1217c478bd9Sstevel@tonic-gate if (error == EDT_COMPILER && dtp != NULL && dtp->dt_errmsg[0] != '\0') 1227c478bd9Sstevel@tonic-gate str = dtp->dt_errmsg; 1237c478bd9Sstevel@tonic-gate else if (error == EDT_CTF && dtp != NULL && dtp->dt_ctferr != 0) 1247c478bd9Sstevel@tonic-gate str = ctf_errmsg(dtp->dt_ctferr); 1257c478bd9Sstevel@tonic-gate else if (error >= EDT_BASE && (error - EDT_BASE) < _dt_nerr) { 1267c478bd9Sstevel@tonic-gate for (i = 0; i < _dt_nerr; i++) { 1277c478bd9Sstevel@tonic-gate if (_dt_errlist[i].err == error) 1287c478bd9Sstevel@tonic-gate return (_dt_errlist[i].msg); 1297c478bd9Sstevel@tonic-gate } 1307c478bd9Sstevel@tonic-gate str = NULL; 1317c478bd9Sstevel@tonic-gate } else 1327c478bd9Sstevel@tonic-gate str = strerror(error); 1337c478bd9Sstevel@tonic-gate 1347c478bd9Sstevel@tonic-gate return (str ? str : "Unknown error"); 1357c478bd9Sstevel@tonic-gate } 1367c478bd9Sstevel@tonic-gate 1377c478bd9Sstevel@tonic-gate int 1387c478bd9Sstevel@tonic-gate dtrace_errno(dtrace_hdl_t *dtp) 1397c478bd9Sstevel@tonic-gate { 1407c478bd9Sstevel@tonic-gate return (dtp->dt_errno); 1417c478bd9Sstevel@tonic-gate } 1427c478bd9Sstevel@tonic-gate 1437c478bd9Sstevel@tonic-gate int 1447c478bd9Sstevel@tonic-gate dt_set_errno(dtrace_hdl_t *dtp, int err) 1457c478bd9Sstevel@tonic-gate { 1467c478bd9Sstevel@tonic-gate dtp->dt_errno = err; 1477c478bd9Sstevel@tonic-gate return (-1); 1487c478bd9Sstevel@tonic-gate } 1497c478bd9Sstevel@tonic-gate 1507c478bd9Sstevel@tonic-gate void 1517c478bd9Sstevel@tonic-gate dt_set_errmsg(dtrace_hdl_t *dtp, const char *errtag, const char *region, 1527c478bd9Sstevel@tonic-gate const char *filename, int lineno, const char *format, va_list ap) 1537c478bd9Sstevel@tonic-gate { 1547c478bd9Sstevel@tonic-gate size_t len, n; 1557c478bd9Sstevel@tonic-gate char *p, *s; 1567c478bd9Sstevel@tonic-gate 1577c478bd9Sstevel@tonic-gate s = dtp->dt_errmsg; 1587c478bd9Sstevel@tonic-gate n = sizeof (dtp->dt_errmsg); 1597c478bd9Sstevel@tonic-gate 1607c478bd9Sstevel@tonic-gate if (errtag != NULL && (yypcb->pcb_cflags & DTRACE_C_ETAGS)) 1617c478bd9Sstevel@tonic-gate (void) snprintf(s, n, "[%s] ", errtag); 1627c478bd9Sstevel@tonic-gate else 1637c478bd9Sstevel@tonic-gate s[0] = '\0'; 1647c478bd9Sstevel@tonic-gate 1657c478bd9Sstevel@tonic-gate len = strlen(dtp->dt_errmsg); 1667c478bd9Sstevel@tonic-gate s = dtp->dt_errmsg + len; 1677c478bd9Sstevel@tonic-gate n = sizeof (dtp->dt_errmsg) - len; 1687c478bd9Sstevel@tonic-gate 1697c478bd9Sstevel@tonic-gate if (filename == NULL) 1707c478bd9Sstevel@tonic-gate filename = dtp->dt_filetag; 1717c478bd9Sstevel@tonic-gate 1727c478bd9Sstevel@tonic-gate if (filename != NULL) 1737c478bd9Sstevel@tonic-gate (void) snprintf(s, n, "\"%s\", line %d: ", filename, lineno); 1747c478bd9Sstevel@tonic-gate else if (lineno != 0) 1757c478bd9Sstevel@tonic-gate (void) snprintf(s, n, "line %d: ", lineno); 1767c478bd9Sstevel@tonic-gate else if (region != NULL) 1777c478bd9Sstevel@tonic-gate (void) snprintf(s, n, "in %s: ", region); 1787c478bd9Sstevel@tonic-gate 1797c478bd9Sstevel@tonic-gate len = strlen(dtp->dt_errmsg); 1807c478bd9Sstevel@tonic-gate s = dtp->dt_errmsg + len; 1817c478bd9Sstevel@tonic-gate n = sizeof (dtp->dt_errmsg) - len; 1827c478bd9Sstevel@tonic-gate (void) vsnprintf(s, n, format, ap); 1837c478bd9Sstevel@tonic-gate 1847c478bd9Sstevel@tonic-gate if ((p = strrchr(dtp->dt_errmsg, '\n')) != NULL) 1857c478bd9Sstevel@tonic-gate *p = '\0'; /* remove trailing \n from message buffer */ 1867c478bd9Sstevel@tonic-gate 1877c478bd9Sstevel@tonic-gate dtp->dt_errtag = errtag; 1887c478bd9Sstevel@tonic-gate } 1897c478bd9Sstevel@tonic-gate 1907c478bd9Sstevel@tonic-gate /*ARGSUSED*/ 1917c478bd9Sstevel@tonic-gate const char * 1927c478bd9Sstevel@tonic-gate dtrace_faultstr(dtrace_hdl_t *dtp, int fault) 1937c478bd9Sstevel@tonic-gate { 1947c478bd9Sstevel@tonic-gate int i; 1957c478bd9Sstevel@tonic-gate 1967c478bd9Sstevel@tonic-gate static const struct { 1977c478bd9Sstevel@tonic-gate int code; 1987c478bd9Sstevel@tonic-gate const char *str; 1997c478bd9Sstevel@tonic-gate } faults[] = { 2007c478bd9Sstevel@tonic-gate { DTRACEFLT_BADADDR, "invalid address" }, 2017c478bd9Sstevel@tonic-gate { DTRACEFLT_BADALIGN, "invalid alignment" }, 2027c478bd9Sstevel@tonic-gate { DTRACEFLT_ILLOP, "illegal operation" }, 2037c478bd9Sstevel@tonic-gate { DTRACEFLT_DIVZERO, "divide-by-zero" }, 2047c478bd9Sstevel@tonic-gate { DTRACEFLT_NOSCRATCH, "out of scratch space" }, 2057c478bd9Sstevel@tonic-gate { DTRACEFLT_KPRIV, "invalid kernel access" }, 2067c478bd9Sstevel@tonic-gate { DTRACEFLT_UPRIV, "invalid user access" }, 2077c478bd9Sstevel@tonic-gate { DTRACEFLT_TUPOFLOW, "tuple stack overflow" }, 2087c478bd9Sstevel@tonic-gate { DTRACEFLT_LIBRARY, "library-level fault" }, 2097c478bd9Sstevel@tonic-gate { 0, NULL } 2107c478bd9Sstevel@tonic-gate }; 2117c478bd9Sstevel@tonic-gate 2127c478bd9Sstevel@tonic-gate for (i = 0; faults[i].str != NULL; i++) { 2137c478bd9Sstevel@tonic-gate if (faults[i].code == fault) 2147c478bd9Sstevel@tonic-gate return (faults[i].str); 2157c478bd9Sstevel@tonic-gate } 2167c478bd9Sstevel@tonic-gate 2177c478bd9Sstevel@tonic-gate return ("unknown fault"); 2187c478bd9Sstevel@tonic-gate } 219