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/] [exec/] [itron/] [src/] [sus_tsk.c] - Rev 173
Compare with Previous | Blame | View Log
/* * 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: sus_tsk.c,v 1.2 2001-09-27 11:59:13 chris Exp $ */ #include <limits.h> #include <itron.h> #include <rtems/score/thread.h> #include <rtems/score/userext.h> #include <rtems/score/wkspace.h> #include <rtems/score/apiext.h> #include <rtems/score/sysstate.h> #include <rtems/itron/task.h> /* * Task-Dependent Synchronization Functions */ /* * sus_tsk - Suspend Other Task */ ER sus_tsk( ID tskid ) { register Thread_Control *the_thread; Objects_Locations location; the_thread = _ITRON_Task_Get( tskid, &location ); switch ( location ) { case OBJECTS_REMOTE: case OBJECTS_ERROR: return _ITRON_Task_Clarify_get_id_error( tskid ); case OBJECTS_LOCAL: if ( _Thread_Is_executing( the_thread ) ) _ITRON_return_errorno( E_OBJ ); if (the_thread->suspend_count == INT_MAX ) _ITRON_return_errorno( E_QOVR ); _Thread_Suspend( the_thread ); break; } _ITRON_return_errorno( E_OK ); }