/***************************************************************************/ /** **/ /** HPE CONFIDENTIAL. This software is confidential proprietary software **/ /** licensed by Hewlett-Packard Enterprise Development, LP, and is not **/ /** authorized to be used, duplicated OR disclosed to anyone without the **/ /** prior written permission of HPE. **/ /** © 2023 Copyright Hewlett-Packard Enterprise Development, LP **/ /** **/ /** VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential **/ /** proprietary software licensed by VMS Software, Inc., and is not **/ /** authorized to be used, duplicated or disclosed to anyone without **/ /** the prior written permission of VMS Software, Inc. **/ /** © 2023 Copyright VMS Software, Inc. **/ /** **/ /***************************************************************************/ /********************************************************************************************************************************/ /* Created: 9-Nov-2023 12:07:56 by OpenVMS SDL V3.7 */ /* Source: 06-AUG-2007 11:18:24 $1$DGA8345:[LIB_H.SRC]CRABDEF.SDL;1 */ /********************************************************************************************************************************/ /*** MODULE $CRABDEF ***/ #ifndef __CRABDEF_LOADED #define __CRABDEF_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif #include #define CRAB$K_LENGTH 112 /* Length of base structure (not including allocation array) */ #ifdef __cplusplus /* Define structure prototypes */ struct _spl; struct _adp; #endif /* #ifdef __cplusplus */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif typedef struct _crab { #pragma __nomember_alignment struct _crab *crab$l_flink; /* Forward link */ struct _crab *crab$l_blink; /* Backward link */ unsigned short int crab$w_size; /* Structure size in bytes */ unsigned char crab$b_type; /* Structure type */ unsigned char crab$b_subtype; /* Structure subtype */ struct _spl *crab$l_spinlock; /* Address of dynamic spinlock */ void *crab$l_wqfl; /* Wait queue flink--points to links in CRCTX */ void *crab$l_wqbl; /* Wait queue blink */ struct _adp *crab$ps_adp; /* Address of ADP */ unsigned int crab$l_total_items; /* Total number of items */ unsigned int crab$l_alloc_gran_mask; /* Allocation granularity mask */ struct _spl *crab$l_nosync_spinlock; /* Address of dynamic spinlock */ void (*crab$ps_dealloc_cb)(); /* Points to a callback routine for dealloc_cnt_Res */ void *crab$ps_ringbuffer; /* Pointer to a CRCTX debug ring buffer */ /* base item number managed by */ unsigned int crab$l_base_item; /* this crab */ unsigned int crab$l_valid_desc_cnt; /* Count of valid descriptors */ unsigned int crab$l_insfmapreg_cnt; /* X-13a Number of SS$_INSFMAPREG failures */ __union { /* X-13b Spare field for debug */ void *crab$ps_spare; int crab$l_spare; } crab$r_spare_union; #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif __union { #pragma __nomember_alignment unsigned char crab$b_ucb_fkb [48]; __struct { struct _fkb *crab$l_fqfl; /*FORK QUEUE FORWARD LINK */ struct _fkb *crab$l_fqbl; /*FORK QUEUE BACKWARD LINK */ unsigned short int crab$w_fsize; /*SIZE OF FKB IN BYTES */ unsigned char crab$b_ftype; /*STRUCTURE TYPE OF FKB */ unsigned char crab$b_flck; /*FORK LOCK NUMBER */ void (*crab$l_fpc)(); /*FORK PC */ __int64 crab$q_fr3; /*FORK R3 */ __int64 crab$q_fr4; /*FORK R4 */ } crab$r_ucb_fkb_struct; } crab$r_crab_fkb_union; #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif unsigned int crab$l_alloc_array; /* Start of Allocation array */ #pragma __nomember_alignment char crab$b_fill_0_ [4]; } CRAB; #if !defined(__VAXC) #define crab$ps_spare crab$r_spare_union.crab$ps_spare #define crab$l_spare crab$r_spare_union.crab$l_spare #define crab$l_fqfl crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$l_fqfl #define crab$l_fqbl crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$l_fqbl #define crab$w_fsize crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$w_fsize #define crab$b_ftype crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$b_ftype #define crab$b_flck crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$b_flck #define crab$l_fpc crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$l_fpc #define crab$q_fr3 crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$q_fr3 #define crab$q_fr4 crab$r_crab_fkb_union.crab$r_ucb_fkb_struct.crab$q_fr4 #endif /* #if !defined(__VAXC) */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif typedef struct _crab_array { #pragma __nomember_alignment unsigned int crab_array$l_num; /* Starting item number */ unsigned int crab_array$l_cnt; /* Item count */ } CRAB_ARRAY; #define CRAB_ARRAY$K_LENGTH 8 /* Length of CRAB array entry */ #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __CRABDEF_LOADED */