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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [shmdr/] [getlq.c] - Blame information for rev 773

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

Line No. Rev Author Line
1 30 unneback
/*  Shm_Envelope_control *Shm_Locked_queue_Get( lq_cb )
2
 *
3
 *  This routine returns an envelope control block from a shared
4
 *  memory queue.
5
 *
6
 *  Input parameters:
7
 *    lq_cb - pointer to a locked queue control block
8
 *
9
 *  Output parameters:
10
 *    returns - pointer to an envelope control block
11
 *            - NULL if no envelopes on specified queue
12
 *
13
 *  COPYRIGHT (c) 1989-1999.
14
 *  On-Line Applications Research Corporation (OAR).
15
 *
16
 *  The license and distribution terms for this file may be
17
 *  found in the file LICENSE in this distribution or at
18
 *  http://www.OARcorp.com/rtems/license.html.
19
 *
20
 *  $Id: getlq.c,v 1.2 2001-09-27 12:01:12 chris Exp $
21
 */
22
 
23
#include <rtems.h>
24
#include <shm_driver.h>
25
 
26
Shm_Envelope_control *Shm_Locked_queue_Get(
27
  Shm_Locked_queue_Control *lq_cb
28
)
29
{
30
  Shm_Envelope_control *tmp_ecb;
31
  rtems_unsigned32 tmpfront;
32
 
33
  tmp_ecb = NULL;
34
  Shm_Lock( lq_cb );
35
 
36
    tmpfront = Shm_Convert(lq_cb->front);
37
    if ( tmpfront != Shm_Locked_queue_End_of_list ) {
38
      tmp_ecb = &Shm_Envelopes[ tmpfront ];
39
      lq_cb->front = tmp_ecb->next;
40
      if ( tmp_ecb->next == Shm_Locked_queue_End_of_list )
41
        lq_cb->rear = Shm_Locked_queue_End_of_list;
42
      tmp_ecb->next = Shm_Locked_queue_Not_on_list;
43
    }
44
 
45
  Shm_Unlock( lq_cb );
46
  return( tmp_ecb );
47
}

powered by: WebSVN 2.1.0

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