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/] [mptests/] [mp03/] [task1.c] - Rev 362
Go to most recent revision | Compare with Previous | Blame | View Log
/* Test_task * * This task suspends and resumes a remote task. * * 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.OARcorp.com/rtems/license.html. * * $Id: task1.c,v 1.2 2001-09-27 12:02:17 chris Exp $ */ #include "system.h" /*PAGE * * Test_Task_Support * */ void Test_Task_Support( rtems_unsigned32 node ) { rtems_event_set events; rtems_status_code status; if ( Multiprocessing_configuration.node == node ) { for ( ; ; ) { status = rtems_event_receive( RTEMS_EVENT_16, RTEMS_NO_WAIT, RTEMS_NO_TIMEOUT, &events ); if ( status == RTEMS_SUCCESSFUL ) break; fatal_directive_status(status, RTEMS_UNSATISFIED, "rtems_event_receive"); status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); directive_failed( status, "rtems_task_wake_after" ); put_name( Task_name[ node ], FALSE ); puts( " - Suspending remote task" ); status = rtems_task_suspend( remote_tid ); directive_failed( status, "rtems_task_suspend" ); status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); directive_failed( status, "rtems_task_wake_after" ); put_name( Task_name[ node ], FALSE ); puts( " - Resuming remote task" ); status = rtems_task_resume( remote_tid ) ; directive_failed( status, "rtems_task_resume" ); } } else { for ( ; ; ) { status = rtems_event_receive( RTEMS_EVENT_16, RTEMS_NO_WAIT, RTEMS_NO_TIMEOUT, &events ); if ( status == RTEMS_SUCCESSFUL ) break; fatal_directive_status(status, RTEMS_UNSATISFIED, "rtems_event_receive"); put_name( Task_name[ remote_node ], FALSE ); puts( " - have I been suspended???" ); status = rtems_task_wake_after( TICKS_PER_SECOND / 2 ); directive_failed( status, "rtems_task_wake_after" ); } } } /*PAGE * * Test_task */ rtems_task Test_task( rtems_task_argument argument ) { rtems_id tid; rtems_status_code status; status = rtems_task_ident( RTEMS_SELF, RTEMS_SEARCH_ALL_NODES, &tid ); directive_failed( status, "rtems_task_ident" ); puts( "Getting TID of remote task" ); remote_node = (Multiprocessing_configuration.node == 1) ? 2 : 1; printf( "Remote task's name is : " ); put_name( Task_name[ remote_node ], TRUE ); do { status = rtems_task_ident( Task_name[ remote_node ], RTEMS_SEARCH_ALL_NODES, &remote_tid ); } while ( status != RTEMS_SUCCESSFUL ); directive_failed( status, "rtems_task_ident" ); status = rtems_timer_fire_after( Timer_id[ 1 ], 5 * TICKS_PER_SECOND, Delayed_send_event, NULL ); directive_failed( status, "rtems_timer_fire_after" ); Test_Task_Support( 1 ); status = rtems_timer_fire_after( Timer_id[ 1 ], 5 * TICKS_PER_SECOND, Delayed_send_event, NULL ); directive_failed( status, "rtems_timer_fire_after" ); if ( Multiprocessing_configuration.node == 1 ) { status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); directive_failed( status, "rtems_task_wake_after" ); } Test_Task_Support( 2 ); puts( "*** END OF TEST 3 ***" ); exit( 0 ); }
Go to most recent revision | Compare with Previous | Blame | View Log