/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:33 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:34:34 _$11$DUA933:[BUILD.SDL]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $PROMDEF ***/ #ifndef __PROMDEF_LOADED #define __PROMDEF_LOADED 1 #pragma nostandard #ifdef __cplusplus extern "C" { #define __unknown_params ... #else #define __unknown_params #endif #if !defined(__VAXC) && !defined(VAXC) #define __struct struct #define __union union #else #define __struct variant_struct #define __union variant_union #endif /* */ /* GSD entry - Procedure definition, version mask symbols */ /* */ #define PROM$K_NAME 16 #define PROM$C_NAME 16 struct promdef { __union { unsigned char prom$b_gsdtyp; /*Maps over GSY$B_GSDTYP */ __struct { #if defined(__VAXC) || defined(VAXC) char prom$t_start[]; #else #define prom$t_start promdef$$_fill_1 #endif /* #if defined(__VAXC) || defined(VAXC) */ char promdef$$_fill_1; } prom$r_gsdtyp_fields; } prom$r_gsdtyp_overlay; unsigned char prom$b_datyp; /*Maps over GSY$B_DATYP */ unsigned short int prom$w_flags; /*Maps over GSY$W_FLAGS */ unsigned char prom$b_psindx; /*Maps over SDF$B_PSINDX */ unsigned int prom$l_addrs; /*Entry point address, maps over SDF$L_VALUE */ unsigned int prom$l_version_mask; /*Mask value for symbol */ unsigned short int prom$w_mask; /*Entry point mask */ unsigned char prom$b_namlng; /*Length of name */ char prom$t_name [31]; /*Symbol name */ } ; #if !defined(__VAXC) && !defined(VAXC) #define prom$b_gsdtyp prom$r_gsdtyp_overlay.prom$b_gsdtyp #endif /* #if !defined(__VAXC) && !defined(VAXC) */ #ifdef __cplusplus } #endif #pragma standard #endif /* __PROMDEF_LOADED */