/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:34 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:34:34 _$11$DUA933:[BUILD.SDL]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $PROWDEF ***/ #ifndef __PROWDEF_LOADED #define __PROWDEF_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 with word of psect value */ /* */ #define PROW$K_NAME 13 #define PROW$C_NAME 13 struct prowdef { __union { unsigned char prow$b_gsdtyp; /*Maps over GSY$B_GSDTYP */ __struct { #if defined(__VAXC) || defined(VAXC) char prow$t_start[]; #else #define prow$t_start prowdef$$_fill_1 #endif /* #if defined(__VAXC) || defined(VAXC) */ char prowdef$$_fill_1; } prow$r_gsdtyp_fields; } prow$r_gsdtyp_overlay; unsigned char prow$b_datyp; /*Maps over GSY$B_DATYP */ unsigned short int prow$w_flags; /*Maps over GSY$W_FLAGS */ unsigned short int prow$w_psindx; /*Maps over SDFW$W_PSINDX */ unsigned int prow$l_addrs; /*Entry point address, maps over SDFW$L_VALUE */ unsigned short int prow$w_mask; /*Entry point mask */ unsigned char prow$b_namlng; /*Length of name */ char prow$t_name [31]; /*Symbol name */ } ; #if !defined(__VAXC) && !defined(VAXC) #define prow$b_gsdtyp prow$r_gsdtyp_overlay.prow$b_gsdtyp #endif /* #if !defined(__VAXC) && !defined(VAXC) */ #ifdef __cplusplus } #endif #pragma standard #endif /* __PROWDEF_LOADED */