![Ulrich Drepper](/assets/img/avatar_default.png)
2003-07-31 Jakub Jelinek <jakub@redhat.com> * dlfcn/dlerror.c (once): New. (dlerror): Call __libc_once. (_dlerror_run): Remove once. 2003-07-31 Jakub Jelinek <jakub@redhat.com> * sysdeps/unix/sysv/linux/ia64/bits/sigcontext.h (struct sigcontext): Sync with 2.5.7 and 2.5.73 kernel changes. 2003-07-31 Jakub Jelinek <jakub@redhat.com> * dlfcn/eval.c (funcall): Add noinline attribute to shut up warnings. * elf/rtld.c (dl_main): Cast ElfW(Addr) arguments with %Zx/%Zd formats to size_t. * elf/dl-lookup.c (_dl_debug_bindings): Likewise. * elf/tst-tls6.c (do_test): Use %zd format for l_tls_modid. * elf/tst-tls8.c (do_test): Use %zd format for modid1 and modid2. * gmon/tst-sprofil.c (main): Add parens to shut up warning. * iconv/tst-iconv3.c (main): Use %td instead of %zd for pointer difference argument. * stdio-common/tst-wc-printf.c (main): Cast arguments with %C format to wint_t. * stdlib/tst-limits.c (main): For WORD_BIT and LONG_BIT, use %d format and cast expected value to int. * sysdeps/generic/libc-start.c (STATIC): Add __attribute__((always_inline) if LIBC_START_MAIN is already defined. * sysdeps/powerpc/fpu/w_sqrt.c (a_nan, a_inf): Change from uint32_t to ieee_float_shape_type. (__sqrt): Avoid type punning. * sysdeps/powerpc/fpu/w_sqrtf.c (a_nan, a_inf): Change from uint32_t to ieee_float_shape_type. (__sqrtf): Avoid type punning. * sysdeps/s390/s390-32/dl-machine.h (elf_machine_rela): Don't define refsym if in dl-conflict.c. * sysdeps/s390/s390-64/dl-machine.h (elf_machine_rela): Likewise. * sysdeps/unix/sysv/linux/i386/semctl.c (union semun): Add __old_buf. (__new_semctl): Shut up warning. * sysdeps/unix/sysv/linux/semctl.c (union semun): Add __old_buf. (__new_semctl): Shut up warning. * sysdeps/unix/sysv/linux/shmctl.c (__new_shmctl): Wrap long lines. Change old into union of __old_shmid_ds and __old_shminfo structs. Adjust all users. * wcsmbs/wcsmbs-tst1.c (main): Cast arguments with %C format to wint_t. 2003-07-31 Jakub Jelinek <jakub@redhat.com> * sysdeps/unix/sysv/linux/utimes.c (__utimes): Fix actime and modtime computation. * sysdeps/unix/sysv/linux/futimes.c (__futimes): Likewise. * sysdeps/posix/utimes.c (__utimes): Likewise.
173 lines
4.5 KiB
C
173 lines
4.5 KiB
C
/* Copyright (C) 2001, 2003 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
Contributed by David Mosberger-Tang <davidm@hpl.hp.com>.
|
|
|
|
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, write to the Free
|
|
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
02111-1307 USA. */
|
|
|
|
#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
|
|
,
|
|
0x4000000000000000, /* Linux elf64/ia64 */
|
|
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;
|
|
}
|