glibc/gmon/tst-sprofil.c
Adhemerval Zanella 460860f457 Remove ia64-linux-gnu
Linux 6.7 removed ia64 from the official tree [1], following the general
principle that a glibc port needs upstream support for the architecture
in all the components it depends on (binutils, GCC, and the Linux
kernel).

Apart from the removal of sysdeps/ia64 and sysdeps/unix/sysv/linux/ia64,
there are updates to various comments referencing ia64 for which removal
of those references seemed appropriate. The configuration is removed
from README and build-many-glibcs.py.

The CONTRIBUTED-BY, elf/elf.h, manual/contrib.texi (the porting
mention), *.po files, config.guess, and longlong.h are not changed.

For Linux it allows cleanup some clone2 support on multiple files.

The following bug can be closed as WONTFIX: BZ 22634 [2], BZ 14250 [3],
BZ 21634 [4], BZ 10163 [5], BZ 16401 [6], and BZ 11585 [7].

[1] https://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git/commit/?id=43ff221426d33db909f7159fdf620c3b052e2d1c
[2] https://sourceware.org/bugzilla/show_bug.cgi?id=22634
[3] https://sourceware.org/bugzilla/show_bug.cgi?id=14250
[4] https://sourceware.org/bugzilla/show_bug.cgi?id=21634
[5] https://sourceware.org/bugzilla/show_bug.cgi?id=10163
[6] https://sourceware.org/bugzilla/show_bug.cgi?id=16401
[7] https://sourceware.org/bugzilla/show_bug.cgi?id=11585
Reviewed-by: Carlos O'Donell <carlos@redhat.com>
2024-01-08 17:09:36 -03:00

170 lines
4.4 KiB
C

/* Copyright (C) 2001-2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/profil.h>
#include <bits/wordsize.h>
#define NELEMS(a) (sizeof (a)/sizeof ((a)[0]))
size_t taddr[] =
{
0x00001000, /* elf32/hppa */
0x08048000, /* Linux elf32/x86 */
0x80000000, /* Linux elf32/m68k */
0x00400000, /* Linux elf32/mips */
0x01800000, /* Linux elf32/ppc */
0x00010000 /* Linux elf32/sparc */
#if __WORDSIZE > 32
,
0x0000000120000000, /* Linux elf64/alpha */
0x4000000000001000, /* elf64/hppa */
0x0000000100000000 /* Linux elf64/sparc */
#endif
};
unsigned int buf[NELEMS (taddr)][0x10000 / sizeof (int)];
unsigned int bshort[5][0x100 / sizeof (int)];
unsigned int blong[1][0x1000 / sizeof (int)];
unsigned int vlong[1][0x2000 / sizeof (int)];
static long int
fac (long int n)
{
if (n == 0)
return 1;
return n * fac (n - 1);
}
int
main (int argc, char **argv)
{
unsigned int ovfl = 0, profcnt = 0;
struct timeval tv, start;
struct prof prof[32];
double t_tick, delta;
long int sum = 0;
int i, j;
for (i = 0; i < NELEMS (taddr); ++i)
{
prof[profcnt].pr_base = buf[i];
prof[profcnt].pr_size = sizeof (buf[i]);
prof[profcnt].pr_off = taddr[i];
prof[profcnt].pr_scale = 0x10000;
++profcnt;
}
prof[profcnt].pr_base = blong[0];
prof[profcnt].pr_size = sizeof (blong[0]);
prof[profcnt].pr_off = 0x80001000;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = bshort[0];
prof[profcnt].pr_size = sizeof (bshort[0]);
prof[profcnt].pr_off = 0x80000080;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = bshort[1];
prof[profcnt].pr_size = sizeof (bshort[1]);
prof[profcnt].pr_off = 0x80000f80;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = bshort[2];
prof[profcnt].pr_size = sizeof (bshort[2]);
prof[profcnt].pr_off = 0x80001080;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = bshort[3];
prof[profcnt].pr_size = sizeof (bshort[3]);
prof[profcnt].pr_off = 0x80001f80;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = bshort[4];
prof[profcnt].pr_size = sizeof (bshort[4]);
prof[profcnt].pr_off = 0x80002080;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
prof[profcnt].pr_base = vlong[0];
prof[profcnt].pr_size = sizeof (vlong[0]);
prof[profcnt].pr_off = 0x80000080;
prof[profcnt].pr_scale = 0x10000;
++profcnt;
/* Set up overflow counter (must be last on Irix). */
prof[profcnt].pr_base = &ovfl;
prof[profcnt].pr_size = sizeof (ovfl);
prof[profcnt].pr_off = 0;
prof[profcnt].pr_scale = 2;
++profcnt;
/* Turn it on. */
if (sprofil (prof, profcnt, &tv, PROF_UINT) < 0)
{
if (errno == ENOSYS)
exit (0);
perror ("sprofil");
exit (1);
}
t_tick = tv.tv_sec + 1e-6 * tv.tv_usec;
printf ("profiling period = %g ms\n", 1e3 * t_tick);
gettimeofday (&start, NULL);
do
{
for (i = 0; i < 21; ++i)
sum += fac (i);
gettimeofday (&tv, NULL);
timersub (&tv, &start, &tv);
delta = tv.tv_sec + 1e-6 * tv.tv_usec;
}
while (delta < 1000 * t_tick);
printf ("sum = 0x%lx\n", sum);
/* Turn it off. */
if (sprofil (NULL, 0, NULL, 0) < 0)
{
if (errno == ENOSYS)
exit (0);
perror ("sprofil");
exit (1);
}
printf ("overflow = %u\n", ovfl);
for (i = 0; i < NELEMS (taddr); ++i)
for (j = 0; j < 0x10000 / sizeof (int); ++j)
if (buf[i][j] != 0)
printf ("%0*zx\t%u\t(buffer %d)\n",
(int) (sizeof (size_t) * 2),
(taddr[i] + ((char *) &buf[i][j] - (char *) &buf[i][0])),
buf[i][j], i);
return 0;
}