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 * Declares a dynamic type and then uses it to copyin the first three 32178476Sjb * environment 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. This is similar to our 44178476Sjb * struct declaration test but here we use a typedef. 45178476Sjb */ 46178476Sjb 47178476Sjb#pragma D option quiet 48178476Sjb 49178476Sjbtypedef struct env_vars_32 { 50178476Sjb uint32_t e1; 51178476Sjb uint32_t e2; 52178476Sjb uint32_t e3; 53178476Sjb} env_vars_32_t; 54178476Sjb 55178476Sjbtypedef struct env_vars_64 { 56178476Sjb uint64_t e1; 57178476Sjb uint64_t e2; 58178476Sjb uint64_t e3; 59178476Sjb} env_vars_64_t; 60178476Sjb 61178476SjbBEGIN 62178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_ILP32/ 63178476Sjb{ 64178476Sjb e32 = (D`env_vars_32_t *) 65178476Sjb copyin(curpsinfo->pr_envp, sizeof (D`env_vars_32_t)); 66178476Sjb 67178476Sjb printf("e1 = \"%s\"\n", stringof(copyinstr(e32->e1))); 68178476Sjb printf("e2 = \"%s\"\n", stringof(copyinstr(e32->e2))); 69178476Sjb printf("e3 = \"%s\"\n", stringof(copyinstr(e32->e3))); 70178476Sjb 71178476Sjb exit(0); 72178476Sjb} 73178476Sjb 74178476SjbBEGIN 75178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_LP64/ 76178476Sjb{ 77178476Sjb e64 = (D`env_vars_64_t *) 78178476Sjb copyin(curpsinfo->pr_envp, sizeof (D`env_vars_64_t)); 79178476Sjb 80178476Sjb printf("e1 = \"%s\"\n", stringof(copyinstr(e64->e1))); 81178476Sjb printf("e2 = \"%s\"\n", stringof(copyinstr(e64->e2))); 82178476Sjb printf("e3 = \"%s\"\n", stringof(copyinstr(e64->e3))); 83178476Sjb 84178476Sjb exit(0); 85178476Sjb} 86