1178476Sjb/* 2178476Sjb * CDDL HEADER START 3178476Sjb * 4178476Sjb * The contents of this file are subject to the terms of the 5178476Sjb * Common Development and Distribution License (the "License"). 6178476Sjb * You may not use this file except in compliance with the License. 7178476Sjb * 8178476Sjb * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9178476Sjb * or http://www.opensolaris.org/os/licensing. 10178476Sjb * See the License for the specific language governing permissions 11178476Sjb * and limitations under the License. 12178476Sjb * 13178476Sjb * When distributing Covered Code, include this CDDL HEADER in each 14178476Sjb * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15178476Sjb * If applicable, add the following below this CDDL HEADER, with the 16178476Sjb * fields enclosed by brackets "[]" replaced with your own identifying 17178476Sjb * information: Portions Copyright [yyyy] [name of copyright owner] 18178476Sjb * 19178476Sjb * CDDL HEADER END 20178476Sjb */ 21178476Sjb 22178476Sjb/* 23178476Sjb * Copyright 2006 Sun Microsystems, Inc. All rights reserved. 24178476Sjb * Use is subject to license terms. 25178476Sjb */ 26178476Sjb 27178476Sjb#pragma ident "%Z%%M% %I% %E% SMI" 28178476Sjb 29178476Sjb/* 30178476Sjb * ASSERTION: 31178476Sjb * Declare a dynamic type and then use it to copyin the first 3 environment 32178476Sjb * variable pointers from the current process. 33178476Sjb * 34178476Sjb * SECTION: Structs and Unions/Structs; 35178476Sjb * Actions and Subroutines/copyin(); 36178476Sjb * Actions and Subroutines/copyinstr(); 37178476Sjb * Variables/External Variables 38178476Sjb * 39178476Sjb * NOTES: 40178476Sjb * This test program declares a dynamic type and then uses it to copyin the 41178476Sjb * first three environment variable pointers from the current process. We 42178476Sjb * then use the dynamic type to access the result of our copyin(). The 43178476Sjb * special "D" module type scope is also tested. 44178476Sjb */ 45178476Sjb 46178476Sjb#pragma D option quiet 47178476Sjb 48178476Sjbstruct env_vars_32 { 49178476Sjb uint32_t e1; 50178476Sjb uint32_t e2; 51178476Sjb uint32_t e3; 52178476Sjb}; 53178476Sjb 54178476Sjbstruct env_vars_64 { 55178476Sjb uint64_t e1; 56178476Sjb uint64_t e2; 57178476Sjb uint64_t e3; 58178476Sjb}; 59178476Sjb 60178476SjbBEGIN 61178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_ILP32/ 62178476Sjb{ 63178476Sjb e32 = (struct D`env_vars_32 *) 64178476Sjb copyin(curpsinfo->pr_envp, sizeof (struct D`env_vars_32)); 65178476Sjb 66178476Sjb printf("e1 = \"%s\"\n", stringof(copyinstr(e32->e1))); 67178476Sjb printf("e2 = \"%s\"\n", stringof(copyinstr(e32->e2))); 68178476Sjb printf("e3 = \"%s\"\n", stringof(copyinstr(e32->e3))); 69178476Sjb 70178476Sjb exit(0); 71178476Sjb} 72178476Sjb 73178476SjbBEGIN 74178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_LP64/ 75178476Sjb{ 76178476Sjb e64 = (struct D`env_vars_64 *) 77178476Sjb copyin(curpsinfo->pr_envp, sizeof (struct D`env_vars_64)); 78178476Sjb 79178476Sjb printf("e1 = \"%s\"\n", stringof(copyinstr(e64->e1))); 80178476Sjb printf("e2 = \"%s\"\n", stringof(copyinstr(e64->e2))); 81178476Sjb printf("e3 = \"%s\"\n", stringof(copyinstr(e64->e3))); 82178476Sjb 83178476Sjb exit(0); 84178476Sjb} 85