source: rtems/cpukit/itron/src/sus_tsk.c @ eb02f47

4.104.114.84.95
Last change on this file since eb02f47 was eb02f47, checked in by Joel Sherrill <joel.sherrill@…>, on 11/10/99 at 13:48:27

Committed modifications from ITRON Task and Task Dependendent Synchronization
Working Group. Included are tests.

  • Property mode set to 100644
File size: 1.1 KB
Line 
1/*
2 *  The license and distribution terms for this file may be
3 *  found in the file LICENSE in this distribution or at
4 *  http://www.OARcorp.com/rtems/license.html.
5 *
6 *  $Id$
7 */
8
9#include <itron.h>
10
11#include <rtems/score/thread.h>
12#include <rtems/score/userext.h>
13#include <rtems/score/wkspace.h>
14#include <rtems/score/apiext.h>
15#include <rtems/score/sysstate.h>
16
17#include <rtems/itron/task.h>
18
19
20/*
21 *  Task-Dependent Synchronization Functions
22 */
23
24/*
25 *  sus_tsk - Suspend Other Task
26 */
27
28ER sus_tsk(
29  ID tskid
30)
31{
32  register Thread_Control *the_thread;
33  Objects_Locations        location;
34
35  the_thread = _ITRON_Task_Get( tskid, &location );
36  if (!the_thread)
37    _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) );
38
39  if ( the_thread == _Thread_Executing )
40    _ITRON_return_errorno( E_OBJ );
41
42  switch ( location ) {
43    case OBJECTS_REMOTE:
44    case OBJECTS_ERROR:
45      _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) );
46
47    case OBJECTS_LOCAL:
48      _Thread_Suspend( the_thread );
49      _Thread_Enable_dispatch();
50      return E_OK;
51  }
52
53  return E_OBJ;           /* XXX - Should never get here */
54}
55
56
57
58
59
60
61
Note: See TracBrowser for help on using the repository browser.