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 /* 31*2633Sahl * ASSERTION: 32*2633Sahl * Positive lquantize()/clear() test 33*2633Sahl * 34*2633Sahl * SECTION: Aggregations/Aggregations 35*2633Sahl * 36*2633Sahl * NOTES: 37*2633Sahl * Verifies that printing a clear()'d aggregation with an lquantize() 38*2633Sahl * aggregation function doesn't cause problems. 39*2633Sahl * 40*2633Sahl */ 41*2633Sahl 42*2633Sahl 43*2633Sahl #pragma D option switchrate=50ms 44*2633Sahl #pragma D option aggrate=1ms 45*2633Sahl #pragma D option quiet 46*2633Sahl 47*2633Sahl tick-100ms 48*2633Sahl { 49*2633Sahl x++; 50*2633Sahl @a["linear"] = lquantize(x, 0, 100, 1); 51*2633Sahl @b["exp"] = quantize(x); 52*2633Sahl } 53*2633Sahl 54*2633Sahl tick-100ms 55*2633Sahl /(x % 5) == 0 && y++ < 5/ 56*2633Sahl { 57*2633Sahl printa(@a); 58*2633Sahl printa(@b); 59*2633Sahl clear(@a); 60*2633Sahl clear(@b); 61*2633Sahl } 62*2633Sahl 63*2633Sahl tick-100ms 64*2633Sahl /(x % 5) == 0 && y == 5/ 65*2633Sahl { 66*2633Sahl exit(0); 67*2633Sahl } 68