OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [mptests/] [mp09/] [recvmsg.c] - Blame information for rev 373

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*  Receive_messages
2
 *
3
 *  This routine receives and prints three messages.
4
 *  an error condition.
5
 *
6
 *  Input parameters:  NONE
7
 *
8
 *  Output parameters:  NONE
9
 *
10
 *  COPYRIGHT (c) 1989-1999.
11
 *  On-Line Applications Research Corporation (OAR).
12
 *
13
 *  The license and distribution terms for this file may be
14
 *  found in the file LICENSE in this distribution or at
15
 *  http://www.OARcorp.com/rtems/license.html.
16
 *
17
 *  $Id: recvmsg.c,v 1.2 2001-09-27 12:02:21 chris Exp $
18
 */
19
 
20
#include "system.h"
21
 
22
void Receive_messages()
23
{
24
 rtems_status_code status;
25
 rtems_unsigned32  index;
26
 rtems_unsigned32  size;
27
 char              receive_buffer[16];
28
 
29
 for ( index=1 ; index <=3 ; index++ ) {
30
   puts( "Receiving message ..." );
31
   status = rtems_message_queue_receive(
32
     Queue_id[ 1 ],
33
     (long (*)[4])receive_buffer,
34
     &size,
35
     RTEMS_DEFAULT_OPTIONS,
36
     RTEMS_NO_TIMEOUT
37
   );
38
   directive_failed( status, "rtems_message_queue_receive" );
39
   puts_nocr( "Received : ");
40
   puts( receive_buffer );
41
 }
42
 
43
  puts( "Receiver delaying for a second" );
44
  status = rtems_task_wake_after( TICKS_PER_SECOND );
45
  directive_failed( status, "rtems_task_wake_after" );
46
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.