stats.h File Reference

Statistics. More...

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	tm_time_stat
	Timing statstics. More...
Functions
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_stats ()
	API: Print statistics.
void	tm_print_block_stats ()
	API: Print block statistics.
void	tm_print_time_stats ()
	API: Print timing stats.

---

Detailed Description

Statistics.

Definition in file stats.h.

---

Function Documentation

void tm_print_block_stats

(

)

API: Print block statistics.

Definition at line 208 of file stats.c.

{
  tm_type *t;

  tm_block *b;

  tm_msg_enable("X", 1);

  tm_msg("X { b tb%lu[%lu] block_id %d\n",
         tm.n[tm_B],
         tm.n[tm_B] * tm_block_SIZE,
         tm.block_id
         );

  tm_list_LOOP(&tm.types, t);
  {
    tm_msg("X   t#%d @%p s%lu \n", t->id, (void*) t, (unsigned long) t->size);
    
    tm_list_LOOP(&t->blocks, b);
    {
      int j;

      _tm_block_validate(b);

      tm_msg("X     b#%d @%p s%lu ", (int) b->id, (void*) b, (unsigned long) b->size);

      for ( j = 0; j < sizeof(b->n)/sizeof(b->n[0]); j ++ ) {
        tm_msg1("%c%-4lu ", tm_color_name[j][0], (unsigned long) b->n[j]);
      }
      
      /* Parcel utilization. */
      tm_msg1("T/b%3d%% ", 
              (int) ((b->n[tm_TOTAL] * 100) / b->n[tm_CAPACITY])
        );

      /* Compute block utilization. */
      tm_msg1("(T-W)/b%3d%% ", 
              (int) (((b->n[tm_TOTAL] - b->n[tm_WHITE]) * 100) / b->n[tm_CAPACITY])
              );
              
      tm_msg1("\n");
    }
    tm_list_LOOP_END;
  }
  tm_list_LOOP_END;

  tm_msg("X }\n");

  tm_msg_enable("X", 0);
}

void tm_print_stats

(

)

API: Print statistics.

Definition at line 93 of file stats.c.

{
  tm_type *t;
  size_t sum[tm__LAST3];

  memset(sum, 0, sizeof(sum));

  tm_msg_enable("X", 1);

  tm_msg("X { t#%d : blk_in_use %lu[~%lu], blk_free %lu[~%lu]\n",
         tm.type_id,
         tm.n[tm_B],
         tm.n[tm_B] * tm_block_SIZE,
         tm.free_blocks_n,
         tm.free_blocks_n * tm_block_SIZE
         );

  tm_list_LOOP(&tm.types, t);
  {
    tm_msg("X  t#%d S%-6lu\n", t->id, (unsigned long) t->size, (unsigned) t->n[tm_B]);
    _tm_print_utilization("X    ", t, t->n, sizeof(t->n)/sizeof(t->n[0]), sum);
  }
  tm_list_LOOP_END;

  /* current/max number of blocks/bytes allocated from OS is in tm.n[]. */
  sum[tm_B_OS] = tm.n[tm_B_OS];
  sum[tm_b_OS] = tm.n[tm_b_OS];
  sum[tm_B_OS_M] = tm.n[tm_B_OS_M];
  sum[tm_b_OS_M] = tm.n[tm_b_OS_M];

  _tm_print_utilization("X  S ", 0, sum, sizeof(sum)/sizeof(sum[0]), sum);

  tm_msg("X }\n");

  tm_msg_enable("X", 0);

  tm_print_time_stats();

  tm_print_color_transition_stats();

  tm_print_phase_transition_stats();

  //tm_validate_lists();
}

void tm_print_time_stats

(

)

API: Print timing stats.

Definition at line 395 of file stats.c.

{
  int i;

  tm_msg_enable("T", 1);

  tm_msg("T {\n");

  tm_time_stat_print_(&tm.ts_os_alloc, ~0, 0);
  tm_time_stat_print_(&tm.ts_os_free, ~0, 0);
  tm_time_stat_print_(&tm.ts_alloc, ~0, 0);
  tm_time_stat_print_(&tm.ts_free, ~0, 0);
  tm_time_stat_print_(&tm.ts_gc, ~0, 0);
  tm_time_stat_print_(&tm.ts_barrier, ~0, 0);
  tm_time_stat_print_(&tm.ts_barrier_pure, ~0, 0);
  tm_time_stat_print_(&tm.ts_barrier_root, ~0, 0);
  tm_time_stat_print_(&tm.ts_barrier_black, ~0, 0);

  for ( i = 0; 
        i < (sizeof(tm.ts_phase) / sizeof(tm.ts_phase[0]));
        ++ i ) {
    tm_time_stat_print_(&tm.ts_phase[i], ~0, &tm.alloc_by_phase[i]);
  }

  tm_msg("T }\n");

  tm_msg_enable("T", 0);
}

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: