/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:03 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $ESGPSDEF ***/ #ifndef __ESGPSDEF_LOADED #define __ESGPSDEF_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 /* */ /* EVAX GSD entry - P-section definition in shareable image */ /* */ #define ESGPS$M_PIC 0x1 #define ESGPS$M_LIB 0x2 #define ESGPS$M_OVR 0x4 #define ESGPS$M_REL 0x8 #define ESGPS$M_GBL 0x10 #define ESGPS$M_SHR 0x20 #define ESGPS$M_EXE 0x40 #define ESGPS$M_RD 0x80 #define ESGPS$M_WRT 0x100 #define ESGPS$M_VEC 0x200 #define ESGPS$M_NOMOD 0x400 #define ESGPS$M_COM 0x800 #define ESGPS$M_ALLOC_64BIT 0x1000 #define ESGPS$K_NAME 25 #define ESGPS$C_NAME 25 #ifdef __NEW_STARLET typedef struct _esgpsdef { __union { unsigned short int esgps$w_gsdtyp; /*Typ field */ __struct { char esgpsdef$$_fill_1; } esgps$r_gsdtyp_fields; } esgps$r_gsdtyp_overlay; unsigned short int esgps$w_size; /*size of this ESGPS */ unsigned char esgps$b_align; /*P-sect alignment */ unsigned char esgps$b_temp; /*pad for allignment */ __union { unsigned short int esgps$w_flags; /*P-sect flags */ __struct { unsigned esgps$v_pic : 1; /*Position independent */ unsigned esgps$v_lib : 1; /*From a shareable image */ unsigned esgps$v_ovr : 1; /*Overlaid memory allocation */ unsigned esgps$v_rel : 1; /*Relocatable */ unsigned esgps$v_gbl : 1; /*Global scope */ unsigned esgps$v_shr : 1; /*Shareable */ unsigned esgps$v_exe : 1; /*Executable */ unsigned esgps$v_rd : 1; /*Readable */ unsigned esgps$v_wrt : 1; /*Writeable */ unsigned esgps$v_vec : 1; /*Vector psect */ unsigned esgps$v_nomod : 1; /*Not stored into */ unsigned esgps$v_com : 1; /*Associated with COMM sym */ unsigned esgps$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned esgps$v_fill_25_ : 3; } esgps$r_flags_bits; } esgps$r_flags_overlay; unsigned int esgps$l_alloc; /*Length of this psect in shr image */ unsigned int esgps$l_base; /*Offset into img of psect, copy of symbol vector */ __union { unsigned __int64 esgps$q_value; unsigned int esgps$l_value; } esgps$r_value_overlay; unsigned char esgps$b_namlng; /*Length of p-sect name */ char esgps$t_name [31]; /*Name field */ } ESGPSDEF; #if !defined(__VAXC) #define esgps$w_gsdtyp esgps$r_gsdtyp_overlay.esgps$w_gsdtyp #define esgps$w_flags esgps$r_flags_overlay.esgps$w_flags #define esgps$v_pic esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_pic #define esgps$v_lib esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_lib #define esgps$v_ovr esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_ovr #define esgps$v_rel esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_rel #define esgps$v_gbl esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_gbl #define esgps$v_shr esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_shr #define esgps$v_exe esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_exe #define esgps$v_rd esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_rd #define esgps$v_wrt esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_wrt #define esgps$v_vec esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_vec #define esgps$v_nomod esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_nomod #define esgps$v_com esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_com #define esgps$v_alloc_64bit esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_alloc_64bit #define esgps$q_value esgps$r_value_overlay.esgps$q_value #define esgps$l_value esgps$r_value_overlay.esgps$l_value #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct esgpsdef { __union { unsigned short int esgps$w_gsdtyp; /*Typ field */ __struct { char esgpsdef$$_fill_1; } esgps$r_gsdtyp_fields; } esgps$r_gsdtyp_overlay; unsigned short int esgps$w_size; /*size of this ESGPS */ unsigned char esgps$b_align; /*P-sect alignment */ unsigned char esgps$b_temp; /*pad for allignment */ __union { unsigned short int esgps$w_flags; /*P-sect flags */ __struct { unsigned esgps$v_pic : 1; /*Position independent */ unsigned esgps$v_lib : 1; /*From a shareable image */ unsigned esgps$v_ovr : 1; /*Overlaid memory allocation */ unsigned esgps$v_rel : 1; /*Relocatable */ unsigned esgps$v_gbl : 1; /*Global scope */ unsigned esgps$v_shr : 1; /*Shareable */ unsigned esgps$v_exe : 1; /*Executable */ unsigned esgps$v_rd : 1; /*Readable */ unsigned esgps$v_wrt : 1; /*Writeable */ unsigned esgps$v_vec : 1; /*Vector psect */ unsigned esgps$v_nomod : 1; /*Not stored into */ unsigned esgps$v_com : 1; /*Associated with COMM sym */ unsigned esgps$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned esgps$v_fill_25_ : 3; } esgps$r_flags_bits; } esgps$r_flags_overlay; unsigned int esgps$l_alloc; /*Length of this psect in shr image */ unsigned int esgps$l_base; /*Offset into img of psect, copy of symbol vector */ __union { unsigned int esgps$q_value [2]; unsigned int esgps$l_value; } esgps$r_value_overlay; unsigned char esgps$b_namlng; /*Length of p-sect name */ char esgps$t_name [31]; /*Name field */ } ; #if !defined(__VAXC) #define esgps$w_gsdtyp esgps$r_gsdtyp_overlay.esgps$w_gsdtyp #define esgps$w_flags esgps$r_flags_overlay.esgps$w_flags #define esgps$v_pic esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_pic #define esgps$v_lib esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_lib #define esgps$v_ovr esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_ovr #define esgps$v_rel esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_rel #define esgps$v_gbl esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_gbl #define esgps$v_shr esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_shr #define esgps$v_exe esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_exe #define esgps$v_rd esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_rd #define esgps$v_wrt esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_wrt #define esgps$v_vec esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_vec #define esgps$v_nomod esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_nomod #define esgps$v_com esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_com #define esgps$v_alloc_64bit esgps$r_flags_overlay.esgps$r_flags_bits.esgps$v_alloc_64bit #define esgps$q_value esgps$r_value_overlay.esgps$q_value #define esgps$l_value esgps$r_value_overlay.esgps$l_value #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ /* */ /* EVAX GSD entry - 64-Bit P-section definition in shareable image */ /* */ #define ESGPS64$M_PIC 0x1 #define ESGPS64$M_LIB 0x2 #define ESGPS64$M_OVR 0x4 #define ESGPS64$M_REL 0x8 #define ESGPS64$M_GBL 0x10 #define ESGPS64$M_SHR 0x20 #define ESGPS64$M_EXE 0x40 #define ESGPS64$M_RD 0x80 #define ESGPS64$M_WRT 0x100 #define ESGPS64$M_VEC 0x200 #define ESGPS64$M_NOMOD 0x400 #define ESGPS64$M_COM 0x800 #define ESGPS64$M_ALLOC_64BIT 0x1000 #define ESGPS64$K_NAME 33 #define ESGPS64$C_NAME 33 #ifdef __NEW_STARLET typedef struct _esgps64def { __union { unsigned short int esgps64$w_gsdtyp; /*Typ field */ __struct { char esgps64def$$_fill_1; } esgps64$r_gsdtyp_fields; } esgps64$r_gsdtyp_overlay; unsigned short int esgps64$w_size; /*size of this ESGPS */ unsigned char esgps64$b_align; /*P-sect alignment */ unsigned char esgps64$b_temp; /*pad for allignment */ __union { unsigned short int esgps64$w_flags; /*P-sect flags */ __struct { unsigned esgps64$v_pic : 1; /*Position independent */ unsigned esgps64$v_lib : 1; /*From a shareable image */ unsigned esgps64$v_ovr : 1; /*Overlaid memory allocation */ unsigned esgps64$v_rel : 1; /*Relocatable */ unsigned esgps64$v_gbl : 1; /*Global scope */ unsigned esgps64$v_shr : 1; /*Shareable */ unsigned esgps64$v_exe : 1; /*Executable */ unsigned esgps64$v_rd : 1; /*Readable */ unsigned esgps64$v_wrt : 1; /*Writeable */ unsigned esgps64$v_vec : 1; /*Vector psect */ unsigned esgps64$v_nomod : 1; /*Not stored into */ unsigned esgps64$v_com : 1; /*Associated with COMM sym */ unsigned esgps64$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned esgps64$v_fill_26_ : 3; } esgps64$r_flags_bits; } esgps64$r_flags_overlay; __union { unsigned __int64 esgps64$q_alloc; /*Length of this psect in shr image */ unsigned int esgps64$l_alloc; /* Low Longword */ } esgps64$r_alloc_overlay; __union { unsigned __int64 esgps64$q_base; /*Offset into img of psect, copy of symbol vector */ unsigned int esgps64$l_base; /* Low Longword */ } esgps64$r_base_overlay; __union { unsigned __int64 esgps64$q_value; unsigned int esgps64$l_value; } esgps64$r_value_overlay; unsigned char esgps64$b_namlng; /*Length of p-sect name */ char esgps64$t_name [31]; /*Name field */ } ESGPS64DEF; #if !defined(__VAXC) #define esgps64$w_gsdtyp esgps64$r_gsdtyp_overlay.esgps64$w_gsdtyp #define esgps64$w_flags esgps64$r_flags_overlay.esgps64$w_flags #define esgps64$v_pic esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_pic #define esgps64$v_lib esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_lib #define esgps64$v_ovr esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_ovr #define esgps64$v_rel esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_rel #define esgps64$v_gbl esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_gbl #define esgps64$v_shr esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_shr #define esgps64$v_exe esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_exe #define esgps64$v_rd esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_rd #define esgps64$v_wrt esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_wrt #define esgps64$v_vec esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_vec #define esgps64$v_nomod esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_nomod #define esgps64$v_com esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_com #define esgps64$v_alloc_64bit esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_alloc_64bit #define esgps64$q_alloc esgps64$r_alloc_overlay.esgps64$q_alloc #define esgps64$l_alloc esgps64$r_alloc_overlay.esgps64$l_alloc #define esgps64$q_base esgps64$r_base_overlay.esgps64$q_base #define esgps64$l_base esgps64$r_base_overlay.esgps64$l_base #define esgps64$q_value esgps64$r_value_overlay.esgps64$q_value #define esgps64$l_value esgps64$r_value_overlay.esgps64$l_value #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct esgps64def { __union { unsigned short int esgps64$w_gsdtyp; /*Typ field */ __struct { char esgps64def$$_fill_1; } esgps64$r_gsdtyp_fields; } esgps64$r_gsdtyp_overlay; unsigned short int esgps64$w_size; /*size of this ESGPS */ unsigned char esgps64$b_align; /*P-sect alignment */ unsigned char esgps64$b_temp; /*pad for allignment */ __union { unsigned short int esgps64$w_flags; /*P-sect flags */ __struct { unsigned esgps64$v_pic : 1; /*Position independent */ unsigned esgps64$v_lib : 1; /*From a shareable image */ unsigned esgps64$v_ovr : 1; /*Overlaid memory allocation */ unsigned esgps64$v_rel : 1; /*Relocatable */ unsigned esgps64$v_gbl : 1; /*Global scope */ unsigned esgps64$v_shr : 1; /*Shareable */ unsigned esgps64$v_exe : 1; /*Executable */ unsigned esgps64$v_rd : 1; /*Readable */ unsigned esgps64$v_wrt : 1; /*Writeable */ unsigned esgps64$v_vec : 1; /*Vector psect */ unsigned esgps64$v_nomod : 1; /*Not stored into */ unsigned esgps64$v_com : 1; /*Associated with COMM sym */ unsigned esgps64$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned esgps64$v_fill_26_ : 3; } esgps64$r_flags_bits; } esgps64$r_flags_overlay; __union { unsigned int esgps64$q_alloc [2]; /*Length of this psect in shr image */ unsigned int esgps64$l_alloc; /* Low Longword */ } esgps64$r_alloc_overlay; __union { unsigned int esgps64$q_base [2]; /*Offset into img of psect, copy of symbol vector */ unsigned int esgps64$l_base; /* Low Longword */ } esgps64$r_base_overlay; __union { unsigned int esgps64$q_value [2]; unsigned int esgps64$l_value; } esgps64$r_value_overlay; unsigned char esgps64$b_namlng; /*Length of p-sect name */ char esgps64$t_name [31]; /*Name field */ } ; #if !defined(__VAXC) #define esgps64$w_gsdtyp esgps64$r_gsdtyp_overlay.esgps64$w_gsdtyp #define esgps64$w_flags esgps64$r_flags_overlay.esgps64$w_flags #define esgps64$v_pic esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_pic #define esgps64$v_lib esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_lib #define esgps64$v_ovr esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_ovr #define esgps64$v_rel esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_rel #define esgps64$v_gbl esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_gbl #define esgps64$v_shr esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_shr #define esgps64$v_exe esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_exe #define esgps64$v_rd esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_rd #define esgps64$v_wrt esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_wrt #define esgps64$v_vec esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_vec #define esgps64$v_nomod esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_nomod #define esgps64$v_com esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_com #define esgps64$v_alloc_64bit esgps64$r_flags_overlay.esgps64$r_flags_bits.esgps64$v_alloc_64bit #define esgps64$q_alloc esgps64$r_alloc_overlay.esgps64$q_alloc #define esgps64$l_alloc esgps64$r_alloc_overlay.esgps64$l_alloc #define esgps64$q_base esgps64$r_base_overlay.esgps64$q_base #define esgps64$l_base esgps64$r_base_overlay.esgps64$l_base #define esgps64$q_value esgps64$r_value_overlay.esgps64$q_value #define esgps64$l_value esgps64$r_value_overlay.esgps64$l_value #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #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 /* __ESGPSDEF_LOADED */