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 * Positive test for stop 32*2633Sahl * 33*2633Sahl * SECTION: Actions and Subroutines/stop() 34*2633Sahl */ 35*2633Sahl 36*2633Sahl #pragma D option destructive 37*2633Sahl 38*2633Sahl BEGIN 39*2633Sahl { 40*2633Sahl /* 41*2633Sahl * Wait no more than a second for the process to call getpid(). 42*2633Sahl */ 43*2633Sahl timeout = timestamp + 1000000000; 44*2633Sahl stopped = 0; 45*2633Sahl } 46*2633Sahl 47*2633Sahl syscall::getpid:entry 48*2633Sahl /pid == $1 && stopped == 1/ 49*2633Sahl { 50*2633Sahl trace("looks like it's still going"); 51*2633Sahl exit(1); 52*2633Sahl } 53*2633Sahl 54*2633Sahl syscall::getpid:entry 55*2633Sahl /pid == $1 && stopped == 0/ 56*2633Sahl { 57*2633Sahl stop(); 58*2633Sahl trace("stopped"); 59*2633Sahl stopped = 1; 60*2633Sahl /* 61*2633Sahl * Wait for a quarter second before declaring victory. 62*2633Sahl */ 63*2633Sahl timeout = timestamp + 1000000000 / 4; 64*2633Sahl } 65*2633Sahl 66*2633Sahl profile:::tick-8 67*2633Sahl /timestamp > timeout && stopped == 1/ 68*2633Sahl { 69*2633Sahl trace("looks like it really stopped"); 70*2633Sahl exit(0); 71*2633Sahl } 72*2633Sahl 73*2633Sahl profile:::tick-8 74*2633Sahl /timestamp > timeout/ 75*2633Sahl { 76*2633Sahl trace("timed out"); 77*2633Sahl exit(1); 78*2633Sahl } 79