1*2633Sahl /* 2*2633Sahl * CDDL HEADER START 3*2633Sahl * 4*2633Sahl * The contents of this file are subject to the terms of the 5*2633Sahl * Common Development and Distribution License (the "License"). 6*2633Sahl * You may not use this file except in compliance with the License. 7*2633Sahl * 8*2633Sahl * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9*2633Sahl * or http://www.opensolaris.org/os/licensing. 10*2633Sahl * See the License for the specific language governing permissions 11*2633Sahl * and limitations under the License. 12*2633Sahl * 13*2633Sahl * When distributing Covered Code, include this CDDL HEADER in each 14*2633Sahl * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15*2633Sahl * If applicable, add the following below this CDDL HEADER, with the 16*2633Sahl * fields enclosed by brackets "[]" replaced with your own identifying 17*2633Sahl * information: Portions Copyright [yyyy] [name of copyright owner] 18*2633Sahl * 19*2633Sahl * CDDL HEADER END 20*2633Sahl */ 21*2633Sahl 22*2633Sahl /* 23*2633Sahl * Copyright 2006 Sun Microsystems, Inc. All rights reserved. 24*2633Sahl * Use is subject to license terms. 25*2633Sahl */ 26*2633Sahl 27*2633Sahl #pragma ident "%Z%%M% %I% %E% SMI" 28*2633Sahl 29*2633Sahl /* 30*2633Sahl * ASSERTION: 31*2633Sahl * The D inline translation mechanism can be used to facilitate stable 32*2633Sahl * translations. 33*2633Sahl * 34*2633Sahl * SECTION: Translators/ Translator Declarations 35*2633Sahl * SECTION: Translators/ Translate Operator 36*2633Sahl * SECTION: Translators/Stable Translations 37*2633Sahl * 38*2633Sahl * NOTES: Uncomment the pragma that explicitly resets the attributes of 39*2633Sahl * myinfo identifier to Stable/Stable/Common from Private/Private/Unknown. 40*2633Sahl * Run the program with and without the comments as: 41*2633Sahl * /usr/sbin/dtrace -vs man.TestTransStability.d 42*2633Sahl */ 43*2633Sahl 44*2633Sahl #pragma D option quiet 45*2633Sahl 46*2633Sahl inline lwpsinfo_t *myinfo = xlate < lwpsinfo_t *> (curthread); 47*2633Sahl 48*2633Sahl /* 49*2633Sahl #pragma D attributes Stable/Stable/Common myinfo 50*2633Sahl */ 51*2633Sahl 52*2633Sahl BEGIN 53*2633Sahl { 54*2633Sahl trace(myinfo->pr_flag); 55*2633Sahl exit(0); 56*2633Sahl } 57*2633Sahl 58*2633Sahl ERROR 59*2633Sahl { 60*2633Sahl exit(1); 61*2633Sahl } 62