Back to index

glibc  2.9
Defines | Functions | Variables
gmon.c File Reference
#include <sys/param.h>
#include <sys/time.h>
#include <sys/gmon.h>
#include <sys/gmon_out.h>
#include <sys/uio.h>
#include <errno.h>
#include <stdio.h>
#include <fcntl.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <libc-internal.h>
#include <not-cancel.h>

Go to the source code of this file.

Defines

#define SCALE_1_TO_1   0x10000L
#define ERR(s)   write_not_cancel (STDERR_FILENO, s, sizeof (s) - 1)
#define NARCS_PER_WRITEV   32
#define O_NOFOLLOW   0

Functions

void moncontrol (int mode)
void __moncontrol (int mode)
static void write_hist (int fd) internal_function
static void write_call_graph (int fd) internal_function
static void write_bb_counts (int fd) internal_function
 weak_alias (__moncontrol, moncontrol)
 weak_alias (__monstartup, monstartup)
static void write_gmon (void)
void __write_profiling (void)
 weak_alias (__write_profiling, write_profiling)

Variables

struct __bb *__bb_head attribute_hidden
static int s_scale

Define Documentation

#define ERR (   s)    write_not_cancel (STDERR_FILENO, s, sizeof (s) - 1)

Definition at line 62 of file gmon.c.

#define NARCS_PER_WRITEV   32
#define O_NOFOLLOW   0
#define SCALE_1_TO_1   0x10000L

Definition at line 60 of file gmon.c.


Function Documentation

void __moncontrol ( int  mode)

Definition at line 76 of file gmon.c.

{
  struct gmonparam *p = &_gmonparam;

  /* Don't change the state if we ran into an error.  */
  if (p->state == GMON_PROF_ERROR)
    return;

  if (mode)
    {
      /* start */
      __profil((void *) p->kcount, p->kcountsize, p->lowpc, s_scale);
      p->state = GMON_PROF_ON;
    }
  else
    {
      /* stop */
      __profil(NULL, 0, 0, 0);
      p->state = GMON_PROF_OFF;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void __write_profiling ( void  )

Definition at line 372 of file gmon.c.

{
  int save = _gmonparam.state;
  _gmonparam.state = GMON_PROF_OFF;
  if (save == GMON_PROF_ON)
    write_gmon ();
  _gmonparam.state = save;
}

Here is the call graph for this function:

void moncontrol ( int  mode)

Definition at line 98 of file gmon.c.

{
  register int o;
  char *cp;
  struct gmonparam *p = &_gmonparam;

  /*
   * round lowpc and highpc to multiples of the density we're using
   * so the rest of the scaling (here and in gprof) stays in ints.
   */
  p->lowpc = ROUNDDOWN(lowpc, HISTFRACTION * sizeof(HISTCOUNTER));
  p->highpc = ROUNDUP(highpc, HISTFRACTION * sizeof(HISTCOUNTER));
  p->textsize = p->highpc - p->lowpc;
  p->kcountsize = ROUNDUP(p->textsize / HISTFRACTION, sizeof(*p->froms));
  p->hashfraction = HASHFRACTION;
  p->log_hashfraction = -1;
  /* The following test must be kept in sync with the corresponding
     test in mcount.c.  */
  if ((HASHFRACTION & (HASHFRACTION - 1)) == 0) {
      /* if HASHFRACTION is a power of two, mcount can use shifting
        instead of integer division.  Precompute shift amount. */
      p->log_hashfraction = ffs(p->hashfraction * sizeof(*p->froms)) - 1;
  }
  p->fromssize = p->textsize / HASHFRACTION;
  p->tolimit = p->textsize * ARCDENSITY / 100;
  if (p->tolimit < MINARCS)
    p->tolimit = MINARCS;
  else if (p->tolimit > MAXARCS)
    p->tolimit = MAXARCS;
  p->tossize = p->tolimit * sizeof(struct tostruct);

  cp = calloc (p->kcountsize + p->fromssize + p->tossize, 1);
  if (! cp)
    {
      ERR("monstartup: out of memory\n");
      p->tos = NULL;
      p->state = GMON_PROF_ERROR;
      return;
    }
  p->tos = (struct tostruct *)cp;
  cp += p->tossize;
  p->kcount = (HISTCOUNTER *)cp;
  cp += p->kcountsize;
  p->froms = (ARCINDEX *)cp;

  p->tos[0].link = 0;

  o = p->highpc - p->lowpc;
  if (p->kcountsize < (u_long) o)
    {
#ifndef hp300
      s_scale = ((float)p->kcountsize / o ) * SCALE_1_TO_1;
#else
      /* avoid floating point operations */
      int quot = o / p->kcountsize;

      if (quot >= 0x10000)
       s_scale = 1;
      else if (quot >= 0x100)
       s_scale = 0x10000 / quot;
      else if (o >= 0x800000)
       s_scale = 0x1000000 / (o / (p->kcountsize >> 8));
      else
       s_scale = 0x1000000 / ((o << 8) / p->kcountsize);
#endif
    } else
      s_scale = SCALE_1_TO_1;

  __moncontrol(1);
}

Here is the call graph for this function:

Definition at line 174 of file gmon.c.

{
  u_char tag = GMON_TAG_TIME_HIST;
  struct gmon_hist_hdr thdr __attribute__ ((aligned (__alignof__ (char *))));

  if (_gmonparam.kcountsize > 0)
    {
      struct iovec iov[3] =
        {
         { &tag, sizeof (tag) },
         { &thdr, sizeof (struct gmon_hist_hdr) },
         { _gmonparam.kcount, _gmonparam.kcountsize }
       };

      *(char **) thdr.low_pc = (char *) _gmonparam.lowpc;
      *(char **) thdr.high_pc = (char *) _gmonparam.highpc;
      *(int32_t *) thdr.hist_size = (_gmonparam.kcountsize
                                 / sizeof (HISTCOUNTER));
      *(int32_t *) thdr.prof_rate = __profile_frequency ();
      strncpy (thdr.dimen, "seconds", sizeof (thdr.dimen));
      thdr.dimen_abbrev = 's';

      writev_not_cancel_no_status (fd, iov, 3);
    }
}

Here is the call graph for this function:

Definition at line 386 of file gmon.c.

{
  __moncontrol (0);

  if (_gmonparam.state != GMON_PROF_ERROR)
    write_gmon ();

  /* free the memory. */
  free (_gmonparam.tos);
}

Here is the call graph for this function:

static void internal_function write_bb_counts ( int  fd) [static]

Definition at line 272 of file gmon.c.

{
  struct __bb *grp;
  u_char tag = GMON_TAG_BB_COUNT;
  size_t ncounts;
  size_t i;

  struct iovec bbhead[2] =
    {
      { &tag, sizeof (tag) },
      { &ncounts, sizeof (ncounts) }
    };
  struct iovec bbbody[8];
  size_t nfilled;

  for (i = 0; i < (sizeof (bbbody) / sizeof (bbbody[0])); i += 2)
    {
      bbbody[i].iov_len = sizeof (grp->addresses[0]);
      bbbody[i + 1].iov_len = sizeof (grp->counts[0]);
    }

  /* Write each group of basic-block info (all basic-blocks in a
     compilation unit form a single group). */

  for (grp = __bb_head; grp; grp = grp->next)
    {
      ncounts = grp->ncounts;
      writev_not_cancel_no_status (fd, bbhead, 2);
      for (nfilled = i = 0; i < ncounts; ++i)
       {
         if (nfilled > (sizeof (bbbody) / sizeof (bbbody[0])) - 2)
           {
             writev_not_cancel_no_status (fd, bbbody, nfilled);
             nfilled = 0;
           }

         bbbody[nfilled++].iov_base = (char *) &grp->addresses[i];
         bbbody[nfilled++].iov_base = &grp->counts[i];
       }
      if (nfilled > 0)
       writev_not_cancel_no_status (fd, bbbody, nfilled);
    }
}

Here is the caller graph for this function:

static void internal_function write_call_graph ( int  fd) [static]

Definition at line 209 of file gmon.c.

{
#define NARCS_PER_WRITEV    32
  u_char tag = GMON_TAG_CG_ARC;
  struct gmon_cg_arc_record raw_arc[NARCS_PER_WRITEV]
    __attribute__ ((aligned (__alignof__ (char*))));
  ARCINDEX from_index, to_index;
  u_long from_len;
  u_long frompc;
  struct iovec iov[2 * NARCS_PER_WRITEV];
  int nfilled;

  for (nfilled = 0; nfilled < NARCS_PER_WRITEV; ++nfilled)
    {
      iov[2 * nfilled].iov_base = &tag;
      iov[2 * nfilled].iov_len = sizeof (tag);

      iov[2 * nfilled + 1].iov_base = &raw_arc[nfilled];
      iov[2 * nfilled + 1].iov_len = sizeof (struct gmon_cg_arc_record);
    }

  nfilled = 0;
  from_len = _gmonparam.fromssize / sizeof (*_gmonparam.froms);
  for (from_index = 0; from_index < from_len; ++from_index)
    {
      if (_gmonparam.froms[from_index] == 0)
       continue;

      frompc = _gmonparam.lowpc;
      frompc += (from_index * _gmonparam.hashfraction
               * sizeof (*_gmonparam.froms));
      for (to_index = _gmonparam.froms[from_index];
          to_index != 0;
          to_index = _gmonparam.tos[to_index].link)
       {
         struct arc
           {
             char *frompc;
             char *selfpc;
             int32_t count;
           }
         arc;

         arc.frompc = (char *) frompc;
         arc.selfpc = (char *) _gmonparam.tos[to_index].selfpc;
         arc.count  = _gmonparam.tos[to_index].count;
         memcpy (raw_arc + nfilled, &arc, sizeof (raw_arc [0]));

         if (++nfilled == NARCS_PER_WRITEV)
           {
             writev_not_cancel_no_status (fd, iov, 2 * nfilled);
             nfilled = 0;
           }
       }
    }
  if (nfilled > 0)
    writev_not_cancel_no_status (fd, iov, 2 * nfilled);
}

Here is the caller graph for this function:

static void write_gmon ( void  ) [static]

Definition at line 319 of file gmon.c.

{
    struct gmon_hdr ghdr __attribute__ ((aligned (__alignof__ (int))));
    int fd = -1;
    char *env;

#ifndef O_NOFOLLOW
# define O_NOFOLLOW  0
#endif

    env = getenv ("GMON_OUT_PREFIX");
    if (env != NULL && !__libc_enable_secure)
      {
       size_t len = strlen (env);
       char buf[len + 20];
       __snprintf (buf, sizeof (buf), "%s.%u", env, __getpid ());
       fd = open_not_cancel (buf, O_CREAT|O_TRUNC|O_WRONLY|O_NOFOLLOW, 0666);
      }

    if (fd == -1)
      {
       fd = open_not_cancel ("gmon.out", O_CREAT|O_TRUNC|O_WRONLY|O_NOFOLLOW,
                           0666);
       if (fd < 0)
         {
           char buf[300];
           int errnum = errno;
           __fxprintf (NULL, "_mcleanup: gmon.out: %s\n",
                     __strerror_r (errnum, buf, sizeof buf));
           return;
         }
      }

    /* write gmon.out header: */
    memset (&ghdr, '\0', sizeof (struct gmon_hdr));
    memcpy (&ghdr.cookie[0], GMON_MAGIC, sizeof (ghdr.cookie));
    *(int32_t *) ghdr.version = GMON_VERSION;
    write_not_cancel (fd, &ghdr, sizeof (struct gmon_hdr));

    /* write PC histogram: */
    write_hist (fd);

    /* write call-graph: */
    write_call_graph (fd);

    /* write basic-block execution counts: */
    write_bb_counts (fd);

    close_not_cancel_no_status (fd);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void write_hist ( int  fd) [static]

Here is the caller graph for this function:


Variable Documentation

Definition at line 52 of file gmon.c.

int s_scale [static]

Definition at line 59 of file gmon.c.