/***************************************************************************/
/**                                                                       **/
/** HPE CONFIDENTIAL. This software is confidential proprietary software  **/
/** licensed by Hewlett-Packard Enterprise Development, LP, and is not    **/
/** authorized to be used, duplicated OR disclosed to anyone without the  **/
/** prior written permission of HPE.                                      **/
/** © 2023 Copyright Hewlett-Packard Enterprise Development, LP           **/
/**                                                                       **/
/** 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.                    **/
/** © 2023 Copyright VMS Software, Inc.                                   **/
/**                                                                       **/
/***************************************************************************/
/********************************************************************************************************************************/
/* Created:  9-Nov-2023 12:06:40 by OpenVMS SDL V3.7       */
/* Source:  08-AUG-2002 14:06:44 $1$DGA8345:[LIB_H.SRC]FMDEF.SDL;1 */
/********************************************************************************************************************************/
/*** MODULE $FMDEF ***/
#ifndef __FMDEF_LOADED
#define __FMDEF_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
 
#define FM$M_SOF 0x7F
#define FM$M_SOL 0x3F80
#define FM$M_SOR 0x3C000
#define FM$M_RRBFR 0xFE000000
#define FM$M_RRBPR 0x3F00000000
	
#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 _fm {
/*                                                                          */
/* Previous Function State Register                                         */
/****************************************                                   */
#pragma __nomember_alignment
    __union  {
        unsigned __int64 fm$iq_frame_marker;
        __struct  {
            unsigned fm$v_sof : 7;      /* Size of frame                    */
            unsigned fm$v_sol : 7;      /* Size of locals                   */
            unsigned fm$v_sor : 4;      /* Size of rotating (# regs = SOR * 8) */
            unsigned fm$v_rrbgr : 7;    /* Register rename base for general regs */
            unsigned fm$v_rrbfr : 7;    /* Register Rename Base for FP regs */
            unsigned fm$v_rrbpr : 6;    /* Register Rename Base for predicate regs */
            unsigned fm$v_fill_0_ : 2;
            } fm$r_fields;
        } fm$r_fm_overlay;
    } FM;
 
#if !defined(__VAXC)
#define fm$iq_frame_marker fm$r_fm_overlay.fm$iq_frame_marker
#define fm$v_sof fm$r_fm_overlay.fm$r_fields.fm$v_sof
#define fm$v_sol fm$r_fm_overlay.fm$r_fields.fm$v_sol
#define fm$v_sor fm$r_fm_overlay.fm$r_fields.fm$v_sor
#define fm$v_rrbgr fm$r_fm_overlay.fm$r_fields.fm$v_rrbgr
#define fm$v_rrbfr fm$r_fm_overlay.fm$r_fields.fm$v_rrbfr
#define fm$v_rrbpr fm$r_fm_overlay.fm$r_fields.fm$v_rrbpr
#endif		/* #if !defined(__VAXC) */
 
 
#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 /* __FMDEF_LOADED */