source: rtems/testsuites/sptests/sp12/task5.c @ 3a4ae6c

4.104.114.84.9
Last change on this file since 3a4ae6c was ac7d5ef0, checked in by Joel Sherrill <joel.sherrill@…>, on May 11, 1995 at 5:39:37 PM

Initial revision

  • Property mode set to 100644
File size: 1.4 KB
RevLine 
[ac7d5ef0]1/*  Task5
2 *
3 *  This routine serves as a test task.  It obtains semaphore 1 correctly
4 *  once, then waits for semaphore 1 again.  Task 1 should delete the
5 *  semaphore, thus waking this task up.
6 *
7 *  Input parameters:
8 *    argument - task argument
9 *
10 *  Output parameters:  NONE
11 *
12 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
13 *  On-Line Applications Research Corporation (OAR).
14 *  All rights assigned to U.S. Government, 1994.
15 *
16 *  This material may be reproduced by or for the U.S. Government pursuant
17 *  to the copyright license under the clause at DFARS 252.227-7013.  This
18 *  notice must appear in all copies of this file and its derivatives.
19 *
20 *  $Id$
21 */
22
23#include "system.h"
24
25rtems_task Task5(
26  rtems_task_argument argument
27)
28{
29  rtems_status_code status;
30
31  puts( "TA5 - rtems_semaphore_obtain - wait forever on SM1" );
32  status = rtems_semaphore_obtain(
33    Semaphore_id[ 1 ],
34    RTEMS_DEFAULT_OPTIONS,
35    RTEMS_NO_TIMEOUT
36  );
37  directive_failed( status, "rtems_semaphore_obtain on SM1" );
38  puts( "TA5 - got SM1" );
39
40  puts( "TA5 - rtems_semaphore_obtain - wait forever on SM1" );
41  status = rtems_semaphore_obtain(
42    Semaphore_id[ 1 ],
43    RTEMS_DEFAULT_OPTIONS,
44    RTEMS_NO_TIMEOUT
45  );
46  fatal_directive_status(
47    status,
48    RTEMS_OBJECT_WAS_DELETED,
49    "rtems_semaphore_obtain on SM1"
50  );
51  puts( "TA5 - SM1 deleted by TA1" );
52
53  puts( "*** END OF TEST 12 ***" );
54  exit( 0 );
55}
Note: See TracBrowser for help on using the repository browser.