1#pragma	ident	"@(#)err.copyoutstrbadaddr.ksh	1.1	06/08/28 SMI"
2
3
4dtrace_script()
5{
6	
7	$dtrace -w -s /dev/stdin <<EOF
8
9	/*
10 	* ASSERTION:
11 	*	Verify that copyout() handles bad addresses.
12 	*
13 	* SECTION: Actions and Subroutines/copyout()
14 	* 
15 	*/
16
17	BEGIN 
18	{
19        	ptr = alloca(sizeof (char *));
20        	copyinto(curpsinfo->pr_envp, sizeof (char *), ptr);
21        	copyout(ptr, 0, sizeof (char *));
22	}
23
24	ERROR
25	{
26		exit(1)
27	}
28EOF
29}
30
31dtrace="/usr/sbin/dtrace"
32
33dtrace_script &
34child=$!
35
36wait $child
37status=$?
38
39exit $status
40