/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFAE.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $DELPRCSYMDEF ***/ #ifndef __DELPRCSYMDEF_LOADED #define __DELPRCSYMDEF_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 /*+ */ /* */ /* $DELPRCSYMDEF - $DELPRC symbol definitions */ /* */ /*- */ #define DELPRC$M_EXIT 0x4 #define DELPRC$M_NOEXIT 0x8 #ifdef __NEW_STARLET #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif typedef struct _delprcflags { #pragma __nomember_alignment unsigned delprc$v_mode : 2; /* Access mode to start exit functionality with */ unsigned delprc$v_exit : 1; /* Enable exit functionality */ unsigned delprc$v_noexit : 1; /* Do not enable exit functionality */ unsigned delprc$$_fill_1 : 28; } DELPRCFLAGS; #else /* __OLD_STARLET */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif typedef struct _delprcflags { #pragma __nomember_alignment unsigned delprc$v_mode : 2; /* Access mode to start exit functionality with */ unsigned delprc$v_exit : 1; /* Enable exit functionality */ unsigned delprc$v_noexit : 1; /* Do not enable exit functionality */ unsigned delprc$$_fill_1 : 28; } delprcflags; #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 /* __DELPRCSYMDEF_LOADED */