forked from Imagelibrary/rtems
8247be669e
* itronmbf01/init.c, itronmbf01/itronmbf01.scn, itrontask02/init.c, itrontask03/itrontask03.scn, itrontask03/task1.c, itrontask04/itrontask04.scn, itrontask04/task3.c: Add optional managers to Makefiles. Clean up test cases so last output line follows END OF pattern. Make sure test case all run. All tests appeared ok on sis.
58 lines
1.3 KiB
C
58 lines
1.3 KiB
C
/* Task_1
|
|
*
|
|
* This routine serves as a test task. It verifies the task manager.
|
|
*
|
|
* Input parameters:
|
|
* argument - task argument
|
|
*
|
|
* Output parameters: NONE
|
|
*
|
|
* 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.rtems.com/license/LICENSE.
|
|
*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "system.h"
|
|
|
|
void Task_1()
|
|
{
|
|
ER status;
|
|
|
|
/*
|
|
* XXX - Change to itron routine.
|
|
*/
|
|
|
|
puts( "TA1 - rtems_task_wake_after - sleep 1 second" );
|
|
status = rtems_task_wake_after( 1*TICKS_PER_SECOND );
|
|
directive_failed( status, "rtems_task_wake_after" );
|
|
|
|
status = chg_pri( TA3_ID , 2 );
|
|
directive_failed( status, "chg_pri" );
|
|
|
|
puts( "TA1 - chg_pri - set TA3's priority to 2" );
|
|
|
|
puts( "TA1 - sus_tsk - suspend TA2" );
|
|
status = sus_tsk( TA2_ID );
|
|
directive_failed( status, "sus_tsk of TA2" );
|
|
|
|
puts( "TA1 - - delete TA2" );
|
|
status = ter_tsk( TA2_ID );
|
|
directive_failed( status, "ter_tsk of TA2" );
|
|
|
|
/*
|
|
* XXX - Change to itron routine.
|
|
*/
|
|
|
|
puts( "TA1 - rtems_task_wake_after - sleep for 5 seconds" );
|
|
status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
|
|
directive_failed( status, "rtems_task_wake_after" );
|
|
|
|
puts( "*** END OF ITRON TASK TEST 3 ***" );
|
|
rtems_test_exit( 0 );
|
|
}
|