/********************************************************************************************************************************/ /* 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 $SGPSDEF ***/ #ifndef __SGPSDEF_LOADED #define __SGPSDEF_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 /* */ /* GSD entry - P-section definition in shareable image */ /* */ #define SGPS$M_PIC 0x1 #define SGPS$M_LIB 0x2 #define SGPS$M_OVR 0x4 #define SGPS$M_REL 0x8 #define SGPS$M_GBL 0x10 #define SGPS$M_SHR 0x20 #define SGPS$M_EXE 0x40 #define SGPS$M_RD 0x80 #define SGPS$M_WRT 0x100 #define SGPS$M_VEC 0x200 #define SGPS$M_NOMOD 0x400 #define SGPS$M_COM 0x800 #define SGPS$K_NAME 13 #define SGPS$C_NAME 13 #ifdef __NEW_STARLET typedef struct _sgpsdef { __union { unsigned char sgps$b_gsdtyp; /*Typ field */ __struct { char sgpsdef$$_fill_1; } sgps$r_gsdtyp_fields; } sgps$r_gsdtyp_overlay; unsigned char sgps$b_align; /*P-sect alignment */ __union { unsigned short int sgps$w_flags; /*P-sect flags */ __struct { unsigned sgps$v_pic : 1; /*Position independent */ unsigned sgps$v_lib : 1; /*From a shareable image */ unsigned sgps$v_ovr : 1; /*Overlaid memory allocation */ unsigned sgps$v_rel : 1; /*Relocatable */ unsigned sgps$v_gbl : 1; /*Global scope */ unsigned sgps$v_shr : 1; /*Shareable */ unsigned sgps$v_exe : 1; /*Executable */ unsigned sgps$v_rd : 1; /*Readable */ unsigned sgps$v_wrt : 1; /*Writeable */ unsigned sgps$v_vec : 1; /*Vector psect */ unsigned sgps$v_nomod : 1; /*Not stored into */ unsigned sgps$v_com : 1; /*Associated with COMM sym */ unsigned sgps$v_fill_16_ : 4; } sgps$r_flags_bits; } sgps$r_flags_overlay; unsigned int sgps$l_alloc; /*Length of this psect in shr image */ unsigned int sgps$l_base; /*Base of this psect in shr image */ unsigned char sgps$b_namlng; /*Length of p-sect name */ char sgps$t_name [31]; /*Name field */ } SGPSDEF; #if !defined(__VAXC) #define sgps$b_gsdtyp sgps$r_gsdtyp_overlay.sgps$b_gsdtyp #define sgps$w_flags sgps$r_flags_overlay.sgps$w_flags #define sgps$v_pic sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_pic #define sgps$v_lib sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_lib #define sgps$v_ovr sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_ovr #define sgps$v_rel sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_rel #define sgps$v_gbl sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_gbl #define sgps$v_shr sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_shr #define sgps$v_exe sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_exe #define sgps$v_rd sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_rd #define sgps$v_wrt sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_wrt #define sgps$v_vec sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_vec #define sgps$v_nomod sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_nomod #define sgps$v_com sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_com #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct sgpsdef { __union { unsigned char sgps$b_gsdtyp; /*Typ field */ __struct { char sgpsdef$$_fill_1; } sgps$r_gsdtyp_fields; } sgps$r_gsdtyp_overlay; unsigned char sgps$b_align; /*P-sect alignment */ __union { unsigned short int sgps$w_flags; /*P-sect flags */ __struct { unsigned sgps$v_pic : 1; /*Position independent */ unsigned sgps$v_lib : 1; /*From a shareable image */ unsigned sgps$v_ovr : 1; /*Overlaid memory allocation */ unsigned sgps$v_rel : 1; /*Relocatable */ unsigned sgps$v_gbl : 1; /*Global scope */ unsigned sgps$v_shr : 1; /*Shareable */ unsigned sgps$v_exe : 1; /*Executable */ unsigned sgps$v_rd : 1; /*Readable */ unsigned sgps$v_wrt : 1; /*Writeable */ unsigned sgps$v_vec : 1; /*Vector psect */ unsigned sgps$v_nomod : 1; /*Not stored into */ unsigned sgps$v_com : 1; /*Associated with COMM sym */ unsigned sgps$v_fill_16_ : 4; } sgps$r_flags_bits; } sgps$r_flags_overlay; unsigned int sgps$l_alloc; /*Length of this psect in shr image */ unsigned int sgps$l_base; /*Base of this psect in shr image */ unsigned char sgps$b_namlng; /*Length of p-sect name */ char sgps$t_name [31]; /*Name field */ } ; #if !defined(__VAXC) #define sgps$b_gsdtyp sgps$r_gsdtyp_overlay.sgps$b_gsdtyp #define sgps$w_flags sgps$r_flags_overlay.sgps$w_flags #define sgps$v_pic sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_pic #define sgps$v_lib sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_lib #define sgps$v_ovr sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_ovr #define sgps$v_rel sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_rel #define sgps$v_gbl sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_gbl #define sgps$v_shr sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_shr #define sgps$v_exe sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_exe #define sgps$v_rd sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_rd #define sgps$v_wrt sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_wrt #define sgps$v_vec sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_vec #define sgps$v_nomod sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_nomod #define sgps$v_com sgps$r_flags_overlay.sgps$r_flags_bits.sgps$v_com #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 /* __SGPSDEF_LOADED */