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 */
22e5803b76SAdam H. Leventhal
237c478bd9Sstevel@tonic-gate /*
241a7c1b72Smws * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
257c478bd9Sstevel@tonic-gate * Use is subject to license terms.
267c478bd9Sstevel@tonic-gate */
277c478bd9Sstevel@tonic-gate
28e5803b76SAdam H. Leventhal /*
29a386cc11SRobert Mustacchi * Copyright (c) 2013 by Delphix. All rights reserved.
30*56a20711SPatrick Mooney * Copyright (c) 2017 Joyent, Inc.
31e5803b76SAdam H. Leventhal */
327c478bd9Sstevel@tonic-gate
337c478bd9Sstevel@tonic-gate #include <strings.h>
347c478bd9Sstevel@tonic-gate #include <stdio.h>
351a7c1b72Smws
367c478bd9Sstevel@tonic-gate #include <dt_impl.h>
371a7c1b72Smws #include <dt_ident.h>
387c478bd9Sstevel@tonic-gate
397c478bd9Sstevel@tonic-gate /*ARGSUSED*/
407c478bd9Sstevel@tonic-gate static void
dt_dis_log(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)417c478bd9Sstevel@tonic-gate dt_dis_log(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
427c478bd9Sstevel@tonic-gate {
437c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u, %%r%u, %%r%u", name,
447c478bd9Sstevel@tonic-gate DIF_INSTR_R1(in), DIF_INSTR_R2(in), DIF_INSTR_RD(in));
457c478bd9Sstevel@tonic-gate }
467c478bd9Sstevel@tonic-gate
477c478bd9Sstevel@tonic-gate /*ARGSUSED*/
487c478bd9Sstevel@tonic-gate static void
dt_dis_branch(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)497c478bd9Sstevel@tonic-gate dt_dis_branch(const dtrace_difo_t *dp, const char *name,
50*56a20711SPatrick Mooney dif_instr_t in, FILE *fp)
517c478bd9Sstevel@tonic-gate {
527c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %u", name, DIF_INSTR_LABEL(in));
537c478bd9Sstevel@tonic-gate }
547c478bd9Sstevel@tonic-gate
557c478bd9Sstevel@tonic-gate /*ARGSUSED*/
567c478bd9Sstevel@tonic-gate static void
dt_dis_load(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)577c478bd9Sstevel@tonic-gate dt_dis_load(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
587c478bd9Sstevel@tonic-gate {
597c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s [%%r%u], %%r%u", name,
607c478bd9Sstevel@tonic-gate DIF_INSTR_R1(in), DIF_INSTR_RD(in));
617c478bd9Sstevel@tonic-gate }
627c478bd9Sstevel@tonic-gate
637c478bd9Sstevel@tonic-gate /*ARGSUSED*/
647c478bd9Sstevel@tonic-gate static void
dt_dis_store(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)657c478bd9Sstevel@tonic-gate dt_dis_store(const dtrace_difo_t *dp, const char *name,
66*56a20711SPatrick Mooney dif_instr_t in, FILE *fp)
677c478bd9Sstevel@tonic-gate {
687c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u, [%%r%u]", name,
697c478bd9Sstevel@tonic-gate DIF_INSTR_R1(in), DIF_INSTR_RD(in));
707c478bd9Sstevel@tonic-gate }
717c478bd9Sstevel@tonic-gate
727c478bd9Sstevel@tonic-gate /*ARGSUSED*/
737c478bd9Sstevel@tonic-gate static void
dt_dis_str(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)747c478bd9Sstevel@tonic-gate dt_dis_str(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
757c478bd9Sstevel@tonic-gate {
767c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%s", name);
777c478bd9Sstevel@tonic-gate }
787c478bd9Sstevel@tonic-gate
797c478bd9Sstevel@tonic-gate /*ARGSUSED*/
807c478bd9Sstevel@tonic-gate static void
dt_dis_r1rd(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)817c478bd9Sstevel@tonic-gate dt_dis_r1rd(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
827c478bd9Sstevel@tonic-gate {
837c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u, %%r%u", name,
847c478bd9Sstevel@tonic-gate DIF_INSTR_R1(in), DIF_INSTR_RD(in));
857c478bd9Sstevel@tonic-gate }
867c478bd9Sstevel@tonic-gate
877c478bd9Sstevel@tonic-gate /*ARGSUSED*/
887c478bd9Sstevel@tonic-gate static void
dt_dis_cmp(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)897c478bd9Sstevel@tonic-gate dt_dis_cmp(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
907c478bd9Sstevel@tonic-gate {
917c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u, %%r%u", name,
927c478bd9Sstevel@tonic-gate DIF_INSTR_R1(in), DIF_INSTR_R2(in));
937c478bd9Sstevel@tonic-gate }
947c478bd9Sstevel@tonic-gate
957c478bd9Sstevel@tonic-gate /*ARGSUSED*/
967c478bd9Sstevel@tonic-gate static void
dt_dis_tst(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)977c478bd9Sstevel@tonic-gate dt_dis_tst(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
987c478bd9Sstevel@tonic-gate {
997c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u", name, DIF_INSTR_R1(in));
1007c478bd9Sstevel@tonic-gate }
1017c478bd9Sstevel@tonic-gate
1027c478bd9Sstevel@tonic-gate static const char *
dt_dis_varname(const dtrace_difo_t * dp,uint_t id,uint_t scope)1037c478bd9Sstevel@tonic-gate dt_dis_varname(const dtrace_difo_t *dp, uint_t id, uint_t scope)
1047c478bd9Sstevel@tonic-gate {
1057c478bd9Sstevel@tonic-gate const dtrace_difv_t *dvp = dp->dtdo_vartab;
1067c478bd9Sstevel@tonic-gate uint_t i;
1077c478bd9Sstevel@tonic-gate
1087c478bd9Sstevel@tonic-gate for (i = 0; i < dp->dtdo_varlen; i++, dvp++) {
1097c478bd9Sstevel@tonic-gate if (dvp->dtdv_id == id && dvp->dtdv_scope == scope) {
1107c478bd9Sstevel@tonic-gate if (dvp->dtdv_name < dp->dtdo_strlen)
1117c478bd9Sstevel@tonic-gate return (dp->dtdo_strtab + dvp->dtdv_name);
1127c478bd9Sstevel@tonic-gate break;
1137c478bd9Sstevel@tonic-gate }
1147c478bd9Sstevel@tonic-gate }
1157c478bd9Sstevel@tonic-gate
1167c478bd9Sstevel@tonic-gate return (NULL);
1177c478bd9Sstevel@tonic-gate }
1187c478bd9Sstevel@tonic-gate
1197c478bd9Sstevel@tonic-gate static uint_t
dt_dis_scope(const char * name)1207c478bd9Sstevel@tonic-gate dt_dis_scope(const char *name)
1217c478bd9Sstevel@tonic-gate {
1227c478bd9Sstevel@tonic-gate switch (name[2]) {
1237c478bd9Sstevel@tonic-gate case 'l': return (DIFV_SCOPE_LOCAL);
1247c478bd9Sstevel@tonic-gate case 't': return (DIFV_SCOPE_THREAD);
1257c478bd9Sstevel@tonic-gate case 'g': return (DIFV_SCOPE_GLOBAL);
1267c478bd9Sstevel@tonic-gate default: return (-1u);
1277c478bd9Sstevel@tonic-gate }
1287c478bd9Sstevel@tonic-gate }
1297c478bd9Sstevel@tonic-gate
1307c478bd9Sstevel@tonic-gate static void
dt_dis_lda(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)1317c478bd9Sstevel@tonic-gate dt_dis_lda(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
1327c478bd9Sstevel@tonic-gate {
1337c478bd9Sstevel@tonic-gate uint_t var = DIF_INSTR_R1(in);
1347c478bd9Sstevel@tonic-gate const char *vname;
1357c478bd9Sstevel@tonic-gate
1367c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s DT_VAR(%u), %%r%u, %%r%u", name,
1377c478bd9Sstevel@tonic-gate var, DIF_INSTR_R2(in), DIF_INSTR_RD(in));
1387c478bd9Sstevel@tonic-gate
1397c478bd9Sstevel@tonic-gate if ((vname = dt_dis_varname(dp, var, dt_dis_scope(name))) != NULL)
1407c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\t\t! DT_VAR(%u) = \"%s\"", var, vname);
1417c478bd9Sstevel@tonic-gate }
1427c478bd9Sstevel@tonic-gate
1437c478bd9Sstevel@tonic-gate static void
dt_dis_ldv(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)1447c478bd9Sstevel@tonic-gate dt_dis_ldv(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
1457c478bd9Sstevel@tonic-gate {
1467c478bd9Sstevel@tonic-gate uint_t var = DIF_INSTR_VAR(in);
1477c478bd9Sstevel@tonic-gate const char *vname;
1487c478bd9Sstevel@tonic-gate
1497c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s DT_VAR(%u), %%r%u",
1507c478bd9Sstevel@tonic-gate name, var, DIF_INSTR_RD(in));
1517c478bd9Sstevel@tonic-gate
1527c478bd9Sstevel@tonic-gate if ((vname = dt_dis_varname(dp, var, dt_dis_scope(name))) != NULL)
1537c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\t\t! DT_VAR(%u) = \"%s\"", var, vname);
1547c478bd9Sstevel@tonic-gate }
1557c478bd9Sstevel@tonic-gate
1567c478bd9Sstevel@tonic-gate static void
dt_dis_stv(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)1577c478bd9Sstevel@tonic-gate dt_dis_stv(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
1587c478bd9Sstevel@tonic-gate {
1597c478bd9Sstevel@tonic-gate uint_t var = DIF_INSTR_VAR(in);
1607c478bd9Sstevel@tonic-gate const char *vname;
1617c478bd9Sstevel@tonic-gate
1627c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u, DT_VAR(%u)",
1637c478bd9Sstevel@tonic-gate name, DIF_INSTR_RS(in), var);
1647c478bd9Sstevel@tonic-gate
1657c478bd9Sstevel@tonic-gate if ((vname = dt_dis_varname(dp, var, dt_dis_scope(name))) != NULL)
1667c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\t\t! DT_VAR(%u) = \"%s\"", var, vname);
1677c478bd9Sstevel@tonic-gate }
1687c478bd9Sstevel@tonic-gate
169*56a20711SPatrick Mooney static void
dt_dis_sta(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)170*56a20711SPatrick Mooney dt_dis_sta(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
171*56a20711SPatrick Mooney {
172*56a20711SPatrick Mooney uint_t var = DIF_INSTR_VAR(in);
173*56a20711SPatrick Mooney const char *vname;
174*56a20711SPatrick Mooney
175*56a20711SPatrick Mooney (void) fprintf(fp, "%-4s DT_VAR(%u), %%r%u, %%r%u",
176*56a20711SPatrick Mooney name, var, DIF_INSTR_R2(in), DIF_INSTR_RD(in));
177*56a20711SPatrick Mooney
178*56a20711SPatrick Mooney if ((vname = dt_dis_varname(dp, var, dt_dis_scope(name))) != NULL)
179*56a20711SPatrick Mooney (void) fprintf(fp, "\t\t! DT_VAR(%u) = \"%s\"", var, vname);
180*56a20711SPatrick Mooney }
181*56a20711SPatrick Mooney
1827c478bd9Sstevel@tonic-gate static void
dt_dis_setx(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)1837c478bd9Sstevel@tonic-gate dt_dis_setx(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
1847c478bd9Sstevel@tonic-gate {
1857c478bd9Sstevel@tonic-gate uint_t intptr = DIF_INSTR_INTEGER(in);
1867c478bd9Sstevel@tonic-gate
1877c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s DT_INTEGER[%u], %%r%u", name,
1887c478bd9Sstevel@tonic-gate intptr, DIF_INSTR_RD(in));
1897c478bd9Sstevel@tonic-gate
1907c478bd9Sstevel@tonic-gate if (intptr < dp->dtdo_intlen) {
1917c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\t\t! 0x%llx",
1927c478bd9Sstevel@tonic-gate (u_longlong_t)dp->dtdo_inttab[intptr]);
1937c478bd9Sstevel@tonic-gate }
1947c478bd9Sstevel@tonic-gate }
1957c478bd9Sstevel@tonic-gate
1967c478bd9Sstevel@tonic-gate static void
dt_dis_sets(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)1977c478bd9Sstevel@tonic-gate dt_dis_sets(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
1987c478bd9Sstevel@tonic-gate {
1997c478bd9Sstevel@tonic-gate uint_t strptr = DIF_INSTR_STRING(in);
2007c478bd9Sstevel@tonic-gate
2017c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s DT_STRING[%u], %%r%u", name,
2027c478bd9Sstevel@tonic-gate strptr, DIF_INSTR_RD(in));
2037c478bd9Sstevel@tonic-gate
2047c478bd9Sstevel@tonic-gate if (strptr < dp->dtdo_strlen)
2057c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\t\t! \"%s\"", dp->dtdo_strtab + strptr);
2067c478bd9Sstevel@tonic-gate }
2077c478bd9Sstevel@tonic-gate
2087c478bd9Sstevel@tonic-gate /*ARGSUSED*/
2097c478bd9Sstevel@tonic-gate static void
dt_dis_ret(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)2107c478bd9Sstevel@tonic-gate dt_dis_ret(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
2117c478bd9Sstevel@tonic-gate {
2127c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4s %%r%u", name, DIF_INSTR_RD(in));
2137c478bd9Sstevel@tonic-gate }
2147c478bd9Sstevel@tonic-gate
2157c478bd9Sstevel@tonic-gate /*ARGSUSED*/
2167c478bd9Sstevel@tonic-gate static void
dt_dis_call(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)2177c478bd9Sstevel@tonic-gate dt_dis_call(const dtrace_difo_t *dp, const char *name, dif_instr_t in, FILE *fp)
2187c478bd9Sstevel@tonic-gate {
2191a7c1b72Smws uint_t subr = DIF_INSTR_SUBR(in);
2207c478bd9Sstevel@tonic-gate
2211a7c1b72Smws (void) fprintf(fp, "%-4s DIF_SUBR(%u), %%r%u\t\t! %s",
2221a7c1b72Smws name, subr, DIF_INSTR_RD(in), dtrace_subrstr(NULL, subr));
2237c478bd9Sstevel@tonic-gate }
2247c478bd9Sstevel@tonic-gate
2257c478bd9Sstevel@tonic-gate /*ARGSUSED*/
2267c478bd9Sstevel@tonic-gate static void
dt_dis_pushts(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)2271a7c1b72Smws dt_dis_pushts(const dtrace_difo_t *dp,
2281a7c1b72Smws const char *name, dif_instr_t in, FILE *fp)
2297c478bd9Sstevel@tonic-gate {
2307c478bd9Sstevel@tonic-gate static const char *const tnames[] = { "D type", "string" };
2317c478bd9Sstevel@tonic-gate uint_t type = DIF_INSTR_TYPE(in);
232e5803b76SAdam H. Leventhal const char *pad;
233e5803b76SAdam H. Leventhal
234e5803b76SAdam H. Leventhal if (DIF_INSTR_OP(in) == DIF_OP_PUSHTV) {
235e5803b76SAdam H. Leventhal (void) fprintf(fp, "%-4s DT_TYPE(%u), %%r%u",
236e5803b76SAdam H. Leventhal name, type, DIF_INSTR_RS(in));
237e5803b76SAdam H. Leventhal pad = "\t\t";
238e5803b76SAdam H. Leventhal } else {
239e5803b76SAdam H. Leventhal (void) fprintf(fp, "%-4s DT_TYPE(%u), %%r%u, %%r%u",
240e5803b76SAdam H. Leventhal name, type, DIF_INSTR_R2(in), DIF_INSTR_RS(in));
241e5803b76SAdam H. Leventhal pad = "\t";
242e5803b76SAdam H. Leventhal }
2437c478bd9Sstevel@tonic-gate
244e5803b76SAdam H. Leventhal if (type < sizeof (tnames) / sizeof (tnames[0])) {
245e5803b76SAdam H. Leventhal (void) fprintf(fp, "%s! DT_TYPE(%u) = %s", pad,
246e5803b76SAdam H. Leventhal type, tnames[type]);
247e5803b76SAdam H. Leventhal }
2487c478bd9Sstevel@tonic-gate }
2497c478bd9Sstevel@tonic-gate
2501a7c1b72Smws static void
dt_dis_xlate(const dtrace_difo_t * dp,const char * name,dif_instr_t in,FILE * fp)2511a7c1b72Smws dt_dis_xlate(const dtrace_difo_t *dp,
2521a7c1b72Smws const char *name, dif_instr_t in, FILE *fp)
2531a7c1b72Smws {
2541a7c1b72Smws uint_t xlr = DIF_INSTR_XLREF(in);
2551a7c1b72Smws
2561a7c1b72Smws (void) fprintf(fp, "%-4s DT_XLREF[%u], %%r%u",
2571a7c1b72Smws name, xlr, DIF_INSTR_RD(in));
2581a7c1b72Smws
2591a7c1b72Smws if (xlr < dp->dtdo_xlmlen) {
2601a7c1b72Smws (void) fprintf(fp, "\t\t! DT_XLREF[%u] = %u.%s", xlr,
2611a7c1b72Smws (uint_t)dp->dtdo_xlmtab[xlr]->dn_membexpr->dn_xlator->dx_id,
2621a7c1b72Smws dp->dtdo_xlmtab[xlr]->dn_membname);
2631a7c1b72Smws }
2641a7c1b72Smws }
2651a7c1b72Smws
2667c478bd9Sstevel@tonic-gate static char *
dt_dis_typestr(const dtrace_diftype_t * t,char * buf,size_t len)2677c478bd9Sstevel@tonic-gate dt_dis_typestr(const dtrace_diftype_t *t, char *buf, size_t len)
2687c478bd9Sstevel@tonic-gate {
2697c478bd9Sstevel@tonic-gate char kind[16], ckind[16];
2707c478bd9Sstevel@tonic-gate
2717c478bd9Sstevel@tonic-gate switch (t->dtdt_kind) {
2727c478bd9Sstevel@tonic-gate case DIF_TYPE_CTF:
2737c478bd9Sstevel@tonic-gate (void) strcpy(kind, "D type");
2747c478bd9Sstevel@tonic-gate break;
2757c478bd9Sstevel@tonic-gate case DIF_TYPE_STRING:
2767c478bd9Sstevel@tonic-gate (void) strcpy(kind, "string");
2777c478bd9Sstevel@tonic-gate break;
2787c478bd9Sstevel@tonic-gate default:
2797c478bd9Sstevel@tonic-gate (void) snprintf(kind, sizeof (kind), "0x%x", t->dtdt_kind);
2807c478bd9Sstevel@tonic-gate }
2817c478bd9Sstevel@tonic-gate
2827c478bd9Sstevel@tonic-gate switch (t->dtdt_ckind) {
2837c478bd9Sstevel@tonic-gate case CTF_K_UNKNOWN:
2847c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "unknown");
2857c478bd9Sstevel@tonic-gate break;
2867c478bd9Sstevel@tonic-gate case CTF_K_INTEGER:
2877c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "integer");
2887c478bd9Sstevel@tonic-gate break;
2897c478bd9Sstevel@tonic-gate case CTF_K_FLOAT:
2907c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "float");
2917c478bd9Sstevel@tonic-gate break;
2927c478bd9Sstevel@tonic-gate case CTF_K_POINTER:
2937c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "pointer");
2947c478bd9Sstevel@tonic-gate break;
2957c478bd9Sstevel@tonic-gate case CTF_K_ARRAY:
2967c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "array");
2977c478bd9Sstevel@tonic-gate break;
2987c478bd9Sstevel@tonic-gate case CTF_K_FUNCTION:
2997c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "function");
3007c478bd9Sstevel@tonic-gate break;
3017c478bd9Sstevel@tonic-gate case CTF_K_STRUCT:
3027c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "struct");
3037c478bd9Sstevel@tonic-gate break;
3047c478bd9Sstevel@tonic-gate case CTF_K_UNION:
3057c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "union");
3067c478bd9Sstevel@tonic-gate break;
3077c478bd9Sstevel@tonic-gate case CTF_K_ENUM:
3087c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "enum");
3097c478bd9Sstevel@tonic-gate break;
3107c478bd9Sstevel@tonic-gate case CTF_K_FORWARD:
3117c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "forward");
3127c478bd9Sstevel@tonic-gate break;
3137c478bd9Sstevel@tonic-gate case CTF_K_TYPEDEF:
3147c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "typedef");
3157c478bd9Sstevel@tonic-gate break;
3167c478bd9Sstevel@tonic-gate case CTF_K_VOLATILE:
3177c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "volatile");
3187c478bd9Sstevel@tonic-gate break;
3197c478bd9Sstevel@tonic-gate case CTF_K_CONST:
3207c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "const");
3217c478bd9Sstevel@tonic-gate break;
3227c478bd9Sstevel@tonic-gate case CTF_K_RESTRICT:
3237c478bd9Sstevel@tonic-gate (void) strcpy(ckind, "restrict");
3247c478bd9Sstevel@tonic-gate break;
3257c478bd9Sstevel@tonic-gate default:
3267c478bd9Sstevel@tonic-gate (void) snprintf(ckind, sizeof (ckind), "0x%x", t->dtdt_ckind);
3277c478bd9Sstevel@tonic-gate }
3287c478bd9Sstevel@tonic-gate
329a386cc11SRobert Mustacchi if (t->dtdt_flags & (DIF_TF_BYREF | DIF_TF_BYUREF)) {
330a386cc11SRobert Mustacchi (void) snprintf(buf, len, "%s (%s) by %sref (size %lu)",
331a386cc11SRobert Mustacchi kind, ckind, (t->dtdt_flags & DIF_TF_BYUREF) ? "user " : "",
332a386cc11SRobert Mustacchi (ulong_t)t->dtdt_size);
3337c478bd9Sstevel@tonic-gate } else {
3347c478bd9Sstevel@tonic-gate (void) snprintf(buf, len, "%s (%s) (size %lu)",
3357c478bd9Sstevel@tonic-gate kind, ckind, (ulong_t)t->dtdt_size);
3367c478bd9Sstevel@tonic-gate }
3377c478bd9Sstevel@tonic-gate
3387c478bd9Sstevel@tonic-gate return (buf);
3397c478bd9Sstevel@tonic-gate }
3407c478bd9Sstevel@tonic-gate
3417c478bd9Sstevel@tonic-gate static void
dt_dis_rtab(const char * rtag,const dtrace_difo_t * dp,FILE * fp,const dof_relodesc_t * rp,uint32_t len)3427c478bd9Sstevel@tonic-gate dt_dis_rtab(const char *rtag, const dtrace_difo_t *dp, FILE *fp,
3437c478bd9Sstevel@tonic-gate const dof_relodesc_t *rp, uint32_t len)
3447c478bd9Sstevel@tonic-gate {
3457c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\n%-4s %-8s %-8s %s\n",
3467c478bd9Sstevel@tonic-gate rtag, "OFFSET", "DATA", "NAME");
3477c478bd9Sstevel@tonic-gate
3487c478bd9Sstevel@tonic-gate for (; len != 0; len--, rp++) {
3497c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-4u %-8llu %-8llu %s\n",
3507c478bd9Sstevel@tonic-gate rp->dofr_type, (u_longlong_t)rp->dofr_offset,
3517c478bd9Sstevel@tonic-gate (u_longlong_t)rp->dofr_data,
3527c478bd9Sstevel@tonic-gate &dp->dtdo_strtab[rp->dofr_name]);
3537c478bd9Sstevel@tonic-gate }
3547c478bd9Sstevel@tonic-gate }
3557c478bd9Sstevel@tonic-gate
3567c478bd9Sstevel@tonic-gate void
dt_dis(const dtrace_difo_t * dp,FILE * fp)3571a7c1b72Smws dt_dis(const dtrace_difo_t *dp, FILE *fp)
3587c478bd9Sstevel@tonic-gate {
3597c478bd9Sstevel@tonic-gate static const struct opent {
3607c478bd9Sstevel@tonic-gate const char *op_name;
3617c478bd9Sstevel@tonic-gate void (*op_func)(const dtrace_difo_t *, const char *,
3627c478bd9Sstevel@tonic-gate dif_instr_t, FILE *);
3637c478bd9Sstevel@tonic-gate } optab[] = {
3647c478bd9Sstevel@tonic-gate { "(illegal opcode)", dt_dis_str },
3657c478bd9Sstevel@tonic-gate { "or", dt_dis_log }, /* DIF_OP_OR */
3667c478bd9Sstevel@tonic-gate { "xor", dt_dis_log }, /* DIF_OP_XOR */
3677c478bd9Sstevel@tonic-gate { "and", dt_dis_log }, /* DIF_OP_AND */
3687c478bd9Sstevel@tonic-gate { "sll", dt_dis_log }, /* DIF_OP_SLL */
3697c478bd9Sstevel@tonic-gate { "srl", dt_dis_log }, /* DIF_OP_SRL */
3707c478bd9Sstevel@tonic-gate { "sub", dt_dis_log }, /* DIF_OP_SUB */
3717c478bd9Sstevel@tonic-gate { "add", dt_dis_log }, /* DIF_OP_ADD */
3727c478bd9Sstevel@tonic-gate { "mul", dt_dis_log }, /* DIF_OP_MUL */
3737c478bd9Sstevel@tonic-gate { "sdiv", dt_dis_log }, /* DIF_OP_SDIV */
3747c478bd9Sstevel@tonic-gate { "udiv", dt_dis_log }, /* DIF_OP_UDIV */
3757c478bd9Sstevel@tonic-gate { "srem", dt_dis_log }, /* DIF_OP_SREM */
3767c478bd9Sstevel@tonic-gate { "urem", dt_dis_log }, /* DIF_OP_UREM */
3777c478bd9Sstevel@tonic-gate { "not", dt_dis_r1rd }, /* DIF_OP_NOT */
3787c478bd9Sstevel@tonic-gate { "mov", dt_dis_r1rd }, /* DIF_OP_MOV */
3797c478bd9Sstevel@tonic-gate { "cmp", dt_dis_cmp }, /* DIF_OP_CMP */
3807c478bd9Sstevel@tonic-gate { "tst", dt_dis_tst }, /* DIF_OP_TST */
3817c478bd9Sstevel@tonic-gate { "ba", dt_dis_branch }, /* DIF_OP_BA */
3827c478bd9Sstevel@tonic-gate { "be", dt_dis_branch }, /* DIF_OP_BE */
3837c478bd9Sstevel@tonic-gate { "bne", dt_dis_branch }, /* DIF_OP_BNE */
3847c478bd9Sstevel@tonic-gate { "bg", dt_dis_branch }, /* DIF_OP_BG */
3857c478bd9Sstevel@tonic-gate { "bgu", dt_dis_branch }, /* DIF_OP_BGU */
3867c478bd9Sstevel@tonic-gate { "bge", dt_dis_branch }, /* DIF_OP_BGE */
3877c478bd9Sstevel@tonic-gate { "bgeu", dt_dis_branch }, /* DIF_OP_BGEU */
3887c478bd9Sstevel@tonic-gate { "bl", dt_dis_branch }, /* DIF_OP_BL */
3897c478bd9Sstevel@tonic-gate { "blu", dt_dis_branch }, /* DIF_OP_BLU */
3907c478bd9Sstevel@tonic-gate { "ble", dt_dis_branch }, /* DIF_OP_BLE */
3917c478bd9Sstevel@tonic-gate { "bleu", dt_dis_branch }, /* DIF_OP_BLEU */
3927c478bd9Sstevel@tonic-gate { "ldsb", dt_dis_load }, /* DIF_OP_LDSB */
3937c478bd9Sstevel@tonic-gate { "ldsh", dt_dis_load }, /* DIF_OP_LDSH */
3947c478bd9Sstevel@tonic-gate { "ldsw", dt_dis_load }, /* DIF_OP_LDSW */
3957c478bd9Sstevel@tonic-gate { "ldub", dt_dis_load }, /* DIF_OP_LDUB */
3967c478bd9Sstevel@tonic-gate { "lduh", dt_dis_load }, /* DIF_OP_LDUH */
3977c478bd9Sstevel@tonic-gate { "lduw", dt_dis_load }, /* DIF_OP_LDUW */
3987c478bd9Sstevel@tonic-gate { "ldx", dt_dis_load }, /* DIF_OP_LDX */
3997c478bd9Sstevel@tonic-gate { "ret", dt_dis_ret }, /* DIF_OP_RET */
4007c478bd9Sstevel@tonic-gate { "nop", dt_dis_str }, /* DIF_OP_NOP */
4017c478bd9Sstevel@tonic-gate { "setx", dt_dis_setx }, /* DIF_OP_SETX */
4027c478bd9Sstevel@tonic-gate { "sets", dt_dis_sets }, /* DIF_OP_SETS */
4037c478bd9Sstevel@tonic-gate { "scmp", dt_dis_cmp }, /* DIF_OP_SCMP */
4047c478bd9Sstevel@tonic-gate { "ldga", dt_dis_lda }, /* DIF_OP_LDGA */
4057c478bd9Sstevel@tonic-gate { "ldgs", dt_dis_ldv }, /* DIF_OP_LDGS */
4067c478bd9Sstevel@tonic-gate { "stgs", dt_dis_stv }, /* DIF_OP_STGS */
4077c478bd9Sstevel@tonic-gate { "ldta", dt_dis_lda }, /* DIF_OP_LDTA */
4087c478bd9Sstevel@tonic-gate { "ldts", dt_dis_ldv }, /* DIF_OP_LDTS */
4097c478bd9Sstevel@tonic-gate { "stts", dt_dis_stv }, /* DIF_OP_STTS */
4107c478bd9Sstevel@tonic-gate { "sra", dt_dis_log }, /* DIF_OP_SRA */
4117c478bd9Sstevel@tonic-gate { "call", dt_dis_call }, /* DIF_OP_CALL */
4127c478bd9Sstevel@tonic-gate { "pushtr", dt_dis_pushts }, /* DIF_OP_PUSHTR */
4137c478bd9Sstevel@tonic-gate { "pushtv", dt_dis_pushts }, /* DIF_OP_PUSHTV */
4147c478bd9Sstevel@tonic-gate { "popts", dt_dis_str }, /* DIF_OP_POPTS */
4157c478bd9Sstevel@tonic-gate { "flushts", dt_dis_str }, /* DIF_OP_FLUSHTS */
4167c478bd9Sstevel@tonic-gate { "ldgaa", dt_dis_ldv }, /* DIF_OP_LDGAA */
4177c478bd9Sstevel@tonic-gate { "ldtaa", dt_dis_ldv }, /* DIF_OP_LDTAA */
4187c478bd9Sstevel@tonic-gate { "stgaa", dt_dis_stv }, /* DIF_OP_STGAA */
4197c478bd9Sstevel@tonic-gate { "sttaa", dt_dis_stv }, /* DIF_OP_STTAA */
4207c478bd9Sstevel@tonic-gate { "ldls", dt_dis_ldv }, /* DIF_OP_LDLS */
4217c478bd9Sstevel@tonic-gate { "stls", dt_dis_stv }, /* DIF_OP_STLS */
4227c478bd9Sstevel@tonic-gate { "allocs", dt_dis_r1rd }, /* DIF_OP_ALLOCS */
4237c478bd9Sstevel@tonic-gate { "copys", dt_dis_log }, /* DIF_OP_COPYS */
4247c478bd9Sstevel@tonic-gate { "stb", dt_dis_store }, /* DIF_OP_STB */
4257c478bd9Sstevel@tonic-gate { "sth", dt_dis_store }, /* DIF_OP_STH */
4267c478bd9Sstevel@tonic-gate { "stw", dt_dis_store }, /* DIF_OP_STW */
4277c478bd9Sstevel@tonic-gate { "stx", dt_dis_store }, /* DIF_OP_STX */
4287c478bd9Sstevel@tonic-gate { "uldsb", dt_dis_load }, /* DIF_OP_ULDSB */
4297c478bd9Sstevel@tonic-gate { "uldsh", dt_dis_load }, /* DIF_OP_ULDSH */
4307c478bd9Sstevel@tonic-gate { "uldsw", dt_dis_load }, /* DIF_OP_ULDSW */
4317c478bd9Sstevel@tonic-gate { "uldub", dt_dis_load }, /* DIF_OP_ULDUB */
4327c478bd9Sstevel@tonic-gate { "ulduh", dt_dis_load }, /* DIF_OP_ULDUH */
4337c478bd9Sstevel@tonic-gate { "ulduw", dt_dis_load }, /* DIF_OP_ULDUW */
4347c478bd9Sstevel@tonic-gate { "uldx", dt_dis_load }, /* DIF_OP_ULDX */
4357c478bd9Sstevel@tonic-gate { "rldsb", dt_dis_load }, /* DIF_OP_RLDSB */
4367c478bd9Sstevel@tonic-gate { "rldsh", dt_dis_load }, /* DIF_OP_RLDSH */
4377c478bd9Sstevel@tonic-gate { "rldsw", dt_dis_load }, /* DIF_OP_RLDSW */
4387c478bd9Sstevel@tonic-gate { "rldub", dt_dis_load }, /* DIF_OP_RLDUB */
4397c478bd9Sstevel@tonic-gate { "rlduh", dt_dis_load }, /* DIF_OP_RLDUH */
4407c478bd9Sstevel@tonic-gate { "rlduw", dt_dis_load }, /* DIF_OP_RLDUW */
4417c478bd9Sstevel@tonic-gate { "rldx", dt_dis_load }, /* DIF_OP_RLDX */
4421a7c1b72Smws { "xlate", dt_dis_xlate }, /* DIF_OP_XLATE */
4431a7c1b72Smws { "xlarg", dt_dis_xlate }, /* DIF_OP_XLARG */
444*56a20711SPatrick Mooney { "stga", dt_dis_sta }, /* DIF_OP_XLARG */
4457c478bd9Sstevel@tonic-gate };
4467c478bd9Sstevel@tonic-gate
4477c478bd9Sstevel@tonic-gate const struct opent *op;
4487c478bd9Sstevel@tonic-gate ulong_t i = 0;
4491a7c1b72Smws char type[DT_TYPE_NAMELEN];
4507c478bd9Sstevel@tonic-gate
4511a7c1b72Smws (void) fprintf(fp, "\nDIFO 0x%p returns %s\n", (void *)dp,
4527c478bd9Sstevel@tonic-gate dt_dis_typestr(&dp->dtdo_rtype, type, sizeof (type)));
4537c478bd9Sstevel@tonic-gate
4547c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-3s %-8s %s\n",
4557c478bd9Sstevel@tonic-gate "OFF", "OPCODE", "INSTRUCTION");
4567c478bd9Sstevel@tonic-gate
4577c478bd9Sstevel@tonic-gate for (i = 0; i < dp->dtdo_len; i++) {
4587c478bd9Sstevel@tonic-gate dif_instr_t instr = dp->dtdo_buf[i];
4597c478bd9Sstevel@tonic-gate dif_instr_t opcode = DIF_INSTR_OP(instr);
4607c478bd9Sstevel@tonic-gate
4617c478bd9Sstevel@tonic-gate if (opcode >= sizeof (optab) / sizeof (optab[0]))
4627c478bd9Sstevel@tonic-gate opcode = 0; /* force invalid opcode message */
4637c478bd9Sstevel@tonic-gate
4647c478bd9Sstevel@tonic-gate op = &optab[opcode];
4657c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%02lu: %08x ", i, instr);
4667c478bd9Sstevel@tonic-gate op->op_func(dp, op->op_name, instr, fp);
4677c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\n");
4687c478bd9Sstevel@tonic-gate }
4697c478bd9Sstevel@tonic-gate
4707c478bd9Sstevel@tonic-gate if (dp->dtdo_varlen != 0) {
4717c478bd9Sstevel@tonic-gate (void) fprintf(fp, "\n%-16s %-4s %-3s %-3s %-4s %s\n",
4727c478bd9Sstevel@tonic-gate "NAME", "ID", "KND", "SCP", "FLAG", "TYPE");
4737c478bd9Sstevel@tonic-gate }
4747c478bd9Sstevel@tonic-gate
4757c478bd9Sstevel@tonic-gate for (i = 0; i < dp->dtdo_varlen; i++) {
4767c478bd9Sstevel@tonic-gate dtrace_difv_t *v = &dp->dtdo_vartab[i];
4777c478bd9Sstevel@tonic-gate char kind[4], scope[4], flags[16] = { 0 };
4787c478bd9Sstevel@tonic-gate
4797c478bd9Sstevel@tonic-gate switch (v->dtdv_kind) {
4807c478bd9Sstevel@tonic-gate case DIFV_KIND_ARRAY:
4817c478bd9Sstevel@tonic-gate (void) strcpy(kind, "arr");
4827c478bd9Sstevel@tonic-gate break;
4837c478bd9Sstevel@tonic-gate case DIFV_KIND_SCALAR:
4847c478bd9Sstevel@tonic-gate (void) strcpy(kind, "scl");
4857c478bd9Sstevel@tonic-gate break;
4867c478bd9Sstevel@tonic-gate default:
4877c478bd9Sstevel@tonic-gate (void) snprintf(kind, sizeof (kind),
4887c478bd9Sstevel@tonic-gate "%u", v->dtdv_kind);
4897c478bd9Sstevel@tonic-gate }
4907c478bd9Sstevel@tonic-gate
4917c478bd9Sstevel@tonic-gate switch (v->dtdv_scope) {
4927c478bd9Sstevel@tonic-gate case DIFV_SCOPE_GLOBAL:
4937c478bd9Sstevel@tonic-gate (void) strcpy(scope, "glb");
4947c478bd9Sstevel@tonic-gate break;
4957c478bd9Sstevel@tonic-gate case DIFV_SCOPE_THREAD:
4967c478bd9Sstevel@tonic-gate (void) strcpy(scope, "tls");
4977c478bd9Sstevel@tonic-gate break;
4987c478bd9Sstevel@tonic-gate case DIFV_SCOPE_LOCAL:
4997c478bd9Sstevel@tonic-gate (void) strcpy(scope, "loc");
5007c478bd9Sstevel@tonic-gate break;
5017c478bd9Sstevel@tonic-gate default:
5027c478bd9Sstevel@tonic-gate (void) snprintf(scope, sizeof (scope),
5037c478bd9Sstevel@tonic-gate "%u", v->dtdv_scope);
5047c478bd9Sstevel@tonic-gate }
5057c478bd9Sstevel@tonic-gate
5067c478bd9Sstevel@tonic-gate if (v->dtdv_flags & ~(DIFV_F_REF | DIFV_F_MOD)) {
5077c478bd9Sstevel@tonic-gate (void) snprintf(flags, sizeof (flags), "/0x%x",
5087c478bd9Sstevel@tonic-gate v->dtdv_flags & ~(DIFV_F_REF | DIFV_F_MOD));
5097c478bd9Sstevel@tonic-gate }
5107c478bd9Sstevel@tonic-gate
5117c478bd9Sstevel@tonic-gate if (v->dtdv_flags & DIFV_F_REF)
5127c478bd9Sstevel@tonic-gate (void) strcat(flags, "/r");
5137c478bd9Sstevel@tonic-gate if (v->dtdv_flags & DIFV_F_MOD)
5147c478bd9Sstevel@tonic-gate (void) strcat(flags, "/w");
5157c478bd9Sstevel@tonic-gate
5167c478bd9Sstevel@tonic-gate (void) fprintf(fp, "%-16s %-4x %-3s %-3s %-4s %s\n",
5177c478bd9Sstevel@tonic-gate &dp->dtdo_strtab[v->dtdv_name],
5187c478bd9Sstevel@tonic-gate v->dtdv_id, kind, scope, flags + 1,
5197c478bd9Sstevel@tonic-gate dt_dis_typestr(&v->dtdv_type, type, sizeof (type)));
5207c478bd9Sstevel@tonic-gate }
5217c478bd9Sstevel@tonic-gate
5221a7c1b72Smws if (dp->dtdo_xlmlen != 0) {
5231a7c1b72Smws (void) fprintf(fp, "\n%-4s %-3s %-12s %s\n",
5241a7c1b72Smws "XLID", "ARG", "MEMBER", "TYPE");
5251a7c1b72Smws }
5261a7c1b72Smws
5271a7c1b72Smws for (i = 0; i < dp->dtdo_xlmlen; i++) {
5281a7c1b72Smws dt_node_t *dnp = dp->dtdo_xlmtab[i];
5291a7c1b72Smws dt_xlator_t *dxp = dnp->dn_membexpr->dn_xlator;
5301a7c1b72Smws (void) fprintf(fp, "%-4u %-3d %-12s %s\n",
5311a7c1b72Smws (uint_t)dxp->dx_id, dxp->dx_arg, dnp->dn_membname,
5321a7c1b72Smws dt_node_type_name(dnp, type, sizeof (type)));
5331a7c1b72Smws }
5341a7c1b72Smws
5357c478bd9Sstevel@tonic-gate if (dp->dtdo_krelen != 0)
5367c478bd9Sstevel@tonic-gate dt_dis_rtab("KREL", dp, fp, dp->dtdo_kreltab, dp->dtdo_krelen);
5377c478bd9Sstevel@tonic-gate
5387c478bd9Sstevel@tonic-gate if (dp->dtdo_urelen != 0)
5397c478bd9Sstevel@tonic-gate dt_dis_rtab("UREL", dp, fp, dp->dtdo_ureltab, dp->dtdo_urelen);
5407c478bd9Sstevel@tonic-gate }
541