Dallp2
sticky = Dallp2(srcB)<<4; \
inexact = Dallp2(srcB) << 3; \
Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest); \
inexact = Dallp2(srcB) << (2 + exp); \
else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
sticky = (inexact << 1) | Dallp2(srcB); \
inexact |= Dallp2(srcB); \
inexact = Dallp1(srcA) | Dallp2(srcB); \
sticky = Dmantissap1(srcA) | Dallp2(srcB); \
Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
(exponent < (DBL_P-1) ? Dallp2(dbl_valueB) << (exponent + (33-DBL_P)) : \
Dmantissap1(dbl_valueA)!=0 || (Dallp2(dbl_valueB)>>21)!=0 )
Dallp2(dbl_valueB) >> ((DBL_P - 2) - exponent)) & 1)
(Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
(exponent<(DBL_P-2) ? (Dallp2(dbl_valueB) << (exponent + (34-DBL_P))) : \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),22,Dallp1(dbl_valueA)); \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
if (exponent == 52) Dintp2(destB) = Dallp2(dbl_valueB); \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Dintp2(destB) = Dallp2(dbl_valueB) << ((exponent)-52); \
if ((++Dallp2(dbl_opndB))==0) Dallp1(dbl_opndA)++
Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> ((varamount)-32); \
Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
(varamount), Dallp2(srcdstB)); \
Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32); \
Dallp2(srcdstB)=0; \
(Dallp2(srcdstB) >> (32-(varamount))); \
Dallp2(srcdstB) <<= varamount; \
Shiftdouble(Dallp1(lefta), Dallp2(leftb), 31, Dallp1(resulta)); \
Shiftdouble(Dallp2(leftb), Extall(right), 31, Dallp2(resultb))
Extall(dst) = (Dallp2(leftb) << 31) | ((unsigned)Extall(right) >> 1) | \
Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
if( (Dallp2(dbl_valueB) += 1) == 0 ) Dallp1(dbl_valueA) += 1
if( Dallp2(dbl_valueB) == 0 ) Dallp1(dbl_valueA) -= 1; \
Dallp2(dbl_valueB) -= 1
(Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
Dallp2(dbl_valueB)==0)
#define Dbl_iszero_allp2(dbl_value) (Dallp2(dbl_value)==0)
Dallp2(dbl_op1b) < Dallp2(dbl_op2b)))
Dallp2(dbl_op1b) > Dallp2(dbl_op2b)))
Dallp2(dbl_op1b) >= Dallp2(dbl_op2b)))
Dallp2(dbl_op1b) <= Dallp2(dbl_op2b)))
(Dallp2(dbl_op1b) == Dallp2(dbl_op2b)))
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 8
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 7
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 4
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 3
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 2
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
Dallp2(dbl_valueB) <<= 1
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
( (signlessleft < signlessright) || (Dallp2(leftB)<Dallp2(rightB)) ))
Dallp2(destb) = src->wd1
dest->wd1 = Dallp2(srcb)
Dallp2(dbl_valueB) = 0
#define Dbl_setzero_mantissap2(dbl_value) Dallp2(dbl_value) = 0
Dallp2(dbl_valueB) = 0
Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
#define Dbl_setzerop2(dbl_value) Dallp2(dbl_value) = 0
Dallp1(dbl_value) = 1 << 31; Dallp2(dbl_value) = 0
Dallp2(dbl_valueB) = 0xFFFFFFFF
Dallp2(dbl_valueB) = 0xFFFFFFFF
Dallp2(dbl_valueB) = 0xFFFFFFFF
Dallp2(dbl_valueB) = 0
Dallp2(dbl_valueB) = 0xFFFFFFFF
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB), \
if(Dallp2(srcdstB) << (64 - (shift))) Ext_setone_low(extent); \
else Extall(extent) = Dallp2(srcdstB); \
Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32); \
if(Dallp2(srcdstB)) Ext_setone_low(extent); \
Dallp2(srcdstB) = 0; \
Extall(extent) = Dallp2(srcdstB) << (32 - (shift)); \
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
Dallp2(srcdstB)); \
Extall(extent) = Dallp2(srcdstB) << (32 - (shift)); \
Dallp2(srcdstB) = (Dallp1(srcdstA) << (32 - (shift))) | \
(Dallp2(srcdstB) >> (shift)); \
if( Dallp2(rightb) > Dallp2(leftb) ) Dallp1(lefta)--; \
Dallp2(resultb) = Dallp2(leftb) - Dallp2(rightb); \
if((Dallp2(resultb)--) == 0) Dallp1(resulta)--; \
if((Dallp2(resultb) = Dallp2(leftb) + Dallp2(rightb)) < Dallp2(rightb)) \
Dallp2(left) = Dallp2(left) XOR Dallp2(right); \
Dallp2(right) = Dallp2(left) XOR Dallp2(right); \
Dallp2(left) = Dallp2(left) XOR Dallp2(right)
Dallp2(destb) = 0
Dallp2(destb) = 0
Dallp2(src1dstB) += (src2B)
Dallp2(src1dstB) -= (src2B)
#define Dbl_secondword(value) Dallp2(value)
guard = (Dallp2(opndp2) >> (-(exponent))) & 1; \
if (exponent < 0) sticky |= Dallp2(opndp2) << (32+exponent); \
Dallp2(opndp2) = Dallp1(opndp1); \
if (exponent == -32) sticky |= Dallp2(opndp2); \
else sticky |= (Dallp2(opndp2) | Dallp1(opndp1) << (64+(exponent))); \
Dallp2(opndp2) = Dallp1(opndp1) >> (-31-(exponent)); \
sticky |= (Dallp1(opndp1) | Dallp2(opndp2)); \
#define Dbl_allp2(object) Dallp2(object)
Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32); \
Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), \
(varamount), Dallp2(srcdstB)); \
stickybit |= Dallp2(opnd3p2) << 25;
guardbit = (Dallp2(opnd3p2) << 24) >> 31;
Sgl_set_mantissa(result,Dallp1(srcp1)<<3 | Dallp2(srcp2)>>29);