gmon/tst-sprofil.c

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