77 lines
2.8 KiB
C
77 lines
2.8 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2008 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
/* relqueopi - C-callable relative queue interlocked routines
|
||
|
|
*
|
||
|
|
* These routines perform interlocked operations on doubly-linked
|
||
|
|
* relative queues. They are designed to emulate the VAX machine
|
||
|
|
* instructions (and corresponding VAX C library routines) after
|
||
|
|
* which they are named.
|
||
|
|
*
|
||
|
|
* INSQHI - insert entry into queue at head, interlocked
|
||
|
|
* INSQTI - insert entry into queue at tail, interlocked
|
||
|
|
* REMQHI - remove entry from queue at head, interlocked
|
||
|
|
* REMQTI - remove entry from queue at tail, interlocked
|
||
|
|
*
|
||
|
|
* These macros are re-defined to gtm-specific functions (e.g. INSQHI to gtm_insqhi) in case of DEBUG.
|
||
|
|
* The gtm_*() functions do some additional assert checks before and/or after invoking the actual queue operations.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef VMS
|
||
|
|
|
||
|
|
int insqhi2(que_ent_ptr_t new, que_head_ptr_t base);
|
||
|
|
int insqti2(que_ent_ptr_t new, que_head_ptr_t base);
|
||
|
|
void_ptr_t remqhi1(que_head_ptr_t base);
|
||
|
|
void_ptr_t remqti1(que_head_ptr_t base);
|
||
|
|
|
||
|
|
#define SYS_INSQHI(N,B) insqhi2((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define SYS_INSQTI(N,B) insqti2((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define SYS_REMQHI(B) remqhi1((que_head_ptr_t)(B))
|
||
|
|
#define SYS_REMQTI(B) remqti1((que_head_ptr_t)(B))
|
||
|
|
|
||
|
|
#else
|
||
|
|
# ifndef __vax
|
||
|
|
/* Don't declare these routines for Vax since the routine names are macros on that platform */
|
||
|
|
int insqhi(que_ent_ptr_t, que_head_ptr_t);
|
||
|
|
int insqti(que_ent_ptr_t, que_head_ptr_t);
|
||
|
|
# endif
|
||
|
|
void_ptr_t remqhi(que_head_ptr_t base);
|
||
|
|
void_ptr_t remqti(que_head_ptr_t base);
|
||
|
|
|
||
|
|
#define SYS_INSQHI(N,B) insqhi((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define SYS_INSQTI(N,B) insqti((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define SYS_REMQHI(B) remqhi((que_head_ptr_t)(B))
|
||
|
|
#define SYS_REMQTI(B) remqti((que_head_ptr_t)(B))
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef DEBUG
|
||
|
|
|
||
|
|
#define INSQHI(N,B) gtm_insqhi((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define INSQTI(N,B) gtm_insqti((que_ent_ptr_t)(N), (que_head_ptr_t)(B))
|
||
|
|
#define REMQHI(B) gtm_remqhi((que_head_ptr_t)(B))
|
||
|
|
#define REMQTI(B) gtm_remqti((que_head_ptr_t)(B))
|
||
|
|
|
||
|
|
int gtm_insqhi(que_ent_ptr_t new, que_head_ptr_t base);
|
||
|
|
int gtm_insqti(que_ent_ptr_t new, que_head_ptr_t base);
|
||
|
|
void_ptr_t gtm_remqhi(que_head_ptr_t base);
|
||
|
|
void_ptr_t gtm_remqti(que_head_ptr_t base);
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
#define INSQHI SYS_INSQHI
|
||
|
|
#define INSQTI SYS_INSQTI
|
||
|
|
#define REMQHI SYS_REMQHI
|
||
|
|
#define REMQTI SYS_REMQTI
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|