URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [itron/] [src/] [snd_mbx.c] - Rev 778
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: snd_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> /* * snd_msg - Send Message to Mailbox */ ER snd_msg( ID mbxid, T_MSG *pk_msg ) { register ITRON_Mailbox_Control *the_mailbox; Objects_Locations location; unsigned32 message_priority; void *message_contents; if ( !pk_msg ) return E_PAR; 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: if ( the_mailbox->do_message_priority ) message_priority = pk_msg->msgpri; else message_priority = CORE_MESSAGE_QUEUE_SEND_REQUEST; message_contents = pk_msg; _CORE_message_queue_Submit( &the_mailbox->message_queue, &message_contents, sizeof(T_MSG *), the_mailbox->Object.id, NULL, /* multiprocessing not supported */ message_priority, FALSE, /* do not allow sender to block */ 0 /* no timeout */ ); 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