/********************************************************************************************************************************/ /* 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 $LPRODEF ***/ #ifndef __LPRODEF_LOADED #define __LPRODEF_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 - Module Local Procedure definition */ /* */ #define LPRO$K_NAME 15 #define LPRO$C_NAME 15 #ifdef __NEW_STARLET typedef struct _lprodef { __union { unsigned char lpro$b_gsdtyp; /*Maps over LSY$B_GSDTYP */ __struct { char lprodef$$_fill_1; } lpro$r_gsdtyp_fields; } lpro$r_gsdtyp_overlay; unsigned char lpro$b_datyp; /*Maps over LSY$B_DATYP */ unsigned short int lpro$w_flags; /*Maps over LSY$W_FLAGS */ unsigned short int lpro$w_envindx; /*Environment index symbol defined in */ unsigned short int lpro$w_psindx; /*Maps over LSDF$W_PSINDX */ unsigned int lpro$l_addrs; /*Entry point address, maps */ /* over LSDF$L_VALUE */ unsigned short int lpro$w_mask; /*Entry point mask */ unsigned char lpro$b_namlng; /*Length of name */ char lpro$t_name [31]; /*Symbol name */ } LPRODEF; #if !defined(__VAXC) #define lpro$b_gsdtyp lpro$r_gsdtyp_overlay.lpro$b_gsdtyp #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct lprodef { __union { unsigned char lpro$b_gsdtyp; /*Maps over LSY$B_GSDTYP */ __struct { char lprodef$$_fill_1; } lpro$r_gsdtyp_fields; } lpro$r_gsdtyp_overlay; unsigned char lpro$b_datyp; /*Maps over LSY$B_DATYP */ unsigned short int lpro$w_flags; /*Maps over LSY$W_FLAGS */ unsigned short int lpro$w_envindx; /*Environment index symbol defined in */ unsigned short int lpro$w_psindx; /*Maps over LSDF$W_PSINDX */ unsigned int lpro$l_addrs; /*Entry point address, maps */ /* over LSDF$L_VALUE */ unsigned short int lpro$w_mask; /*Entry point mask */ unsigned char lpro$b_namlng; /*Length of name */ char lpro$t_name [31]; /*Symbol name */ } ; #if !defined(__VAXC) #define lpro$b_gsdtyp lpro$r_gsdtyp_overlay.lpro$b_gsdtyp #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 /* __LPRODEF_LOADED */