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 2006 Sun Microsystems, Inc. All rights reserved. 24# Use is subject to license terms. 25# 26#pragma ident "%Z%%M% %I% %E% SMI" 27 28# 29# This test is a bit naughty; it's assuming that ld.so.1 has an implementation 30# of calloc(3C), and that it's implemented in terms of the ld.so.1 31# implementation of malloc(3C). If you're reading this comment because 32# those assumptions have become false, please accept my apologies... 33# 34if [ $# != 1 ]; then 35 echo expected one argument: '<'dtrace-path'>' 36 exit 2 37fi 38 39dtrace=$1 40 41$dtrace -qs /dev/stdin -c "/usr/bin/echo" <<EOF 42pid\$target:ld.so.1:calloc:entry 43{ 44 self->calloc = 1; 45} 46 47pid\$target:ld.so.1:malloc:entry 48/self->calloc/ 49{ 50 @[umod(ucaller), ufunc(ucaller)] = count(); 51} 52 53pid\$target:ld.so.1:calloc:return 54/self->calloc/ 55{ 56 self->calloc = 0; 57} 58 59END 60{ 61 printa("%A %A\n", @); 62} 63EOF 64 65exit 0 66