/***************************************************************************/ /** **/ /** 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:06:57 by OpenVMS SDL V3.7 */ /* Source: 23-JUN-2022 15:11:28 $1$DGA8345:[LIB_H.SRC]WSLDEF.SDL;1 */ /********************************************************************************************************************************/ /*** MODULE $WSLDEF ***/ #ifndef __WSLDEF_LOADED #define __WSLDEF_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 /*+ */ /* WORKING SET LIST DEFINITIONS */ /*- */ #define WSL$M_WSLE_BITS 0x1FF #define WSL$M_VALID 0x1 #define WSL$M_PAGTYP 0xE #define WSL$M_PFNLOCK 0x10 #define WSL$M_WSLOCK 0x20 #define WSL$M_MODIFY 0x100 #define WSL$C_LENGTH 8 /* Size of WS list entry */ /* */ #define WSL$C_PROCESS 0 /* Process page */ #define WSL$C_SYSTEM 2 /* System page */ #define WSL$C_GLOBAL 4 /* Global page (read only) */ #define WSL$C_GBLWRT 6 /* Global Writable page */ #define WSL$C_PPGTBL 8 /* Process Page Table */ #define WSL$C_GPGTBL 10 /* Global Page Table */ #define WSL$C_RESERVED 12 /* reserved */ #define WSL$C_UNKNOWN 14 /* Uninitialized db for this PFN (should never appear in WS) */ #define WSL$S_WSLDEF 8 #define WSL$C_SHIFT_SIZE 3 /* WSLE size as a power of 2 */ #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 _wsl { #pragma __nomember_alignment __union { #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *wsl$pq_va; /* 64-bit address */ #else unsigned __int64 wsl$pq_va; #endif __union { unsigned wsl$v_wsle_bits : 9; /* Mask for WSLE Bits */ __struct { unsigned wsl$v_valid : 1; /* WSL entry Valid */ unsigned wsl$v_pagtyp : 3; /* Page type (see $PFNDEF for values) */ unsigned wsl$v_pfnlock : 1; /* Page frame lock */ /* THE PRECEDING 5 BITS MUST BE IN ORDER */ unsigned wsl$v_wslock : 1; /* Working set lock */ unsigned wsl$v_fill_1 : 2; /* Spare bits */ unsigned wsl$v_modify : 1; /* Saved modify bit */ unsigned wsl$v_fill_0_ : 7; } wsl$r_wsldef_bits; } wsl$r_wsle_bits_overlay; } wsl$r_wsle_overlay; /* PAGE TYPE VIELD DEFINITIONS */ /* */ /* These constants have been adjusted by left-shifting the constant by the offset to the field WSL$V_PAGTYP. */ /* To use these when explicitly extracting the field, the adjustment must be removed. For example: */ /* */ /* IF .wsle [wsl$v_pagtyp] EQL (wsl$c_system ^-wsl$v_pagtyp) */ /* */ } WSL; #if !defined(__VAXC) #define wsl$pq_va wsl$r_wsle_overlay.wsl$pq_va #define wsl$v_wsle_bits wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$v_wsle_bits #define wsl$v_valid wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$r_wsldef_bits.wsl$v_valid #define wsl$v_pagtyp wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$r_wsldef_bits.wsl$v_pagtyp #define wsl$v_pfnlock wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$r_wsldef_bits.wsl$v_pfnlock #define wsl$v_wslock wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$r_wsldef_bits.wsl$v_wslock #define wsl$v_modify wsl$r_wsle_overlay.wsl$r_wsle_bits_overlay.wsl$r_wsldef_bits.wsl$v_modify #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 _wsl * WSL_PQ; /* Pointer to a WSL structure. */ #pragma __required_pointer_size __restore /* Return to previous pointer size */ #else typedef unsigned __int64 WSL_PQ; #endif /* __INITIAL_POINTER_SIZE */ #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 /* __WSLDEF_LOADED */