URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [itron/] [src/] [trcv_mbx.c] - Rev 30
Go to most recent revision | Compare with Previous | Blame | View Log
/* * ITRON 3.0 Mailbox Manager * * 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: trcv_mbx.c,v 1.2 2001-09-27 11:59:13 chris Exp $ */ #include <itron.h> #include <rtems/itron/mbox.h> #include <rtems/itron/task.h> /* * trcv_msg - Receive Message from Mailbox with Timeout */ ER trcv_msg( T_MSG **ppk_msg, ID mbxid, TMO tmout ) { register ITRON_Mailbox_Control *the_mailbox; Watchdog_Interval interval; boolean wait; Objects_Locations location; unsigned32 size; if (!ppk_msg) return E_PAR; interval = 0; if ( tmout == TMO_POL ) { wait = FALSE; } else { wait = TRUE; if ( tmout != TMO_FEVR ) interval = TOD_MILLISECONDS_TO_TICKS(tmout); } if ( wait && _ITRON_Is_in_non_task_state() ) return E_CTX; the_mailbox = _ITRON_Mailbox_Get( mbxid, &location ); switch ( location ) { case OBJECTS_REMOTE: case OBJECTS_ERROR: return _ITRON_Mailbox_Clarify_get_id_error( mbxid ); case OBJECTS_LOCAL: _CORE_message_queue_Seize( &the_mailbox->message_queue, the_mailbox->Object.id, ppk_msg, &size, wait, interval ); break; } _ITRON_return_errorno( _ITRON_Mailbox_Translate_core_message_queue_return_code( _Thread_Executing->Wait.return_code ) ); }
Go to most recent revision | Compare with Previous | Blame | View Log