/* <vms/lib/vpflagsdef.h>
 *
 *	LIB - vector processing flags definitions	[not in Starlet]
 */
#ifndef _VPFLAGSDEF_H
#define _VPFLAGSDEF_H

/*
   Bit definitions for EXE$GL_VP_FLAGS - Vector Processing flags
 */
#define EXE$V_VP_PRESENT	0
#define EXE$V_VP_LOAD		1
#define EXE$V_VP_EXTENDED_WAIT	31
#define EXE$M_VP_PRESENT	(1<<EXE$V_VP_PRESENT)		/* 0x01 */
#define EXE$M_VP_LOAD		(1<<EXE$V_VP_LOAD)		/* 0x02 */
#define EXE$M_VP_EXTENDED_WAIT	(1<<EXE$V_VP_EXTENDED_WAIT)	/* 0x80000000 */

#define EXE$S_VPFLAGSDEF	4
struct vpflagsdef {
    unsigned exe$v_vp_present	: 1;	/* system is vector-present */
    unsigned exe$v_vp_load	: 1;	/* load vector processing code */
    unsigned			: 29;
    unsigned exe$v_vp_extended_wait : 1; /* FORTRAN/PPL extended wait algorithm */
};

/*
   Bit definitions for CTL$GL_VP_FLAGS - Vector Processing flags
 */
#define CTLVP$V_VECTOR_VVIEF	0
#define CTLVP$M_VECTOR_VVIEF	(1<<CTLVP$V_VECTOR_VVIEF)	/* 0x01 */

#define CTLVP$S_CTLVPFLAGSDEF	1
struct ctlvpflagsdef {
    unsigned ctlvp$v_vector_vvief : 1;	/* process is a vector-VVIEF consumer */
    unsigned			: 7;
};

#endif	/*_VPFLAGSDEF_H*/