/********************************************************************************************************************************/ /* 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 $EMHDEF ***/ #ifndef __EMHDEF_LOADED #define __EMHDEF_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 Module header record (EMH) */ /* */ #define EMH$C_MHD 0 /*Main header record */ #define EMH$C_LNM 1 /*Language name and version */ #define EMH$C_SRC 2 /*Source file specification */ #define EMH$C_TTL 3 /*Title text of module */ #define EMH$C_CPR 4 /*Copyright notice */ #define EMH$C_MTC 5 /*Maintenence status */ #define EMH$C_GTX 6 /*General text */ #define EMH$C_MAXHDRTYP 6 /*Maximum allowable type */ #ifdef __NEW_STARLET typedef struct _emhdef { unsigned short int emh$w_rectyp; /*Record type (OBJ$C_MHD) */ unsigned short int emh$w_size; /*length of this EMH */ unsigned short int emh$w_hdrtyp; /*Type field for MHD */ /*Types of header records */ unsigned char emh$b_strlvl; /*Structure level */ unsigned char emh$b_temp; /*temp pad byte */ int emh$l_arch1; /*target architecture LW1 */ int emh$l_arch2; /*target architecture LW2 */ unsigned int emh$l_recsiz; /*Maximum record size */ unsigned char emh$b_namlng; /*Module name length */ char emh$t_name [31]; /*Module name */ } EMHDEF; #else /* __OLD_STARLET */ struct emhdef { unsigned short int emh$w_rectyp; /*Record type (OBJ$C_MHD) */ unsigned short int emh$w_size; /*length of this EMH */ unsigned short int emh$w_hdrtyp; /*Type field for MHD */ /*Types of header records */ unsigned char emh$b_strlvl; /*Structure level */ unsigned char emh$b_temp; /*temp pad byte */ int emh$l_arch1; /*target architecture LW1 */ int emh$l_arch2; /*target architecture LW2 */ unsigned int emh$l_recsiz; /*Maximum record size */ unsigned char emh$b_namlng; /*Module name length */ char emh$t_name [31]; /*Module name */ } ; #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 /* __EMHDEF_LOADED */