1# 2# CDDL HEADER START 3# 4# The contents of this file are subject to the terms of the 5# Common Development and Distribution License (the "License"). 6# You may not use this file except in compliance with the License. 7# 8# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9# or http://www.opensolaris.org/os/licensing. 10# See the License for the specific language governing permissions 11# and limitations under the License. 12# 13# When distributing Covered Code, include this CDDL HEADER in each 14# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15# If applicable, add the following below this CDDL HEADER, with the 16# fields enclosed by brackets "[]" replaced with your own identifying 17# information: Portions Copyright [yyyy] [name of copyright owner] 18# 19# CDDL HEADER END 20# 21 22# 23# Copyright 2009 Sun Microsystems, Inc. All rights reserved. 24# Use is subject to license terms. 25# 26 27if [ $# != 1 ]; then 28 echo expected one argument: '<'dtrace-path'>' 29 exit 2 30fi 31 32dtrace=$1 33DIR=/var/tmp/dtest.$$ 34 35mkdir $DIR 36cd $DIR 37 38cat > test.c <<EOF 39void 40thequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydog(void) 41{ 42 while (1) 43 ; 44} 45 46int 47main(int argc, char *argv[]) 48{ 49 thequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydog(); 50} 51EOF 52 53cc -o test test.c 54if [ $? -ne 0 ]; then 55 print -u2 "failed to compile test.c" 56 exit 1 57fi 58 59script() 60{ 61 $dtrace -c ./test -qs /dev/stdin <<EOF 62 profile:::profile-1001hz 63 /pid == \$target/ 64 { 65 @[arg1] = count(); 66 } 67 68 tick-1s 69 /n++ > 10/ 70 { 71 printa("%A %@d\n", @); 72 exit(0); 73 } 74EOF 75} 76 77script 78status=$? 79 80cd / 81/usr/bin/rm -rf $DIR 82 83exit $status 84