/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFFL.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $GEN64DEF ***/ #ifndef __GEN64DEF_LOADED #define __GEN64DEF_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 /*+ */ /* Define the generic quadword structure. */ /*- */ #ifdef __NEW_STARLET #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif typedef struct _generic_64 { #pragma __nomember_alignment __union { /* You can treat me as... */ unsigned __int64 gen64$q_quadword; /* ...a single 64-bit value, or */ unsigned int gen64$l_longword [2]; /* ...two 32-bit values, or */ unsigned short int gen64$w_word [4]; /* ...four 16-bit values */ } gen64$r_quad_overlay; } GENERIC_64; #if !defined(__VAXC) #define gen64$q_quadword gen64$r_quad_overlay.gen64$q_quadword #define gen64$l_longword gen64$r_quad_overlay.gen64$l_longword #define gen64$w_word gen64$r_quad_overlay.gen64$w_word #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif typedef struct _generic_64 { #pragma __nomember_alignment __union { /* You can treat me as... */ unsigned int gen64$q_quadword [2]; /* ...a single 64-bit value, or */ unsigned int gen64$l_longword [2]; /* ...two 32-bit values, or */ unsigned short int gen64$w_word [4]; /* ...four 16-bit values */ } gen64$r_quad_overlay; } generic_64; #if !defined(__VAXC) #define gen64$q_quadword gen64$r_quad_overlay.gen64$q_quadword #define gen64$l_longword gen64$r_quad_overlay.gen64$l_longword #define gen64$w_word gen64$r_quad_overlay.gen64$w_word #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #define GEN64$K_LENGTH 8 /* Length of GEN64 structure */ #define GEN64$C_LENGTH 8 /* Length of GEN64 structure */ #if defined (__ALPHA) || defined (__ia64) # ifdef __INITIAL_POINTER_SIZE # pragma __required_pointer_size __save /* Save current pointer size */ # pragma __required_pointer_size 64 /* Pointers are 64-bits */ typedef struct _generic_64 * GENERIC_64_PQ; /* 64-bit pointer to a GENERIC_64 */ typedef struct _generic_64 ** GENERIC_64_PPQ;/* 64-bit pointer to a pointer to a GENERIC_64 */ # pragma __required_pointer_size __restore /* Return to previous pointer size */ # else typedef unsigned __int64 GENERIC_64_PQ; /* Same size as a 64-bit pointer to an GENERIC_64 */ typedef unsigned __int64 GENERIC_64_PPQ; /* Same size as a 64-bit pointer to a pointer to an GENERIC_64 */ # endif #endif #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 /* __GEN64DEF_LOADED */