/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:40 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:20 $1$DGA7274:[STARLET_H.SRC]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $EGPSDEF ***/ #ifndef __EGPSDEF_LOADED #define __EGPSDEF_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 */ /* */ #define EGPS$M_PIC 0x1 #define EGPS$M_LIB 0x2 #define EGPS$M_OVR 0x4 #define EGPS$M_REL 0x8 #define EGPS$M_GBL 0x10 #define EGPS$M_SHR 0x20 #define EGPS$M_EXE 0x40 #define EGPS$M_RD 0x80 #define EGPS$M_WRT 0x100 #define EGPS$M_VEC 0x200 #define EGPS$M_NOMOD 0x400 #define EGPS$M_COM 0x800 #define EGPS$M_ALLOC_64BIT 0x1000 #define EGPS$K_NAME 12 #define EGPS$C_NAME 12 #ifdef __NEW_STARLET typedef struct _egpsdef { __union { unsigned short int egps$w_gsdtyp; /*Typ field */ __struct { short int egpsdef$$_fill_1; } egps$r_gsdtyp_fields; } egps$r_gsdtyp_overlay; unsigned short int egps$w_size; /*size of this EGPS */ unsigned char egps$b_align; /*P-sect alignment */ unsigned char egps$b_temp; /*pad for aligning */ __union { unsigned short int egps$w_flags; /*P-sect flags */ __struct { unsigned egps$v_pic : 1; /*Position independent */ unsigned egps$v_lib : 1; /*From a shareable image */ unsigned egps$v_ovr : 1; /*Overlaid memory allocation */ unsigned egps$v_rel : 1; /*Relocatable */ unsigned egps$v_gbl : 1; /*Global scope */ unsigned egps$v_shr : 1; /*Shareable */ unsigned egps$v_exe : 1; /*Executable */ unsigned egps$v_rd : 1; /*Readable */ unsigned egps$v_wrt : 1; /*Writeable */ unsigned egps$v_vec : 1; /*Vector psect */ unsigned egps$v_nomod : 1; /*Not stored into */ unsigned egps$v_com : 1; /*Associated with COMM sym */ unsigned egps$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned egps$v_fill_23_ : 3; } egps$r_flags_bits; } egps$r_flags_overlay; unsigned int egps$l_alloc; /*Length of this contribution */ unsigned char egps$b_namlng; /*Length of p-sect name */ char egps$t_name [31]; /*Name field */ } EGPSDEF; #if !defined(__VAXC) #define egps$w_gsdtyp egps$r_gsdtyp_overlay.egps$w_gsdtyp #define egps$w_flags egps$r_flags_overlay.egps$w_flags #define egps$v_pic egps$r_flags_overlay.egps$r_flags_bits.egps$v_pic #define egps$v_lib egps$r_flags_overlay.egps$r_flags_bits.egps$v_lib #define egps$v_ovr egps$r_flags_overlay.egps$r_flags_bits.egps$v_ovr #define egps$v_rel egps$r_flags_overlay.egps$r_flags_bits.egps$v_rel #define egps$v_gbl egps$r_flags_overlay.egps$r_flags_bits.egps$v_gbl #define egps$v_shr egps$r_flags_overlay.egps$r_flags_bits.egps$v_shr #define egps$v_exe egps$r_flags_overlay.egps$r_flags_bits.egps$v_exe #define egps$v_rd egps$r_flags_overlay.egps$r_flags_bits.egps$v_rd #define egps$v_wrt egps$r_flags_overlay.egps$r_flags_bits.egps$v_wrt #define egps$v_vec egps$r_flags_overlay.egps$r_flags_bits.egps$v_vec #define egps$v_nomod egps$r_flags_overlay.egps$r_flags_bits.egps$v_nomod #define egps$v_com egps$r_flags_overlay.egps$r_flags_bits.egps$v_com #define egps$v_alloc_64bit egps$r_flags_overlay.egps$r_flags_bits.egps$v_alloc_64bit #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct egpsdef { __union { unsigned short int egps$w_gsdtyp; /*Typ field */ __struct { short int egpsdef$$_fill_1; } egps$r_gsdtyp_fields; } egps$r_gsdtyp_overlay; unsigned short int egps$w_size; /*size of this EGPS */ unsigned char egps$b_align; /*P-sect alignment */ unsigned char egps$b_temp; /*pad for aligning */ __union { unsigned short int egps$w_flags; /*P-sect flags */ __struct { unsigned egps$v_pic : 1; /*Position independent */ unsigned egps$v_lib : 1; /*From a shareable image */ unsigned egps$v_ovr : 1; /*Overlaid memory allocation */ unsigned egps$v_rel : 1; /*Relocatable */ unsigned egps$v_gbl : 1; /*Global scope */ unsigned egps$v_shr : 1; /*Shareable */ unsigned egps$v_exe : 1; /*Executable */ unsigned egps$v_rd : 1; /*Readable */ unsigned egps$v_wrt : 1; /*Writeable */ unsigned egps$v_vec : 1; /*Vector psect */ unsigned egps$v_nomod : 1; /*Not stored into */ unsigned egps$v_com : 1; /*Associated with COMM sym */ unsigned egps$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned egps$v_fill_23_ : 3; } egps$r_flags_bits; } egps$r_flags_overlay; unsigned int egps$l_alloc; /*Length of this contribution */ unsigned char egps$b_namlng; /*Length of p-sect name */ char egps$t_name [31]; /*Name field */ } ; #if !defined(__VAXC) #define egps$w_gsdtyp egps$r_gsdtyp_overlay.egps$w_gsdtyp #define egps$w_flags egps$r_flags_overlay.egps$w_flags #define egps$v_pic egps$r_flags_overlay.egps$r_flags_bits.egps$v_pic #define egps$v_lib egps$r_flags_overlay.egps$r_flags_bits.egps$v_lib #define egps$v_ovr egps$r_flags_overlay.egps$r_flags_bits.egps$v_ovr #define egps$v_rel egps$r_flags_overlay.egps$r_flags_bits.egps$v_rel #define egps$v_gbl egps$r_flags_overlay.egps$r_flags_bits.egps$v_gbl #define egps$v_shr egps$r_flags_overlay.egps$r_flags_bits.egps$v_shr #define egps$v_exe egps$r_flags_overlay.egps$r_flags_bits.egps$v_exe #define egps$v_rd egps$r_flags_overlay.egps$r_flags_bits.egps$v_rd #define egps$v_wrt egps$r_flags_overlay.egps$r_flags_bits.egps$v_wrt #define egps$v_vec egps$r_flags_overlay.egps$r_flags_bits.egps$v_vec #define egps$v_nomod egps$r_flags_overlay.egps$r_flags_bits.egps$v_nomod #define egps$v_com egps$r_flags_overlay.egps$r_flags_bits.egps$v_com #define egps$v_alloc_64bit egps$r_flags_overlay.egps$r_flags_bits.egps$v_alloc_64bit #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ /* */ /* EVAX GSD entry - 64-Bit P-section definition */ /* */ #define EGPS64$M_PIC 0x1 #define EGPS64$M_LIB 0x2 #define EGPS64$M_OVR 0x4 #define EGPS64$M_REL 0x8 #define EGPS64$M_GBL 0x10 #define EGPS64$M_SHR 0x20 #define EGPS64$M_EXE 0x40 #define EGPS64$M_RD 0x80 #define EGPS64$M_WRT 0x100 #define EGPS64$M_VEC 0x200 #define EGPS64$M_NOMOD 0x400 #define EGPS64$M_COM 0x800 #define EGPS64$M_ALLOC_64BIT 0x1000 #define EGPS64$K_NAME 16 #define EGPS64$C_NAME 16 #ifdef __NEW_STARLET typedef struct _egps64def { __union { unsigned short int egps64$w_gsdtyp; /*Typ field */ __struct { short int egps64def$$_fill_1; } egps64$r_gsdtyp_fields; } egps64$r_gsdtyp_overlay; unsigned short int egps64$w_size; /*size of this EGPS */ unsigned char egps64$b_align; /*P-sect alignment */ unsigned char egps64$b_temp; /*pad for aligning */ __union { unsigned short int egps64$w_flags; /*P-sect flags */ __struct { unsigned egps64$v_pic : 1; /*Position independent */ unsigned egps64$v_lib : 1; /*From a shareable image */ unsigned egps64$v_ovr : 1; /*Overlaid memory allocation */ unsigned egps64$v_rel : 1; /*Relocatable */ unsigned egps64$v_gbl : 1; /*Global scope */ unsigned egps64$v_shr : 1; /*Shareable */ unsigned egps64$v_exe : 1; /*Executable */ unsigned egps64$v_rd : 1; /*Readable */ unsigned egps64$v_wrt : 1; /*Writeable */ unsigned egps64$v_vec : 1; /*Vector psect */ unsigned egps64$v_nomod : 1; /*Not stored into */ unsigned egps64$v_com : 1; /*Associated with COMM sym */ unsigned egps64$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned egps64$v_fill_24_ : 3; } egps64$r_flags_bits; } egps64$r_flags_overlay; __union { unsigned __int64 egps64$q_alloc; /*Length of this contribution */ unsigned int egps64$l_alloc; /* Low Longword */ } egps64$r_alloc_overlay; unsigned char egps64$b_namlng; /*Length of p-sect name */ char egps64$t_name [31]; /*Name field */ } EGPS64DEF; #if !defined(__VAXC) #define egps64$w_gsdtyp egps64$r_gsdtyp_overlay.egps64$w_gsdtyp #define egps64$w_flags egps64$r_flags_overlay.egps64$w_flags #define egps64$v_pic egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_pic #define egps64$v_lib egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_lib #define egps64$v_ovr egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_ovr #define egps64$v_rel egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_rel #define egps64$v_gbl egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_gbl #define egps64$v_shr egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_shr #define egps64$v_exe egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_exe #define egps64$v_rd egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_rd #define egps64$v_wrt egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_wrt #define egps64$v_vec egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_vec #define egps64$v_nomod egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_nomod #define egps64$v_com egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_com #define egps64$v_alloc_64bit egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_alloc_64bit #define egps64$q_alloc egps64$r_alloc_overlay.egps64$q_alloc #define egps64$l_alloc egps64$r_alloc_overlay.egps64$l_alloc #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct egps64def { __union { unsigned short int egps64$w_gsdtyp; /*Typ field */ __struct { short int egps64def$$_fill_1; } egps64$r_gsdtyp_fields; } egps64$r_gsdtyp_overlay; unsigned short int egps64$w_size; /*size of this EGPS */ unsigned char egps64$b_align; /*P-sect alignment */ unsigned char egps64$b_temp; /*pad for aligning */ __union { unsigned short int egps64$w_flags; /*P-sect flags */ __struct { unsigned egps64$v_pic : 1; /*Position independent */ unsigned egps64$v_lib : 1; /*From a shareable image */ unsigned egps64$v_ovr : 1; /*Overlaid memory allocation */ unsigned egps64$v_rel : 1; /*Relocatable */ unsigned egps64$v_gbl : 1; /*Global scope */ unsigned egps64$v_shr : 1; /*Shareable */ unsigned egps64$v_exe : 1; /*Executable */ unsigned egps64$v_rd : 1; /*Readable */ unsigned egps64$v_wrt : 1; /*Writeable */ unsigned egps64$v_vec : 1; /*Vector psect */ unsigned egps64$v_nomod : 1; /*Not stored into */ unsigned egps64$v_com : 1; /*Associated with COMM sym */ unsigned egps64$v_alloc_64bit : 1; /*Load in 64-bit space */ unsigned egps64$v_fill_24_ : 3; } egps64$r_flags_bits; } egps64$r_flags_overlay; __union { unsigned int egps64$q_alloc [2]; /*Length of this contribution */ unsigned int egps64$l_alloc; /* Low Longword */ } egps64$r_alloc_overlay; unsigned char egps64$b_namlng; /*Length of p-sect name */ char egps64$t_name [31]; /*Name field */ } ; #if !defined(__VAXC) #define egps64$w_gsdtyp egps64$r_gsdtyp_overlay.egps64$w_gsdtyp #define egps64$w_flags egps64$r_flags_overlay.egps64$w_flags #define egps64$v_pic egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_pic #define egps64$v_lib egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_lib #define egps64$v_ovr egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_ovr #define egps64$v_rel egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_rel #define egps64$v_gbl egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_gbl #define egps64$v_shr egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_shr #define egps64$v_exe egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_exe #define egps64$v_rd egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_rd #define egps64$v_wrt egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_wrt #define egps64$v_vec egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_vec #define egps64$v_nomod egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_nomod #define egps64$v_com egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_com #define egps64$v_alloc_64bit egps64$r_flags_overlay.egps64$r_flags_bits.egps64$v_alloc_64bit #define egps64$q_alloc egps64$r_alloc_overlay.egps64$q_alloc #define egps64$l_alloc egps64$r_alloc_overlay.egps64$l_alloc #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 /* __EGPSDEF_LOADED */