Bitfield_extract
#define Dhighp1(object) Bitfield_extract( 0, 1,object)
#define Dhigh4p1(object) Bitfield_extract( 0, 4,object)
#define Dhigh31p1(object) Bitfield_extract( 0, 31,object)
#define Dbit3p1(object) Bitfield_extract( 3, 1,object)
#define Dhighp2(object) Bitfield_extract( 0, 1,object)
#define Dhigh31p2(object) Bitfield_extract( 0, 31,object)
#define Dbit2p2(object) Bitfield_extract( 2, 1,object)
#define Dbit3p2(object) Bitfield_extract( 3, 1,object)
#define Dbit21p2(object) Bitfield_extract( 21, 1,object)
#define Dbit28p2(object) Bitfield_extract( 28, 1,object)
#define Dbit29p2(object) Bitfield_extract( 29, 1,object)
#define Dbit30p2(object) Bitfield_extract( 30, 1,object)
#define Extsign(object) Bitfield_extract( 0, 1,object)
#define Exthigh31(object) Bitfield_extract( 0, 31,object)
#define Extlow31(object) Bitfield_extract( 1, 31,object)
#define Extlow(object) Bitfield_extract( 31, 1,object)
#define Ssign(object) Bitfield_extract( 0, 1,object)
#define Sexponent(object) Bitfield_extract( 1, 8,object)
#define Ssignaling(object) Bitfield_extract( 9, 1,object)
#define Cbit(object) Bitfield_extract( 5, 1,object)
#define Tbit(object) Bitfield_extract( 25, 1,object)
#define Roundingmode(object) Bitfield_extract( 21, 2,object)
#define Invalidtrap(object) Bitfield_extract( 27, 1,object)
#define Divisionbyzerotrap(object) Bitfield_extract( 28, 1,object)
#define Overflowtrap(object) Bitfield_extract( 29, 1,object)
#define Ssignalingnan(object) Bitfield_extract( 1, 9,object)
#define Underflowtrap(object) Bitfield_extract( 30, 1,object)
#define Inexacttrap(object) Bitfield_extract( 31, 1,object)
#define Invalidflag(object) Bitfield_extract( 0, 1,object)
#define Divisionbyzeroflag(object) Bitfield_extract( 1, 1,object)
#define Overflowflag(object) Bitfield_extract( 2, 1,object)
#define Underflowflag(object) Bitfield_extract( 3, 1,object)
#define Inexactflag(object) Bitfield_extract( 4, 1,object)
#define Allflags(object) Bitfield_extract( 0, 5,object)
#define Shigh2mantissa(object) Bitfield_extract( 9, 2,object)
#define Ssignexponent(object) Bitfield_extract( 0, 9,object)
#define Exceptiontype(object) Bitfield_extract( 0, 6,object)
#define Parmfield(object) Bitfield_extract( 23, 3,object)
#define Rabit(object) Bitfield_extract( 24, 1,object)
#define Ibit(object) Bitfield_extract( 25, 1,object)
#define Shidden(object) Bitfield_extract( 8, 1,object)
#define Shiddenoverflow(object) Bitfield_extract( 7, 1,object)
#define Greaterthanbit(object) Bitfield_extract( 27, 1,object)
#define Lessthanbit(object) Bitfield_extract( 28, 1,object)
#define Equalbit(object) Bitfield_extract( 29, 1,object)
#define Unorderedbit(object) Bitfield_extract( 30, 1,object)
#define Exceptionbit(object) Bitfield_extract( 31, 1,object)
#define Shiddenhigh7mantissa(object) Bitfield_extract( 8, 8,object)
#define Shiddenhigh3mantissa(object) Bitfield_extract( 8, 4,object)
Bitfield_deposit(Bitfield_extract(10,10,Fpustatus_register),11,10,Fpustatus_register); \
Bitfield_deposit(Bitfield_extract(5,1,Fpustatus_register),10,1,Fpustatus_register); \
#define Shigh31(object) Bitfield_extract( 0, 31,object)
#define Shigh4(object) Bitfield_extract( 0, 4,object)
#define Sbit24(object) Bitfield_extract( 24, 1,object)
#define Sbit28(object) Bitfield_extract( 28, 1,object)
#define Sbit29(object) Bitfield_extract( 29, 1,object)
#define Sbit30(object) Bitfield_extract( 30, 1,object)
#define Dsign(object) Bitfield_extract( 0, 1,object)
#define Dexponent(object) Bitfield_extract( 1, 11,object)
#define Dsignaling(object) Bitfield_extract( 12, 1,object)
#define Dsignalingnan(object) Bitfield_extract( 1, 12,object)
#define Dhigh2mantissa(object) Bitfield_extract( 12, 2,object)
#define Dsignexponent(object) Bitfield_extract( 0, 12,object)
#define Dhidden(object) Bitfield_extract( 11, 1,object)
#define Dhiddenoverflow(object) Bitfield_extract( 10, 1,object)
#define Dhiddenhigh7mantissa(object) Bitfield_extract( 11, 8,object)
#define Dhiddenhigh3mantissa(object) Bitfield_extract( 11, 4,object)