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 2007 Sun Microsystems, Inc.  All rights reserved.
24# Use is subject to license terms.
25#
26# 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