URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp09/] [task3.c] - Rev 173
Compare with Previous | Blame | View Log
/* Task_3 * * This routine serves as a test task. Its only purpose in life is to * generate the error where a message queue is deleted while a task * is waiting there for a message. * * 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: task3.c,v 1.2 2001-09-27 12:02:31 chris Exp $ */ #include "system.h" rtems_task Task_3( rtems_task_argument argument ) { rtems_status_code status; long buffer[ 4 ]; rtems_unsigned32 size; puts( "TA3 - rtems_message_queue_receive - Q 1 - RTEMS_WAIT FOREVER" ); status = rtems_message_queue_receive( Queue_id[ 1 ], (long (*)[4])buffer, &size, RTEMS_DEFAULT_OPTIONS, RTEMS_NO_TIMEOUT ); fatal_directive_status( status, RTEMS_OBJECT_WAS_DELETED, "rtems_message_queue_receive waiting to be deleted" ); puts( "TA3 - rtems_message_queue_receive - woke up with RTEMS_OBJECT_WAS_DELETED" ); puts( "TA3 - rtems_task_delete - delete self - RTEMS_SUCCESSFUL" ); status = rtems_task_delete( RTEMS_SELF ); directive_failed( status, "rtems_task_delete of TA3" ); }