forked from Imagelibrary/rtems
11ef7b6a46
* itrontask04/init.c: Run all tests successfully with maxixum number of priorities as 16 instead of 256. This was done by temporarily modifying the score priority.h maximum. This allowed testing of all API code to ensure that it worked properly with a reduced number of priorities. Most modifications were to switch from hard-coded maximum to using the API provided methods to determine maximum number of priority levels.
96 lines
2.7 KiB
C
96 lines
2.7 KiB
C
/* Init
|
|
*
|
|
* This routine is the initialization task for this test program.
|
|
* It is called from init_exec and has the responsibility for creating
|
|
* and starting the tasks that make up the test. If the time of day
|
|
* clock is required for the test, it should also be set to a known
|
|
* value by this function.
|
|
*
|
|
* Input parameters: NONE
|
|
*
|
|
* Output parameters: NONE
|
|
*
|
|
* COPYRIGHT (c) 1989-2008.
|
|
* 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.rtems.com/license/LICENSE.
|
|
*
|
|
* $Id$
|
|
*/
|
|
|
|
#define CONFIGURE_INIT
|
|
#include "system.h"
|
|
#include <stdio.h>
|
|
|
|
#include <rtems.h>
|
|
|
|
void ITRON_Init( void )
|
|
{
|
|
ER status;
|
|
T_CTSK pk_ctsk;
|
|
|
|
puts( "\n\n*** ITRON TASK TEST 4 ***" );
|
|
|
|
status = chg_pri( 0, RTEMS_MAXIMUM_PRIORITY - 2 );
|
|
directive_failed( status, "chg_pri to MAX - 2" );
|
|
|
|
pk_ctsk.exinf = NULL;
|
|
pk_ctsk.tskatr = TA_HLNG;
|
|
pk_ctsk.stksz = RTEMS_MINIMUM_STACK_SIZE;
|
|
pk_ctsk.itskpri = 2;
|
|
|
|
pk_ctsk.task = Task_1;
|
|
status = cre_tsk( TA1_ID, &pk_ctsk );
|
|
directive_failed( status, "cre_tsk of TA1" );
|
|
|
|
pk_ctsk.task = Task_2;
|
|
status = cre_tsk( TA2_ID, &pk_ctsk );
|
|
directive_failed( status, "cre_tsk of TA2" );
|
|
|
|
pk_ctsk.itskpri = 1;
|
|
pk_ctsk.task = Task_3;
|
|
status = cre_tsk( TA3_ID, &pk_ctsk );
|
|
directive_failed( status, "cre_tsk of TA3" );
|
|
|
|
puts("INIT - dis_dsp while starting tasks");
|
|
status = dis_dsp( );
|
|
|
|
/* dispatching disabled -- NOT LEGAL TO PRINT UNTIL ENABLED */
|
|
|
|
directive_failed_with_level( status, "dis_dsp from ITRON_Init", 1 );
|
|
status = sta_tsk( TA1_ID, 0 );
|
|
directive_failed_with_level( status, "sta_tsk of TA1", 1 );
|
|
status = sta_tsk( TA2_ID, 0 );
|
|
directive_failed_with_level( status, "sta_tsk of TA2", 1 );
|
|
status = sta_tsk( TA3_ID, 0 );
|
|
directive_failed_with_level( status, "sta_tsk of TA3", 1 );
|
|
|
|
/* puts( "INIT - suspending TA2 3 times" ); */
|
|
status = sus_tsk( TA2_ID );
|
|
directive_failed_with_level( status, "sus_tsk of TA2", 1 );
|
|
status = sus_tsk( TA2_ID );
|
|
directive_failed_with_level( status, "sus_tsk of TA2", 1 );
|
|
status = sus_tsk( TA2_ID );
|
|
directive_failed_with_level( status, "sus_tsk of TA2", 1 );
|
|
|
|
status = ena_dsp( );
|
|
|
|
/* dispatching enabled -- LEGAL TO PRINT AGAIN */
|
|
|
|
puts("INIT - ena_dsp after starting tasks");
|
|
|
|
puts( "INIT - suspending TA1 3 times" );
|
|
status = sus_tsk( TA1_ID );
|
|
directive_failed( status, "sus_tsk of TA2" );
|
|
status = sus_tsk( TA1_ID );
|
|
directive_failed( status, "sus_tsk of TA2" );
|
|
status = sus_tsk( TA1_ID );
|
|
directive_failed( status, "sus_tsk of TA2" );
|
|
|
|
puts("INIT - exd_tsk");
|
|
exd_tsk();
|
|
directive_failed( 0, "exd_tsk" );
|
|
}
|