/***************************************************************************/ /** **/ /** 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:57 by OpenVMS SDL V3.7 */ /* Source: 08-SEP-2005 08:02:43 $1$DGA8345:[LIB_H.SRC]IMSEMDEF.SDL;1 */ /********************************************************************************************************************************/ /*** MODULE $imsemdef ***/ #ifndef __IMSEMDEF_LOADED #define __IMSEMDEF_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 /* */ /* Inner mode semaphore Definitions */ /* */ #include #define IMSEM_HIST$K_LENGTH 16 #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 _imsem_hist { #pragma __nomember_alignment unsigned __int64 imsem_hist$q_pc; unsigned __int64 imsem_hist$q_semaphore; } IMSEM_HIST; #define IMSEM$M_KAST_PENDING 0x1 #define IMSEM$M_EAST_PENDING 0x2 #define IMSEM$M_RS_WAITRS 0x4 #define IMSEM$M_TM_WAITRS 0x8 #define IMSEM$M_CHECK_UPCALL 0x10 #define IMSEM$M_EXCLUSIVE 0x20 #define IMSEM$K_HIST_BUF_CNT 255 /* number of octaword history buffer entries */ #define IMSEM$C_ACQ 1 #define IMSEM$C_SPIN 2 #define IMSEM$C_REL 3 #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 _imsem { #pragma __nomember_alignment __union { unsigned __int64 imsem$q_imsem_quad; /* First quad of semaphore */ __struct { unsigned short int imsem$w_owner_depth; /* depth of nested acquisitions */ unsigned short int imsem$w_owner; /* IM semaphore owner */ unsigned short int imsem$w_tolerant_count; /* count of tolerant thread-safe activity */ __union { unsigned short int imsem$w_flags; /* Semaphore flags */ __struct { unsigned imsem$v_kast_pending : 1; unsigned imsem$v_east_pending : 1; unsigned imsem$v_rs_waitrs : 1; unsigned imsem$v_tm_waitrs : 1; unsigned imsem$v_check_upcall : 1; unsigned imsem$v_exclusive : 1; unsigned imsem$v_reserved : 10; } imsem$r_flagdefs; } imsem$r_flag_overlay; } imsem$r_imsem_struct; } imsem$r_imsem_union; unsigned int imsem$il_history_idx; int imsem$il_rsrvd; IMSEM_HIST imsem$r_hist_buf [255]; } IMSEM; #if !defined(__VAXC) #define imsem$q_imsem_quad imsem$r_imsem_union.imsem$q_imsem_quad #define imsem$w_owner_depth imsem$r_imsem_union.imsem$r_imsem_struct.imsem$w_owner_depth #define imsem$w_owner imsem$r_imsem_union.imsem$r_imsem_struct.imsem$w_owner #define imsem$w_tolerant_count imsem$r_imsem_union.imsem$r_imsem_struct.imsem$w_tolerant_count #define imsem$w_flags imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$w_flags #define imsem$v_kast_pending imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_kast_pending #define imsem$v_east_pending imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_east_pending #define imsem$v_rs_waitrs imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_rs_waitrs #define imsem$v_tm_waitrs imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_tm_waitrs #define imsem$v_check_upcall imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_check_upcall #define imsem$v_exclusive imsem$r_imsem_union.imsem$r_imsem_struct.imsem$r_flag_overlay.imsem$r_flagdefs.imsem$v_exclusive #endif /* #if !defined(__VAXC) */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __save /* Save current pointer size */ #pragma __required_pointer_size __long /* Pointers are 64-bit */ typedef struct _imsem * IMSEM_PQ; /* Long pointer to a IMSEM structure. */ #pragma __required_pointer_size __restore /* Return to previous pointer size */ #else typedef unsigned __int64 IMSEM_PQ; #endif /* __INITIAL_POINTER_SIZE */ // // Add macro for IMSEM tracing // extern unsigned __int64 imsem$gq_debug; #define imsem_trace(_printf_args) \ if ( imsem$gq_debug & 1 ) \ { \ int *imsem_rtn = (int *) (imsem$gq_debug & ~1); \ ((void (*)()) *imsem_rtn) _printf_args ; \ } #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 /* __IMSEMDEF_LOADED */