/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:41 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:20 $1$DGA7274:[STARLET_H.SRC]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $ESDFMDEF ***/ #ifndef __ESDFMDEF_LOADED #define __ESDFMDEF_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 Symbol definition for version mask symbols */ /* */ #define ESDFM$K_NAME 25 #define ESDFM$C_NAME 25 #ifdef __NEW_STARLET typedef struct _esdfmdef { __union { unsigned short int esdfm$w_gsdtyp; /*Maps over GSY$B_GSDTYP */ __struct { char esdfmdef$$_fill_1; } esdfm$r_gsdtyp_fields; } esdfm$r_gsdtyp_overlay; unsigned short int esdfm$w_size; /*size of this ESDFM */ unsigned char esdfm$b_datyp; /*Maps over GSY$B_DATYP */ unsigned char esdfm$b_temp; /*pad for alignment */ unsigned short int esdfm$w_flags; /*Maps over GSY$W_FLAGS */ __union { unsigned __int64 esdfm$q_value; unsigned int esdfm$l_value; } esdfm$r_val_overlay; unsigned int esdfm$l_psindx; /*Owning psect number */ unsigned int esdfm$l_version_mask; /*Mask for symbol */ unsigned char esdfm$b_namlng; /*Length of name */ char esdfm$t_name [31]; /*Symbol name */ } ESDFMDEF; #if !defined(__VAXC) #define esdfm$w_gsdtyp esdfm$r_gsdtyp_overlay.esdfm$w_gsdtyp #define esdfm$q_value esdfm$r_val_overlay.esdfm$q_value #define esdfm$l_value esdfm$r_val_overlay.esdfm$l_value #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct esdfmdef { __union { unsigned short int esdfm$w_gsdtyp; /*Maps over GSY$B_GSDTYP */ __struct { char esdfmdef$$_fill_1; } esdfm$r_gsdtyp_fields; } esdfm$r_gsdtyp_overlay; unsigned short int esdfm$w_size; /*size of this ESDFM */ unsigned char esdfm$b_datyp; /*Maps over GSY$B_DATYP */ unsigned char esdfm$b_temp; /*pad for alignment */ unsigned short int esdfm$w_flags; /*Maps over GSY$W_FLAGS */ __union { unsigned int esdfm$q_value [2]; unsigned int esdfm$l_value; } esdfm$r_val_overlay; unsigned int esdfm$l_psindx; /*Owning psect number */ unsigned int esdfm$l_version_mask; /*Mask for symbol */ unsigned char esdfm$b_namlng; /*Length of name */ char esdfm$t_name [31]; /*Symbol name */ } ; #if !defined(__VAXC) #define esdfm$w_gsdtyp esdfm$r_gsdtyp_overlay.esdfm$w_gsdtyp #define esdfm$q_value esdfm$r_val_overlay.esdfm$q_value #define esdfm$l_value esdfm$r_val_overlay.esdfm$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 /* __ESDFMDEF_LOADED */