/* // Note: This header is use by both the CC compiler and the IA64 // assembler (via the CC preprocessor which creates the // IA64 assembler source file). // // The CC portion of this header starts at the comment line // 'CC header begins here'. // // ----------------------------------------------------------------------------- */ #ifdef IAS_ASSEMBLER /* IA64 assembler header begins here */ /* ************************************************************************* */ /* * * */ /* * HP CONFIDENTIAL. This software is confidential proprietary software * */ /* * licensed by Hewlett-Packard Development Company, L.P., and is not * */ /* * authorized to be used, duplicated OR disclosed to anyone without the * */ /* * prior written permission of HP. * */ /* * © 2021 Copyright Hewlett-Packard Development Company, L.P. * */ /* * * */ /* * VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential * */ /* * proprietary software licensed by VMS Software, Inc., and is not * */ /* * authorized to be used, duplicated or disclosed to anyone without * */ /* * the prior written permission of VMS Software, Inc. * */ /* * © 2021 Copyright VMS Software, Inc. * */ /* * * */ /* ************************************************************************* */ /* ******************************************************************************************************************************** */ /* Created: 9-Mar-2021 22:28:09 by OpenVMS SDL EV3-3 */ /* Source: 02-APR-2004 16:15:25 $1$DGA8085:[STARLET_H.SRC]CHFDEF.SDL;1 */ /* ******************************************************************************************************************************** */ /* .MACRO $CHFDEF,$GBL */ /* $DEFINI CHF,$GBL */ /* */ /* CONDITION HANDLING ARGUMENT LIST OFFSETS */ /* THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENT */ /* LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD */ /* ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. */ /* */ #define CHF$S_CHFDEF 12 #define CHF$L_SIGARGLST 4 /* ADDRESS OF SIGNAL ARGUMENTS */ #define CHF$L_MCHARGLST 8 /* ADDRESS OF MECHANISM ARGUMENTS */ #define CHF$S_CHFDEF1 12 #define CHF$IS_SIG_ARGS 0 /* NUMBER OF SIGNAL ARGUMENTS */ #define CHF$L_SIG_ARGS 0 /* obsolete def */ #define CHF$IS_SIG_NAME 4 /* SIGNAL NAME */ #define CHF$L_SIG_NAME 4 /* obsolete def */ #define CHF$IS_SIG_ARG1 8 /* FIRST SIGNAL SPECIFIC ARGUMENT */ #define CHF$L_SIG_ARG1 8 /* obsolete def */ #define CHF$M_FPREGS_VALID 0x1 #define CHF$M_FPREGS2_VALID 0x2 #define CHF$S_CHFDEF2 592 #define CHF$IS_MCH_ARGS 0 /* NUMBER OF MECHANISM ARGUMENTS */ #define CHF$IS_MCH_FLAGS 4 /* Flags */ #define CHF$R_MCH_FLAGS_BITS 4 /* Flags bits. */ #define CHF$V_FPREGS_VALID 0 /* FP registers stored in MCH. */ #define CHF$V_FPREGS2_VALID 1 #define CHF$S_MCH_FRAME 8 #define CHF$PH_MCH_FRAME 8 /* ESTABLISHER FRAME ADDRESS */ #define CHF$IS_MCH_DEPTH 16 /* FRAME DEPTH OF ESTABLISHER */ #define CHF$IH_MCH_DEPTH 16 /* temp */ #define CHF$IS_MCH_RESVD1 20 /* reserved, paired with DEPTH */ #define CHF$S_MCH_DADDR 8 #define CHF$PH_MCH_DADDR 24 /* ESTABLISHER HANDLER DATA CELL */ #define CHF$S_MCH_ESF_ADDR 8 #define CHF$PH_MCH_ESF_ADDR 32 /* ESTABLISHER EXCEPTION STACK FRAME */ #define CHF$S_MCH_SIG_ADDR 8 #define CHF$PH_MCH_SIG_ADDR 40 /* ESTABLISHER EXCEPTION STACK FRAME */ #define CHF$S_MCH_RETVAL 8 #define CHF$IH_MCH_RETVAL 48 #define CHF$S_MCH_SAVR0 8 #define CHF$IH_MCH_SAVR0 48 /* SAVED REGISTER R0 */ #define CHF$IL_MCH_SAVR0_LOW 48 /* LOW ORDER 32 BITS */ #define CHF$IL_MCH_SAVR0_HIGH 52 /* HIGH ORDER 32 BITS */ #define CHF$S_MCH_RETVAL2 8 #define CHF$IH_MCH_RETVAL2 56 #define CHF$S_MCH_SAVR1 8 #define CHF$IH_MCH_SAVR1 56 /* SAVED REGISTER R1 */ #define CHF$IL_MCH_SAVR1_LOW 56 /* LOW ORDER 32 BITS */ #define CHF$IL_MCH_SAVR1_HIGH 60 /* HIGH ORDER 32 BITS */ #define CHF$S_MCH_SIG64_ADDR 8 #define CHF$PH_MCH_SIG64_ADDR 64 /* 64-bit sig array ptr */ #define CHF$S_MCH_SAVF32_SAVF127 8 #define CHF$PH_MCH_SAVF32_SAVF127 72 #define CHF$S_MCH_RETVAL_FLOAT 16 #define CHF$FH_MCH_RETVAL_FLOAT 80 #define CHF$S_MCH_RETVAL2_FLOAT 16 #define CHF$FH_MCH_RETVAL2_FLOAT 96 #define CHF$S_MCH_SAVF2 16 #define CHF$FH_MCH_SAVF2 112 #define CHF$S_MCH_SAVF3 16 #define CHF$FH_MCH_SAVF3 128 #define CHF$S_MCH_SAVF4 16 #define CHF$FH_MCH_SAVF4 144 #define CHF$S_MCH_SAVF5 16 #define CHF$FH_MCH_SAVF5 160 #define CHF$S_MCH_SAVF12 16 #define CHF$FH_MCH_SAVF12 176 #define CHF$S_MCH_SAVF13 16 #define CHF$FH_MCH_SAVF13 192 #define CHF$S_MCH_SAVF14 16 #define CHF$FH_MCH_SAVF14 208 #define CHF$S_MCH_SAVF15 16 #define CHF$FH_MCH_SAVF15 224 #define CHF$S_MCH_SAVF16 16 #define CHF$FH_MCH_SAVF16 240 #define CHF$S_MCH_SAVF17 16 #define CHF$FH_MCH_SAVF17 256 #define CHF$S_MCH_SAVF18 16 #define CHF$FH_MCH_SAVF18 272 #define CHF$S_MCH_SAVF19 16 #define CHF$FH_MCH_SAVF19 288 #define CHF$S_MCH_SAVF20 16 #define CHF$FH_MCH_SAVF20 304 #define CHF$S_MCH_SAVF21 16 #define CHF$FH_MCH_SAVF21 320 #define CHF$S_MCH_SAVF22 16 #define CHF$FH_MCH_SAVF22 336 #define CHF$S_MCH_SAVF23 16 #define CHF$FH_MCH_SAVF23 352 #define CHF$S_MCH_SAVF24 16 #define CHF$FH_MCH_SAVF24 368 #define CHF$S_MCH_SAVF25 16 #define CHF$FH_MCH_SAVF25 384 #define CHF$S_MCH_SAVF26 16 #define CHF$FH_MCH_SAVF26 400 #define CHF$S_MCH_SAVF27 16 #define CHF$FH_MCH_SAVF27 416 #define CHF$S_MCH_SAVF28 16 #define CHF$FH_MCH_SAVF28 432 #define CHF$S_MCH_SAVF29 16 #define CHF$FH_MCH_SAVF29 448 #define CHF$S_MCH_SAVF30 16 #define CHF$FH_MCH_SAVF30 464 #define CHF$S_MCH_SAVF31 16 #define CHF$FH_MCH_SAVF31 480 #define CHF$S_MCH_SAVB1 8 #define CHF$IH_MCH_SAVB1 496 #define CHF$S_MCH_SAVB2 8 #define CHF$IH_MCH_SAVB2 504 #define CHF$S_MCH_SAVB3 8 #define CHF$IH_MCH_SAVB3 512 #define CHF$S_MCH_SAVB4 8 #define CHF$IH_MCH_SAVB4 520 #define CHF$S_MCH_SAVB5 8 #define CHF$IH_MCH_SAVB5 528 #define CHF$S_MCH_AR_LC 8 #define CHF$IH_MCH_AR_LC 536 #define CHF$S_MCH_AR_EC 8 #define CHF$IH_MCH_AR_EC 544 #define CHF$S_MCH_OSSD 8 #define CHF$PH_MCH_OSSD 552 #define CHF$S_MCH_INVO_HANDLE 8 #define CHF$Q_MCH_INVO_HANDLE 560 #define CHF$S_MCH_UWR_START 8 #define CHF$PH_MCH_UWR_START 568 #define CHF$S_MCH_FPSR 8 #define CHF$IH_MCH_FPSR 576 #define CHF$S_MCH_FPSS 8 #define CHF$IH_MCH_FPSS 584 #define CHF$M_CALEXT_CANCEL 0x1 #define CHF$M_CALEXT_LAST 0x2 #define CHF$K_CALEXT_LENGTH 16 /* LENGTH OF CATCH-ALL DESC BLOCK */ #define CHF$C_CALEXT_LENGTH 16 /* LENGTH OF CATCH-ALL DESC BLOCK */ #define CHF$S_CHFDEF3 16 #define CHF$L_CALEXT_LINK 0 /* CATCH-ALL EXTENSION LINK */ #define CHF$L_CALEXT_ADDRESS 4 /* ADDRESS OF CATCH-ALL EXTENSION */ #define CHF$L_CALEXT_FLAGS 8 /* FLAGS */ #define CHF$V_CALEXT_CANCEL 0 /* REMOVE CATCH-ALL EXTENSION */ #define CHF$V_CALEXT_LAST 1 /* LAST CATCH-ALL EXTENSION */ #define CHF$L_CALEXT_RESERVED 12 /* RESERVED */ #define CHF64$S_CHFDEF6 24 #define CHF64$L_SIG_ARGS 0 /* Longword including count & options */ #define CHF64$W_SIG_ARG_COUNT 0 /* Word holding count itself */ #define CHF64$W_SIG_MSG_OPTIONS 2 /* Word containing message options */ #define CHF64$L_SIGNAL64 4 /* 64-bit array tag: overlays sig_name of 32b version */ #define CHF64$S_SIG_NAME 8 #define CHF64$Q_SIG_NAME 8 /* Signal value */ #define CHF64$S_SIG_ARG1 8 #define CHF64$Q_SIG_ARG1 16 /* First signal argument */ /* $DEFEND CHF,$GBL,DEF */ /* .ENDM */ /* IA64 assembler header ends here */ #else /* IAS_ASSEMBLER */ /* CC header begins here */ /********************************************************************************************************************************/ /* 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 $CHFDEF ***/ #ifndef __CHFDEF_LOADED #define __CHFDEF_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 /* */ /* CONDITION HANDLING ARGUMENT LIST OFFSETS */ /* THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENT */ /* LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD */ /* ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. */ /* */ #ifdef __NEW_STARLET struct _chfdef1; struct _chfdef2; struct _chfdef6; #else struct chfdef1; struct chfdef2; struct chfdef6; #endif #ifdef __cplusplus /* Define structure prototypes */ struct _chfdef1; struct _chfdef2; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET typedef struct _chfdef { struct _chfdef1 *chf$l_sigarglst; /*ADDRESS OF SIGNAL ARGUMENTS ~~~ struct chfdef1 ~~~ */ int chfdef$$_fill_1; /* Upper 32 bits of PACKed structure */ struct _chfdef2 *chf$l_mcharglst; /*ADDRESS OF MECHANISM ARGUMENTS ~~~ struct chfdef2 ~~~ */ } CHFDEF; #else /* __OLD_STARLET */ struct chfdef { struct chfdef1 *chf$l_sigarglst; /*ADDRESS OF SIGNAL ARGUMENTS */ int chfdef$$_fill_1; /* Upper 32 bits of PACKed structure */ struct chfdef2 *chf$l_mcharglst; /*ADDRESS OF MECHANISM ARGUMENTS */ } ; #endif /* #ifdef __NEW_STARLET */ #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 _chfdef1 { #pragma __nomember_alignment __union { int chf$is_sig_args; /*NUMBER OF SIGNAL ARGUMENTS */ int chf$l_sig_args; /*obsolete def */ } chf$r_sig_args_desc; __union { int chf$is_sig_name; /*SIGNAL NAME */ int chf$l_sig_name; /*obsolete def */ } chf$r_sig_name_desc; __union { int chf$is_sig_arg1; /*FIRST SIGNAL SPECIFIC ARGUMENT */ int chf$l_sig_arg1; /*obsolete def */ } chf$r_sig_arg1_desc; } CHFDEF1; #if !defined(__VAXC) #define chf$is_sig_args chf$r_sig_args_desc.chf$is_sig_args #define chf$l_sig_args chf$r_sig_args_desc.chf$l_sig_args #define chf$is_sig_name chf$r_sig_name_desc.chf$is_sig_name #define chf$l_sig_name chf$r_sig_name_desc.chf$l_sig_name #define chf$is_sig_arg1 chf$r_sig_arg1_desc.chf$is_sig_arg1 #define chf$l_sig_arg1 chf$r_sig_arg1_desc.chf$l_sig_arg1 #endif /* #if !defined(__VAXC) */ #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 struct chfdef1 { #pragma __nomember_alignment __union { int chf$is_sig_args; /*NUMBER OF SIGNAL ARGUMENTS */ int chf$l_sig_args; /*obsolete def */ } chf$r_sig_args_desc; __union { int chf$is_sig_name; /*SIGNAL NAME */ int chf$l_sig_name; /*obsolete def */ } chf$r_sig_name_desc; __union { int chf$is_sig_arg1; /*FIRST SIGNAL SPECIFIC ARGUMENT */ int chf$l_sig_arg1; /*obsolete def */ } chf$r_sig_arg1_desc; } ; #if !defined(__VAXC) #define chf$is_sig_args chf$r_sig_args_desc.chf$is_sig_args #define chf$l_sig_args chf$r_sig_args_desc.chf$l_sig_args #define chf$is_sig_name chf$r_sig_name_desc.chf$is_sig_name #define chf$l_sig_name chf$r_sig_name_desc.chf$l_sig_name #define chf$is_sig_arg1 chf$r_sig_arg1_desc.chf$is_sig_arg1 #define chf$l_sig_arg1 chf$r_sig_arg1_desc.chf$l_sig_arg1 #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #define CHF$M_FPREGS_VALID 0x1 #define CHF$M_FPREGS2_VALID 0x2 #ifdef __NEW_STARLET #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif typedef struct _chfdef2 { #pragma __nomember_alignment __union { __int64 chf$q_mch_args; __struct { int chf$is_mch_args; __union { int chf$is_mch_flags; /*Flags */ __struct { /*Flags bits. */ unsigned chf$v_fpregs_valid : 1; /*FP registers stored in MCH. */ unsigned chf$v_fpregs2_valid : 1; unsigned chf$v_fill_71_ : 6; } chf$r_mch_flags_bits; } chf$r_mch_flags_desc; } chf$r_mch_args_desc2; } chf$r_mch_args_desc1; __int64 chf$q_mch_frame; __union { __int64 chf$q_mch_depth; __struct { /*2 longwords which are part of MCH_DEPTH */ int chf$is_mch_depth; /*FRAME DEPTH OF ESTABLISHER */ int chf$is_mch_resvd1; /*reserved, paired with DEPTH */ } chf$r_mch_depth_field; } chf$r_mch_depth_desc; __int64 chf$q_mch_daddr; __int64 chf$q_mch_esf_addr; __int64 chf$q_mch_sig_addr; __union { __int64 chf$q_mch_savr0; __int64 chf$q_mch_retval; __int64 chf$ih_mch_retval; } chf$r_retval; __union { __int64 chf$q_mch_savr1; __int64 chf$q_mch_retval2; __int64 chf$ih_mch_retval2; } chf$r_retval2; #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *chf$ph_mch_sig64_addr; /*64-bit sig array ptr */ #else unsigned __int64 chf$ph_mch_sig64_addr; #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *chf$ph_mch_savf32_savf127; #else unsigned __int64 chf$ph_mch_savf32_savf127; #endif unsigned char chf$fh_mch_retval_float [16]; unsigned char chf$fh_mch_retval2_float [16]; unsigned char chf$fh_mch_savf2 [16]; unsigned char chf$fh_mch_savf3 [16]; unsigned char chf$fh_mch_savf4 [16]; unsigned char chf$fh_mch_savf5 [16]; unsigned char chf$fh_mch_savf12 [16]; unsigned char chf$fh_mch_savf13 [16]; unsigned char chf$fh_mch_savf14 [16]; unsigned char chf$fh_mch_savf15 [16]; unsigned char chf$fh_mch_savf16 [16]; unsigned char chf$fh_mch_savf17 [16]; unsigned char chf$fh_mch_savf18 [16]; unsigned char chf$fh_mch_savf19 [16]; unsigned char chf$fh_mch_savf20 [16]; unsigned char chf$fh_mch_savf21 [16]; unsigned char chf$fh_mch_savf22 [16]; unsigned char chf$fh_mch_savf23 [16]; unsigned char chf$fh_mch_savf24 [16]; unsigned char chf$fh_mch_savf25 [16]; unsigned char chf$fh_mch_savf26 [16]; unsigned char chf$fh_mch_savf27 [16]; unsigned char chf$fh_mch_savf28 [16]; unsigned char chf$fh_mch_savf29 [16]; unsigned char chf$fh_mch_savf30 [16]; unsigned char chf$fh_mch_savf31 [16]; __union { __int64 chf$ih_mch_savb1; __int64 chf$q_mch_savb1; /* Obsolete definition */ } chf$r_savb1; __union { __int64 chf$ih_mch_savb2; __int64 chf$q_mch_savb2; /* Obsolete definition */ } chf$r_savb2; __union { __int64 chf$ih_mch_savb3; __int64 chf$q_mch_savb3; /* Obsolete definition */ } chf$r_savb3; __union { __int64 chf$ih_mch_savb4; __int64 chf$q_mch_savb4; /* Obsolete definition */ } chf$r_savb4; __union { __int64 chf$ih_mch_savb5; __int64 chf$q_mch_savb5; /* Obsolete definition */ } chf$r_savb5; __union { __int64 chf$ih_mch_ar_lc; __int64 chf$q_mch_ar_lc; /* Obsolete definition */ } chf$r_ar_ec; __int64 chf$ih_mch_ar_ec; #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *chf$ph_mch_ossd; #else unsigned __int64 chf$ph_mch_ossd; #endif unsigned __int64 chf$q_mch_invo_handle; #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *chf$ph_mch_uwr_start; #else unsigned __int64 chf$ph_mch_uwr_start; #endif unsigned __int64 chf$ih_mch_fpsr; unsigned __int64 chf$ih_mch_fpss; } CHFDEF2; #if !defined(__VAXC) #define chf$q_mch_args chf$r_mch_args_desc1.chf$q_mch_args #define chf$r_mch_args_desc2 chf$r_mch_args_desc1.chf$r_mch_args_desc2 #define chf$is_mch_args chf$r_mch_args_desc2.chf$is_mch_args #define chf$is_mch_flags chf$r_mch_args_desc2.chf$r_mch_flags_desc.chf$is_mch_flags #define chf$r_mch_flags_bits chf$r_mch_args_desc2.chf$r_mch_flags_desc.chf$r_mch_flags_bits #define chf$v_fpregs_valid chf$r_mch_flags_bits.chf$v_fpregs_valid #define chf$v_fpregs2_valid chf$r_mch_flags_bits.chf$v_fpregs2_valid #define chf$q_mch_depth chf$r_mch_depth_desc.chf$q_mch_depth #define chf$is_mch_depth chf$r_mch_depth_desc.chf$r_mch_depth_field.chf$is_mch_depth #define chf$is_mch_resvd1 chf$r_mch_depth_desc.chf$r_mch_depth_field.chf$is_mch_resvd1 #define chf$q_mch_savr0 chf$r_retval.chf$q_mch_savr0 #define chf$q_mch_retval chf$r_retval.chf$q_mch_retval #define chf$ih_mch_retval chf$r_retval.chf$ih_mch_retval #define chf$q_mch_savr1 chf$r_retval2.chf$q_mch_savr1 #define chf$q_mch_retval2 chf$r_retval2.chf$q_mch_retval2 #define chf$ih_mch_retval2 chf$r_retval2.chf$ih_mch_retval2 #define chf$ih_mch_savb1 chf$r_savb1.chf$ih_mch_savb1 #define chf$q_mch_savb1 chf$r_savb1.chf$q_mch_savb1 #define chf$ih_mch_savb2 chf$r_savb2.chf$ih_mch_savb2 #define chf$q_mch_savb2 chf$r_savb2.chf$q_mch_savb2 #define chf$ih_mch_savb3 chf$r_savb3.chf$ih_mch_savb3 #define chf$q_mch_savb3 chf$r_savb3.chf$q_mch_savb3 #define chf$ih_mch_savb4 chf$r_savb4.chf$ih_mch_savb4 #define chf$q_mch_savb4 chf$r_savb4.chf$q_mch_savb4 #define chf$ih_mch_savb5 chf$r_savb5.chf$ih_mch_savb5 #define chf$q_mch_savb5 chf$r_savb5.chf$q_mch_savb5 #define chf$ih_mch_ar_lc chf$r_ar_ec.chf$ih_mch_ar_lc #define chf$q_mch_ar_lc chf$r_ar_ec.chf$q_mch_ar_lc #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif struct chfdef2 { #pragma __nomember_alignment __union { __int64 chf$q_mch_args; __struct { int chf$is_mch_args; __union { int chf$is_mch_flags; /*Flags */ __struct { /*Flags bits. */ unsigned chf$v_fpregs_valid : 1; /*FP registers stored in MCH. */ unsigned chf$v_fpregs2_valid : 1; unsigned chf$v_fill_71_ : 6; } chf$r_mch_flags_bits; } chf$r_mch_flags_desc; } chf$r_mch_args_desc2; } chf$r_mch_args_desc1; __int64 chf$q_mch_frame; __union { __int64 chf$q_mch_depth; __struct { /*2 longwords which are part of MCH_DEPTH */ int chf$is_mch_depth; /*FRAME DEPTH OF ESTABLISHER */ int chf$is_mch_resvd1; /*reserved, paired with DEPTH */ } chf$r_mch_depth_field; } chf$r_mch_depth_desc; __int64 chf$q_mch_daddr; __int64 chf$q_mch_esf_addr; __int64 chf$q_mch_sig_addr; __union { __int64 chf$q_mch_savr0; __int64 chf$q_mch_retval; __int64 chf$ih_mch_retval; } chf$r_retval; __union { __int64 chf$q_mch_savr1; __int64 chf$q_mch_retval2; __int64 chf$ih_mch_retval2; } chf$r_retval2; unsigned __int64 chf$ph_mch_sig64_addr; /*64-bit sig array ptr */ unsigned __int64 chf$ph_mch_savf32_savf127; unsigned char chf$fh_mch_retval_float [16]; unsigned char chf$fh_mch_retval2_float [16]; unsigned char chf$fh_mch_savf2 [16]; unsigned char chf$fh_mch_savf3 [16]; unsigned char chf$fh_mch_savf4 [16]; unsigned char chf$fh_mch_savf5 [16]; unsigned char chf$fh_mch_savf12 [16]; unsigned char chf$fh_mch_savf13 [16]; unsigned char chf$fh_mch_savf14 [16]; unsigned char chf$fh_mch_savf15 [16]; unsigned char chf$fh_mch_savf16 [16]; unsigned char chf$fh_mch_savf17 [16]; unsigned char chf$fh_mch_savf18 [16]; unsigned char chf$fh_mch_savf19 [16]; unsigned char chf$fh_mch_savf20 [16]; unsigned char chf$fh_mch_savf21 [16]; unsigned char chf$fh_mch_savf22 [16]; unsigned char chf$fh_mch_savf23 [16]; unsigned char chf$fh_mch_savf24 [16]; unsigned char chf$fh_mch_savf25 [16]; unsigned char chf$fh_mch_savf26 [16]; unsigned char chf$fh_mch_savf27 [16]; unsigned char chf$fh_mch_savf28 [16]; unsigned char chf$fh_mch_savf29 [16]; unsigned char chf$fh_mch_savf30 [16]; unsigned char chf$fh_mch_savf31 [16]; __union { __int64 chf$ih_mch_savb1; __int64 chf$q_mch_savb1; /* Obsolete definition */ } chf$r_savb1; __union { __int64 chf$ih_mch_savb2; __int64 chf$q_mch_savb2; /* Obsolete definition */ } chf$r_savb2; __union { __int64 chf$ih_mch_savb3; __int64 chf$q_mch_savb3; /* Obsolete definition */ } chf$r_savb3; __union { __int64 chf$ih_mch_savb4; __int64 chf$q_mch_savb4; /* Obsolete definition */ } chf$r_savb4; __union { __int64 chf$ih_mch_savb5; __int64 chf$q_mch_savb5; /* Obsolete definition */ } chf$r_savb5; __union { __int64 chf$ih_mch_ar_lc; __int64 chf$q_mch_ar_lc; /* Obsolete definition */ } chf$r_ar_ec; __int64 chf$ih_mch_ar_ec; unsigned __int64 chf$ph_mch_ossd; unsigned int chf$q_mch_invo_handle [2]; unsigned __int64 chf$ph_mch_uwr_start; unsigned __int64 chf$ih_mch_fpsr; unsigned __int64 chf$ih_mch_fpss; } ; #if !defined(__VAXC) #define chf$q_mch_args chf$r_mch_args_desc1.chf$q_mch_args #define chf$is_mch_args chf$r_mch_args_desc1.chf$r_mch_args_desc2.chf$is_mch_args #define chf$is_mch_flags chf$r_mch_args_desc1.chf$r_mch_args_desc2.chf$r_mch_flags_desc.chf$is_mch_flags #define chf$v_fpregs_valid chf$r_mch_args_desc1.chf$r_mch_args_desc2.chf$r_mch_flags_desc.chf$r_mch_flags_bits.chf$v_fpregs_valid #define chf$v_fpregs2_valid chf$r_mch_args_desc1.chf$r_mch_args_desc2.chf$r_mch_flags_desc.chf$r_mch_flags_bits.chf$v_fpregs2_valid #define chf$q_mch_depth chf$r_mch_depth_desc.chf$q_mch_depth #define chf$is_mch_depth chf$r_mch_depth_desc.chf$r_mch_depth_field.chf$is_mch_depth #define chf$is_mch_resvd1 chf$r_mch_depth_desc.chf$r_mch_depth_field.chf$is_mch_resvd1 #define chf$q_mch_savr0 chf$r_retval.chf$q_mch_savr0 #define chf$q_mch_retval chf$r_retval.chf$q_mch_retval #define chf$ih_mch_retval chf$r_retval.chf$ih_mch_retval #define chf$q_mch_savr1 chf$r_retval2.chf$q_mch_savr1 #define chf$q_mch_retval2 chf$r_retval2.chf$q_mch_retval2 #define chf$ih_mch_retval2 chf$r_retval2.chf$ih_mch_retval2 #define chf$ih_mch_savb1 chf$r_savb1.chf$ih_mch_savb1 #define chf$q_mch_savb1 chf$r_savb1.chf$q_mch_savb1 #define chf$ih_mch_savb2 chf$r_savb2.chf$ih_mch_savb2 #define chf$q_mch_savb2 chf$r_savb2.chf$q_mch_savb2 #define chf$ih_mch_savb3 chf$r_savb3.chf$ih_mch_savb3 #define chf$q_mch_savb3 chf$r_savb3.chf$q_mch_savb3 #define chf$ih_mch_savb4 chf$r_savb4.chf$ih_mch_savb4 #define chf$q_mch_savb4 chf$r_savb4.chf$q_mch_savb4 #define chf$ih_mch_savb5 chf$r_savb5.chf$ih_mch_savb5 #define chf$q_mch_savb5 chf$r_savb5.chf$q_mch_savb5 #define chf$ih_mch_ar_lc chf$r_ar_ec.chf$ih_mch_ar_lc #define chf$q_mch_ar_lc chf$r_ar_ec.chf$q_mch_ar_lc #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #define CHF$M_CALEXT_CANCEL 0x1 #define CHF$M_CALEXT_LAST 0x2 #define CHF$K_CALEXT_LENGTH 16 /*LENGTH OF CATCH-ALL DESC BLOCK */ #define CHF$C_CALEXT_LENGTH 16 /*LENGTH OF CATCH-ALL DESC BLOCK */ #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 _chfdef3 { #pragma __nomember_alignment int chf$l_calext_link; /*CATCH-ALL EXTENSION LINK */ int chf$l_calext_address; /*ADDRESS OF CATCH-ALL EXTENSION */ __union { unsigned int chf$l_calext_flags; /*FLAGS */ __struct { /*FLAGS BITS */ unsigned chf$v_calext_cancel : 1; /*REMOVE CATCH-ALL EXTENSION */ unsigned chf$v_calext_last : 1; /*LAST CATCH-ALL EXTENSION */ unsigned chf$v_fill_72_ : 6; } chf$r_calext_flags_bits; } chf$r_calext_flags_desc; unsigned int chf$l_calext_reserved; /*RESERVED */ } CHFDEF3; #if !defined(__VAXC) #define chf$l_calext_flags chf$r_calext_flags_desc.chf$l_calext_flags #define chf$v_calext_cancel chf$r_calext_flags_desc.chf$r_calext_flags_bits.chf$v_calext_cancel #define chf$v_calext_last chf$r_calext_flags_desc.chf$r_calext_flags_bits.chf$v_calext_last #endif /* #if !defined(__VAXC) */ #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 struct chfdef3 { #pragma __nomember_alignment int chf$l_calext_link; /*CATCH-ALL EXTENSION LINK */ int chf$l_calext_address; /*ADDRESS OF CATCH-ALL EXTENSION */ __union { unsigned int chf$l_calext_flags; /*FLAGS */ __struct { /*FLAGS BITS */ unsigned chf$v_calext_cancel : 1; /*REMOVE CATCH-ALL EXTENSION */ unsigned chf$v_calext_last : 1; /*LAST CATCH-ALL EXTENSION */ unsigned chf$v_fill_72_ : 6; } chf$r_calext_flags_bits; } chf$r_calext_flags_desc; unsigned int chf$l_calext_reserved; /*RESERVED */ } ; #if !defined(__VAXC) #define chf$l_calext_flags chf$r_calext_flags_desc.chf$l_calext_flags #define chf$v_calext_cancel chf$r_calext_flags_desc.chf$r_calext_flags_bits.chf$v_calext_cancel #define chf$v_calext_last chf$r_calext_flags_desc.chf$r_calext_flags_bits.chf$v_calext_last #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif typedef struct _chfdef6 { #pragma __nomember_alignment __union { int chf64$l_sig_args; /* Longword including count & options */ __struct { short int chf64$w_sig_arg_count; /* Word holding count itself */ short int chf64$w_sig_msg_options; /* Word containing message options */ } chf64$r_sig_words; } chf64$r_sig_args_union; int chf64$l_signal64; /* 64-bit array tag: overlays sig_name of 32b version */ __int64 chf64$q_sig_name; /* Signal value */ __int64 chf64$q_sig_arg1; /* First signal argument */ } CHFDEF6; #if !defined(__VAXC) #define chf64$l_sig_args chf64$r_sig_args_union.chf64$l_sig_args #define chf64$w_sig_arg_count chf64$r_sig_args_union.chf64$r_sig_words.chf64$w_sig_arg_count #define chf64$w_sig_msg_options chf64$r_sig_args_union.chf64$r_sig_words.chf64$w_sig_msg_options #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __quadword #else #pragma __nomember_alignment #endif struct chfdef6 { #pragma __nomember_alignment __union { int chf64$l_sig_args; /* Longword including count & options */ __struct { short int chf64$w_sig_arg_count; /* Word holding count itself */ short int chf64$w_sig_msg_options; /* Word containing message options */ } chf64$r_sig_words; } chf64$r_sig_args_union; int chf64$l_signal64; /* 64-bit array tag: overlays sig_name of 32b version */ int chf64$q_sig_name [2]; /* Signal value */ int chf64$q_sig_arg1 [2]; /* First signal argument */ } ; #if !defined(__VAXC) #define chf64$l_sig_args chf64$r_sig_args_union.chf64$l_sig_args #define chf64$w_sig_arg_count chf64$r_sig_args_union.chf64$r_sig_words.chf64$w_sig_arg_count #define chf64$w_sig_msg_options chf64$r_sig_args_union.chf64$r_sig_words.chf64$w_sig_msg_options #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET #define chf$arglist _chfdef #define chf$signal_array _chfdef1 #define chf$mech_array _chfdef2 #define chf64$signal_array _chfdef6 #define CHF$ARGLIST CHFDEF #define CHF$SIGNAL_ARRAY CHFDEF1 #define CHF$MECH_ARRAY CHFDEF2 #define CHF64$SIGNAL_ARRAY CHFDEF6 #else #define chf$arglist chfdef #define chf$signal_array chfdef1 #define chf$mech_array chfdef2 #define chf64$signal_array chfdef6 #endif #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 /* __CHFDEF_LOADED */ /* CC header ends here */ #endif /* IAS_ASSEMBLER */