Mention addition of multiple precision fallback libm probes in NEWS
[glibc.git] / gmon / tst-sprofil.c
blobeff15523d9ca6065922773bed17cd4f40f4f7011
1 /* Copyright (C) 2001-2014 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
19 #include <errno.h>
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include <sys/profil.h>
24 #include <bits/wordsize.h>
26 #define NELEMS(a) (sizeof (a)/sizeof ((a)[0]))
28 size_t taddr[] =
30 0x00001000, /* elf32/hppa */
31 0x08048000, /* Linux elf32/x86 */
32 0x80000000, /* Linux elf32/m68k */
33 0x00400000, /* Linux elf32/mips */
34 0x01800000, /* Linux elf32/ppc */
35 0x00010000 /* Linux elf32/sparc */
36 #if __WORDSIZE > 32
38 0x4000000000000000, /* Linux elf64/ia64 */
39 0x0000000120000000, /* Linux elf64/alpha */
40 0x4000000000001000, /* elf64/hppa */
41 0x0000000100000000 /* Linux elf64/sparc */
42 #endif
45 unsigned int buf[NELEMS (taddr)][0x10000 / sizeof (int)];
46 unsigned int bshort[5][0x100 / sizeof (int)];
47 unsigned int blong[1][0x1000 / sizeof (int)];
48 unsigned int vlong[1][0x2000 / sizeof (int)];
50 static long int
51 fac (long int n)
53 if (n == 0)
54 return 1;
55 return n * fac (n - 1);
58 int
59 main (int argc, char **argv)
61 unsigned int ovfl = 0, profcnt = 0;
62 struct timeval tv, start;
63 struct prof prof[32];
64 double t_tick, delta;
65 long int sum = 0;
66 int i, j;
68 for (i = 0; i < NELEMS (taddr); ++i)
70 prof[profcnt].pr_base = buf[i];
71 prof[profcnt].pr_size = sizeof (buf[i]);
72 prof[profcnt].pr_off = taddr[i];
73 prof[profcnt].pr_scale = 0x10000;
74 ++profcnt;
77 prof[profcnt].pr_base = blong[0];
78 prof[profcnt].pr_size = sizeof (blong[0]);
79 prof[profcnt].pr_off = 0x80001000;
80 prof[profcnt].pr_scale = 0x10000;
81 ++profcnt;
83 prof[profcnt].pr_base = bshort[0];
84 prof[profcnt].pr_size = sizeof (bshort[0]);
85 prof[profcnt].pr_off = 0x80000080;
86 prof[profcnt].pr_scale = 0x10000;
87 ++profcnt;
89 prof[profcnt].pr_base = bshort[1];
90 prof[profcnt].pr_size = sizeof (bshort[1]);
91 prof[profcnt].pr_off = 0x80000f80;
92 prof[profcnt].pr_scale = 0x10000;
93 ++profcnt;
95 prof[profcnt].pr_base = bshort[2];
96 prof[profcnt].pr_size = sizeof (bshort[2]);
97 prof[profcnt].pr_off = 0x80001080;
98 prof[profcnt].pr_scale = 0x10000;
99 ++profcnt;
101 prof[profcnt].pr_base = bshort[3];
102 prof[profcnt].pr_size = sizeof (bshort[3]);
103 prof[profcnt].pr_off = 0x80001f80;
104 prof[profcnt].pr_scale = 0x10000;
105 ++profcnt;
107 prof[profcnt].pr_base = bshort[4];
108 prof[profcnt].pr_size = sizeof (bshort[4]);
109 prof[profcnt].pr_off = 0x80002080;
110 prof[profcnt].pr_scale = 0x10000;
111 ++profcnt;
113 prof[profcnt].pr_base = vlong[0];
114 prof[profcnt].pr_size = sizeof (vlong[0]);
115 prof[profcnt].pr_off = 0x80000080;
116 prof[profcnt].pr_scale = 0x10000;
117 ++profcnt;
119 /* Set up overflow counter (must be last on Irix). */
120 prof[profcnt].pr_base = &ovfl;
121 prof[profcnt].pr_size = sizeof (ovfl);
122 prof[profcnt].pr_off = 0;
123 prof[profcnt].pr_scale = 2;
124 ++profcnt;
126 /* Turn it on. */
127 if (sprofil (prof, profcnt, &tv, PROF_UINT) < 0)
129 if (errno == ENOSYS)
130 exit (0);
131 perror ("sprofil");
132 exit (1);
135 t_tick = tv.tv_sec + 1e-6 * tv.tv_usec;
136 printf ("profiling period = %g ms\n", 1e3 * t_tick);
138 gettimeofday (&start, NULL);
141 for (i = 0; i < 21; ++i)
142 sum += fac (i);
144 gettimeofday (&tv, NULL);
145 timersub (&tv, &start, &tv);
146 delta = tv.tv_sec + 1e-6 * tv.tv_usec;
148 while (delta < 1000 * t_tick);
150 printf ("sum = 0x%lx\n", sum);
152 /* Turn it off. */
153 if (sprofil (NULL, 0, NULL, 0) < 0)
155 if (errno == ENOSYS)
156 exit (0);
157 perror ("sprofil");
158 exit (1);
161 printf ("overflow = %u\n", ovfl);
162 for (i = 0; i < NELEMS (taddr); ++i)
163 for (j = 0; j < 0x10000 / sizeof (int); ++j)
164 if (buf[i][j] != 0)
165 printf ("%0*Zx\t%u\t(buffer %d)\n",
166 (int) (sizeof (size_t) * 2),
167 (taddr[i] + ((char *) &buf[i][j] - (char *) &buf[i][0])),
168 buf[i][j], i);
170 return 0;