1*2be1a816SJohn Birrell /* 2*2be1a816SJohn Birrell * CDDL HEADER START 3*2be1a816SJohn Birrell * 4*2be1a816SJohn Birrell * The contents of this file are subject to the terms of the 5*2be1a816SJohn Birrell * Common Development and Distribution License (the "License"). 6*2be1a816SJohn Birrell * You may not use this file except in compliance with the License. 7*2be1a816SJohn Birrell * 8*2be1a816SJohn Birrell * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9*2be1a816SJohn Birrell * or http://www.opensolaris.org/os/licensing. 10*2be1a816SJohn Birrell * See the License for the specific language governing permissions 11*2be1a816SJohn Birrell * and limitations under the License. 12*2be1a816SJohn Birrell * 13*2be1a816SJohn Birrell * When distributing Covered Code, include this CDDL HEADER in each 14*2be1a816SJohn Birrell * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15*2be1a816SJohn Birrell * If applicable, add the following below this CDDL HEADER, with the 16*2be1a816SJohn Birrell * fields enclosed by brackets "[]" replaced with your own identifying 17*2be1a816SJohn Birrell * information: Portions Copyright [yyyy] [name of copyright owner] 18*2be1a816SJohn Birrell * 19*2be1a816SJohn Birrell * CDDL HEADER END 20*2be1a816SJohn Birrell */ 21*2be1a816SJohn Birrell 22*2be1a816SJohn Birrell /* 23*2be1a816SJohn Birrell * Copyright 2006 Sun Microsystems, Inc. All rights reserved. 24*2be1a816SJohn Birrell * Use is subject to license terms. 25*2be1a816SJohn Birrell */ 26*2be1a816SJohn Birrell 27*2be1a816SJohn Birrell #pragma ident "%Z%%M% %I% %E% SMI" 28*2be1a816SJohn Birrell 29*2be1a816SJohn Birrell /* 30*2be1a816SJohn Birrell * ASSERTION: 31*2be1a816SJohn Birrell * Positive test for stop 32*2be1a816SJohn Birrell * 33*2be1a816SJohn Birrell * SECTION: Actions and Subroutines/stop() 34*2be1a816SJohn Birrell */ 35*2be1a816SJohn Birrell 36*2be1a816SJohn Birrell #pragma D option destructive 37*2be1a816SJohn Birrell 38*2be1a816SJohn Birrell BEGIN 39*2be1a816SJohn Birrell { 40*2be1a816SJohn Birrell /* 41*2be1a816SJohn Birrell * Wait no more than a second for the process to call getpid(). 42*2be1a816SJohn Birrell */ 43*2be1a816SJohn Birrell timeout = timestamp + 1000000000; 44*2be1a816SJohn Birrell stopped = 0; 45*2be1a816SJohn Birrell } 46*2be1a816SJohn Birrell 47*2be1a816SJohn Birrell syscall::getpid:entry 48*2be1a816SJohn Birrell /pid == $1 && stopped == 1/ 49*2be1a816SJohn Birrell { 50*2be1a816SJohn Birrell trace("looks like it's still going"); 51*2be1a816SJohn Birrell exit(1); 52*2be1a816SJohn Birrell } 53*2be1a816SJohn Birrell 54*2be1a816SJohn Birrell syscall::getpid:return 55*2be1a816SJohn Birrell /pid == $1 && stopped == 0/ 56*2be1a816SJohn Birrell { 57*2be1a816SJohn Birrell stop(); 58*2be1a816SJohn Birrell trace("stopped"); 59*2be1a816SJohn Birrell stopped = 1; 60*2be1a816SJohn Birrell /* 61*2be1a816SJohn Birrell * Wait for a quarter second before declaring victory. 62*2be1a816SJohn Birrell */ 63*2be1a816SJohn Birrell timeout = timestamp + 1000000000 / 4; 64*2be1a816SJohn Birrell } 65*2be1a816SJohn Birrell 66*2be1a816SJohn Birrell profile:::tick-8 67*2be1a816SJohn Birrell /timestamp > timeout && stopped == 1/ 68*2be1a816SJohn Birrell { 69*2be1a816SJohn Birrell trace("looks like it really stopped"); 70*2be1a816SJohn Birrell exit(0); 71*2be1a816SJohn Birrell } 72*2be1a816SJohn Birrell 73*2be1a816SJohn Birrell profile:::tick-8 74*2be1a816SJohn Birrell /timestamp > timeout/ 75*2be1a816SJohn Birrell { 76*2be1a816SJohn Birrell trace("timed out"); 77*2be1a816SJohn Birrell exit(1); 78*2be1a816SJohn Birrell } 79