OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [tmtests/] [tmck/] [task1.c] - Rev 173

Compare with Previous | Blame | View Log

/*
 *
 *  COPYRIGHT (c) 1989-1999.
 *  On-Line Applications Research Corporation (OAR).
 *
 *  The license and distribution terms for this file may be
 *  found in the file LICENSE in this distribution or at
 *  http://www.OARcorp.com/rtems/license.html.
 *
 *  $Id: task1.c,v 1.2 2001-09-27 12:02:46 chris Exp $
 */
 
 
#define TEST_INIT
#include "system.h"
 
#define MAXIMUM_DISTRIBUTION 10000
 
#undef OPERATION_COUNT
#define OPERATION_COUNT    100000
 
int Distribution[ MAXIMUM_DISTRIBUTION + 1 ];
 
rtems_task Task_1(
  rtems_task_argument argument
);
 
void check_read_timer( void );
 
rtems_task Init(
  rtems_task_argument argument
)
{
  rtems_id          id;
  rtems_status_code status;
 
  /*
   *  Tell the Timer Driver what we are doing 
   */
 
  Set_find_average_overhead( 1 );
 
  Print_Warning();
 
  puts( "\n\n*** TIME CHECKER ***" );
 
  Task_name[ 1 ] = rtems_build_name( 'T', 'A', '1', ' ' ),
 
  status = rtems_task_create(
    1,
    5,
    RTEMS_MINIMUM_STACK_SIZE,
    RTEMS_DEFAULT_MODES,
    RTEMS_DEFAULT_ATTRIBUTES,
    &id
  );
  directive_failed( status, "rtems_task_create of TA1" );
 
  status = rtems_task_start( id, Task_1, 0 );
  directive_failed( status, "rtems_task_start of TA1" );
 
  status = rtems_task_delete( RTEMS_SELF );
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
}
 
rtems_task Task_1(
  rtems_task_argument argument
)
{
  rtems_unsigned32 index;
 
  check_read_timer();
rtems_test_pause();
 
  Timer_initialize();
  end_time = Read_timer();
 
  put_time(
    "NULL timer stopped at",
    end_time,
    1,
    0,
    0
  );
 
  Timer_initialize();
  for ( index = 1 ; index <= 1000 ; index++ )
    (void) Empty_function();
  end_time = Read_timer();
 
  put_time(
    "LOOP (1000) timer stopped at",
    end_time,
    1,
    0,
    0
  );
 
  Timer_initialize();
  for ( index = 1 ; index <= 10000 ; index++ )
    (void) Empty_function();
  end_time = Read_timer();
 
  put_time(
    "LOOP (10000) timer stopped at",
    end_time,
    1,
    0,
    0
  );
 
  Timer_initialize();
  for ( index = 1 ; index <= 50000 ; index++ )
    (void) Empty_function();
  end_time = Read_timer();
 
  put_time(
    "LOOP (50000) timer stopped at",
    end_time,
    1,
    0,
    0
  );
 
  Timer_initialize();
  for ( index = 1 ; index <= 100000 ; index++ )
    (void) Empty_function();
  end_time = Read_timer();
 
  put_time(
    "LOOP (100000) timer stopped at",
    end_time,
    1,
    0,
    0
  );
 
  puts( "*** END OF TIME CHECKER ***" );
  exit( 0 );
}
 
void check_read_timer()
{
  rtems_unsigned32 index;
  rtems_unsigned32 time;
 
  for ( index = 1 ; index <= MAXIMUM_DISTRIBUTION ; index++ )
    Distribution[ index ] = 0;
 
  for ( index = 1 ; index <= OPERATION_COUNT ; index++ ) {
    Timer_initialize();
    end_time = Read_timer();
    if ( end_time > MAXIMUM_DISTRIBUTION ) {
      /*
       *  Under UNIX a simple process swap takes longer than we 
       *  consider valid for our testing purposes.
       */
      printf( "TOO LONG (%d) at index %d!!!\n", end_time, index );
#if defined(unix)
      index--; 
      continue;
#else
      exit( 1 );
#endif
    }
    else
      Distribution[ end_time ]++;
  }
 
  printf( "Units may not be in microseconds for this test!!!\n" );
  time = 0;
  for ( index = 0 ; index <= MAXIMUM_DISTRIBUTION ; index++ ) {
    time += (Distribution[ index ] * index);
    if ( Distribution[ index ] != 0 )
      printf( "%d %d\n", index, Distribution[ index ] );
  }
  printf( "Total time = %d\n", time );
  printf( "Average time = %d\n", time / OPERATION_COUNT );
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.