stats.c File Reference

Statistics. More...

#include "internal.h"
#include <sys/time.h>
#include <unistd.h>

Include dependency graph for stats.c:

Go to the source code of this file.

Defines
#define	tm_USE_times   0
	If true, use times() to collect timing statistics.
#define	tv_fmt   "%.7f"
#define	tv_fmt_s   "%8.4f"
#define	tv_fmt_args(V)   (double) (V)
Functions
static __inline double	tv_2_double (struct timeval *t)
static void	_tm_print_utilization (const char *name, tm_type *t, size_t *n, int nn, size_t *sum)
	Print utilizations.
void	tm_print_stats ()
	API: Print statistics.
void	tm_print_color_transition_stats ()
	API: Print color transitions statistics.
void	tm_print_phase_transition_stats ()
	API: Print phase transitions statistics.
void	tm_print_block_stats ()
	API: Print block statistics.
void	tm_time_stat_print_ (tm_time_stat *ts, int flags, size_t *alloc_count_p)
	Print timing stats component.
void	tm_time_stat_begin (tm_time_stat *ts)
	Begin timing stats collection.
void	tm_time_stat_end (tm_time_stat *ts)
	End timing stats collection.
void	tm_print_time_stats ()
	API: Print timing stats.

---

Detailed Description

Statistics.

Definition in file stats.c.

---

Define Documentation

#define tm_USE_times   0

If true, use times() to collect timing statistics.

Definition at line 10 of file stats.c.

#define tv_fmt   "%.7f"

Referenced by tm_time_stat_print_().

#define tv_fmt_args

(

V

)

(double) (V)

Referenced by tm_time_stat_print_().

#define tv_fmt_s   "%8.4f"

Referenced by tm_time_stat_print_().

---

Function Documentation

static void _tm_print_utilization	(	const char *	name,
		tm_type *	t,
		size_t *	n,
		int	nn,
		size_t *	sum
	)			[static]

Print utilizations.

Definition at line 33 of file stats.c.

References tm_type::size, tm, tm_abort(), tm_ALLOC, tm_B, tm_b, tm_b_NU, tm_BLACK, tm_color_name, tm_ECRU, tm_GREY, tm_msg(), tm_msg1(), tm_NU, tm_ROOT, tm_SCAN, tm_SWEEP, and tm_UNMARK.

Referenced by tm_print_stats().

{
  int j;

  tm_msg(name);

  /* Compute total number of nodes in use. */
  if ( nn > tm_NU ) {
    switch ( tm.phase ) {
    case tm_ALLOC:
    case tm_UNMARK:
    case tm_ROOT:
    case tm_SCAN:
      n[tm_NU] = n[tm_ECRU] + n[tm_GREY] + n[tm_BLACK];
      break;
      
    case tm_SWEEP:
      n[tm_NU] = n[tm_GREY] + n[tm_BLACK];
      break;
      
    default:
      tm_abort();
    }
    if ( sum && sum != n )
      sum[tm_NU] += n[tm_NU];
  }

  /* Compute total number of bytes in use. */

  if ( sum != n ) {
    if ( nn > tm_b ) {
      n[tm_b] = t ? n[tm_NU] * t->size : 0;
      if ( sum )
        sum[tm_b] += n[tm_b];
    }

    /* Compute avg. bytes / node. */
    if ( nn > tm_b_NU ) {
      n[tm_b_NU] = n[tm_NU] ? n[tm_b] / n[tm_NU] : 0;
      if ( sum )
        sum[tm_b_NU] = sum[tm_NU] ? sum[tm_b] / sum[tm_NU] : 0;
    }

  }

  /* Print fields. */
  for ( j = 0; j < nn; j ++ ) {
    if ( sum && sum != n && j <= tm_B ) {
      sum[j] += n[j];
    }
    tm_msg1("%c%-4lu ", tm_color_name[j][0], (unsigned long) n[j]);
  }

  tm_msg1("\n");
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_print_color_transition_stats

(

)

API: Print color transitions statistics.

Definition at line 142 of file stats.c.

References tm_data::n_color_transitions, tm, tm_color_name, tm_msg(), tm_msg1(), tm_msg_enable(), and tm_TOTAL.

Referenced by tm_print_stats().

{
  int i, j;

  // tm_assert(sizeof(tm_color_name) / sizeof(tm_color_name[0]) >= tm_TOTAL + 1);

  tm_msg_enable("C", 1);
  tm_msg("C { color transitions \n");

  tm_msg("C   %-10s ", "from\\to");
  for ( i = 0; i <= tm_TOTAL; ++ i ) {
    tm_msg1("%-10s ", tm_color_name[i]);
  }
  tm_msg1("\n");


  for ( i = 0; i <= tm_TOTAL; ++ i ) {
    tm_msg("C   %-10s ", tm_color_name[i]);
    for ( j = 0; j <= tm_TOTAL; ++ j ) {
      tm_msg1("%-10lu ", (unsigned long) tm.n_color_transitions[i][j]);
    }
    tm_msg1("\n");
  }

  tm_msg("C }\n");
  tm_msg_enable("C", 0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_print_phase_transition_stats

(

)

API: Print phase transitions statistics.

Definition at line 175 of file stats.c.

References tm_data::n_phase_transitions, tm, tm_msg(), tm_msg1(), tm_msg_enable(), tm_phase_END, and tm_phase_name.

Referenced by tm_print_stats().

{
  int i, j;
  
  // tm_assert(sizeof(tm_phase_name) / sizeof(tm_phase_name[0]) == tm_phase_END + 1);

  tm_msg_enable("P", 1);
  tm_msg("P { phase transitions \n");

  tm_msg("P   %-10s ", "from\\to");
  for ( i = 0; i <= tm_phase_END; ++ i ) {
    tm_msg1("%-10s ", tm_phase_name[i]);
  }
  tm_msg1("\n");


  for ( i = 0; i <= tm_phase_END; ++ i ) {
    tm_msg("P   %-10s ", tm_phase_name[i]);
    for ( j = 0; j <= tm_phase_END; ++ j ) {
      tm_msg1("%-10lu ", (unsigned long) tm.n_phase_transitions[i][j]);
    }
    tm_msg1("\n");
  }

  tm_msg("P }\n");
  tm_msg_enable("P", 0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_time_stat_begin

(

tm_time_stat *

ts

)

Begin timing stats collection.

Definition at line 269 of file stats.c.

References tm_time_stat::t0, tm_time_stat::t01, and tv_2_double().

Referenced by __tm_write_barrier(), __tm_write_barrier_pure(), __tm_write_barrier_root(), _tm_alloc_type_inner(), _tm_gc_full_type_inner(), _tm_os_alloc(), _tm_os_free(), tm_alloc(), tm_alloc_desc(), tm_free(), tm_gc_full(), tm_realloc(), and tm_write_barrier_node().

{
#if tm_USE_times
  struct tms t0;
  times(&t0);
  ts->t0 = (double) t0.tms_utime / (double) CLOCKS_PER_SEC;
  ts->t01 = (double) t0.tms_stime / (double) CLOCKS_PER_SEC;
#else
  struct timeval t0;
  gettimeofday(&t0, 0);
  ts->t0 = tv_2_double(&t0);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_time_stat_end

(

tm_time_stat *

ts

)

End timing stats collection.

Definition at line 287 of file stats.c.

References tm_time_stat::count, tm_time_stat::t0, tm_time_stat::t01, tm_time_stat::t1, tm_time_stat::t11, tm_time_stat::ta, tm_time_stat::td, tm_time_stat_print_(), tm_time_stat::ts, tv_2_double(), tm_time_stat::tw, and tm_time_stat::tw_changed.

Referenced by __tm_write_barrier(), __tm_write_barrier_pure(), __tm_write_barrier_root(), _tm_alloc_type_inner(), _tm_gc_full_type_inner(), _tm_os_alloc(), _tm_os_free(), tm_alloc(), tm_alloc_desc(), tm_free(), tm_gc_full(), tm_realloc(), and tm_write_barrier_node().

{
#if tm_USE_times
  {
    struct tms t1;
    times(&t1);
    ts->t1 = (double) t1.tms_utime / (double) CLOCKS_PER_SEC;
    ts->t11 = (double) t1.tms_stime / (double) CLOCKS_PER_SEC;
  }
#else
  {
    struct timeval t1;
    gettimeofday(&t1, 0);
    ts->t1 = tv_2_double(&t1);
  }
#endif

  ++ ts->count;

  /* Compute dt. */
  ts->td = ts->t1 - ts->t0;
#if tm_USE_times
  ts->td += ts->t11 - ts->t01;
#endif

  /* Compute sum of dt. */
  ts->ts += ts->td;

  /* Compute avg time. */
  ts->ta = ts->ts / (double) ts->count;

  /* Compute worst time. */
  if ( (ts->tw_changed = ts->tw < ts->td) ) {
    ts->tw = ts->td;
  }

#if 0
  /* Print stats. */
  tm_time_stat_print_(ts, ts->tw_changed ? 1 : 0, 0);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_time_stat_print_	(	tm_time_stat *	ts,
		int	flags,
		size_t *	alloc_count_p
	)

Print timing stats component.

Definition at line 332 of file stats.c.

References tm_time_stat::count, tm_time_stat::name, tm_time_stat::ta, tm_time_stat::td, tm_msg(), tm_msg1(), tm_time_stat::ts, tv_fmt, tv_fmt_args, tv_fmt_s, and tm_time_stat::tw.

Referenced by tm_print_time_stats(), and tm_time_stat_end().

{
#define tv_fmt "%.7f"
#define tv_fmt_s "%8.4f"
#define tv_fmt_args(V) (double) (V)

  tm_msg("T   %-12s "
         ,
         ts->name);

  if ( ! (flags & (2|4)) ) {
    tm_msg1(
           " dt " tv_fmt
           ,
           tv_fmt_args(ts->td)
           );
  }

  tm_msg1(
         " st " tv_fmt_s
         ,
         tv_fmt_args(ts->ts)
         );

  if ( flags & 1 ) {
    tm_msg1(
           " wt " tv_fmt
           ,
           tv_fmt_args(ts->tw)
           );
  }

  if ( flags & 2 ) {
    tm_msg1(
           " c %8lu"
           , 
           (unsigned long) ts->count
           );
  }

  if ( flags & 4 ) {
    tm_msg1(
            " at %.7f"
            ,
            (double) ts->ta
            );
  }

  if ( alloc_count_p ) {
    tm_msg1(
            " A %8lu"
            ,
            (unsigned long) *alloc_count_p
            );
  }

  tm_msg1("\n");
}

Here is the call graph for this function:

Here is the caller graph for this function:

static __inline double tv_2_double

(

struct timeval *

t

)

[static]

Definition at line 22 of file stats.c.

Referenced by tm_time_stat_begin(), and tm_time_stat_end().

{
  return (double) t->tv_sec + (double) t->tv_usec / 1000000.0;
}

Here is the caller graph for this function: