Dallp1
Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest); \
if (exp == -2) dest = Dallp1(srcA); \
else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
dest = Dallp1(srcA) >> (- 2 - exp); \
inexact = Dallp1(srcA) << (34 + exp); \
inexact = Dallp1(srcA) | Dallp2(srcB); \
Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
Dallp1(dbl_valueA) >> ((30 - DBL_EXP_LENGTH) - exponent) : \
(Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),22,Dallp1(dbl_valueA)); \
if (exponent < 31) Dallp1(dbl_valueA) >>= 30 - exponent; \
else Dallp1(dbl_valueA) <<= 1
Dintp2(destB) = Dallp1(dbl_valueA) >> 20-exponent; \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Dintp1(destA) = Dallp1(dbl_valueA) >> 52-exponent; \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
if ((++Dallp2(dbl_opndB))==0) Dallp1(dbl_opndA)++
Shiftdouble(Dallp1(srcA),Dallp2(srcB),21,dest); \
if ((++Dallp2(dbl_opndB))==0) Dallp1(dbl_opndA)++
if( (Dallp2(dbl_valueB) += 1) == 0 ) Dallp1(dbl_valueA) += 1
if( Dallp2(dbl_valueB) == 0 ) Dallp1(dbl_valueA) -= 1; \
(Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
#define Dbl_firstword(value) Dallp1(value)
#define Dbl_iszero(dbl_valueA,dbl_valueB) (Dallp1(dbl_valueA)==0 && \
#define Dbl_iszero_allp1(dbl_value) (Dallp1(dbl_value)==0)
(Dallp1(dbl_op1a) < Dallp1(dbl_op2a) || \
(Dallp1(dbl_op1a) == Dallp1(dbl_op2a) && \
(Dallp1(dbl_op1a) > Dallp1(dbl_op2a) || \
(Dallp1(dbl_op1a) == Dallp1(dbl_op2a) && \
(Dallp1(dbl_op1a) > Dallp1(dbl_op2a) || \
(Dallp1(dbl_op1a) == Dallp1(dbl_op2a) && \
(Dallp1(dbl_op1a) < Dallp1(dbl_op2a) || \
(Dallp1(dbl_op1a) == Dallp1(dbl_op2a) && \
((Dallp1(dbl_op1a) == Dallp1(dbl_op2a)) && \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
Dallp1(dbl_valueA) >>= 8
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
Dallp1(dbl_valueA) >>= 4
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
Dallp1(dbl_valueA) >>= 2
Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
Dallp1(dbl_valueA) >>= 1
#define Dbl_allp1(object) Dallp1(object)
Dallp1(desta) = src->wd0; \
dest->wd0 = Dallp1(srca); \
Dallp1(dbl_valueA) \
Dallp1(dbl_valueA) = ((unsigned int)1<<31) | \
Dallp1(dbl_valueA) = ((unsigned int)sign << 31) | \
#define Dbl_setzero_sign(dbl_value) Dallp1(dbl_value) &= 0x7fffffff
Dallp1(dbl_value) &= 0x800fffff
Dallp1(dbl_valueA) &= 0xfff00000; \
#define Dbl_setzero_mantissap1(dbl_value) Dallp1(dbl_value) &= 0xfff00000
Dallp1(dbl_valueA) &= 0x80000000; \
Dallp1(dbl_valueA) &= 0x80000000
Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
#define Dbl_setzerop1(dbl_value) Dallp1(dbl_value) = 0
Dallp1(dbl_value) = (unsigned int)1 << 31; Dallp2(dbl_value) = 0
Dallp1(src1dst) = (Dallp1(src2)|~((unsigned int)1<<31)) & Dallp1(src1dst)
#define Dbl_setnegativezerop1(dbl_value) Dallp1(dbl_value) = (unsigned int)1<<31
Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
Dallp1(src1dst) = (Dallp1(src2)&((unsigned int)1<<31)) | Dallp1(src1dst)
Dallp1(dbl_valueA) = ((1<<DBL_EXP_LENGTH) | DBL_INFINITY_EXPONENT) \
Dallp1(dbl_valueA) = ((unsigned int)sign << 31) | \
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB), \
Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32); \
Extall(extent) = Dallp1(srcdstA); \
Dallp1(srcdstA) = 0; \
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
Dallp1(srcdstA) >>= shift; \
Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) | \
#define Dbl_clear_sign(srcdst) Dallp1(srcdst) &= ~((unsigned int)1<<31)
Dallp1(srcdstA) = Dallp1(srcdstA) >> shift
if( Dallp2(rightb) > Dallp2(leftb) ) Dallp1(lefta)--; \
Dallp1(resulta) = Dallp1(lefta) - Dallp1(righta)
if((Dallp2(resultb)--) == 0) Dallp1(resulta)--; \
Dallp1(srcdst) &= Dmantissap1((unsigned int)-1)
Dallp1(resulta) = Dallp1(lefta) + Dallp1(righta); \
Dallp1(resulta)++
result = Dallp1(left) XOR Dallp1(right)
Dallp1(result) = left XOR Dallp1(right)
Dallp1(desta) = ((DBL_EMAX+DBL_BIAS)+1)<< (32-(1+DBL_EXP_LENGTH)) \
Dallp1(desta) = ((DBL_EMAX+DBL_BIAS)+1)<< (32-(1+DBL_EXP_LENGTH)) \
if ((src1dstB) + (src2B) < (src1dstB)) Dallp1(src1dstA)++; \
Dallp1(src1dstA) += (src2A); \
if ((src1dstB) < (src2B)) Dallp1(src1dstA)--; \
Dallp1(src1dstA) -= (src2A); \
Dallp1(opndp1) >>= 1-exponent; \
Dallp2(opndp2) = Dallp1(opndp1); \
guard = (Dallp1(opndp1) >> -32-exponent) & 1; \
else sticky |= (Dallp2(opndp2) | Dallp1(opndp1) << 64+exponent); \
Dallp2(opndp2) = Dallp1(opndp1) >> -31-exponent; \
sticky |= (Dallp1(opndp1) | Dallp2(opndp2)); \
Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32); \
Dallp1(srcdstA)=0; \
Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), \
Dallp1(srcdstA) >>= varamount; \
Dallp1(srcdstA) &= ((unsigned int)1<<31); /* clear expmant field */ \
Dextallp1(dest1) = Dallp1(src1); Dextallp2(dest2) = Dallp2(src2); \
Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32); \
Dallp1(srcdstA) = (Dallp1(srcdstA) << (varamount)) | \
Shiftdouble(Dallp1(lefta), Dallp2(leftb), 31, Dallp1(resulta)); \
Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
Dallp1(srcdstA) = (int)Dallp1(srcdstA) >> 1
if ((Dallp2(dbl_valuep2)--) == 0) Dallp1(dbl_valuep1)--
Sgl_set_mantissa(result,Dallp1(srcp1)<<3 | Dallp2(srcp2)>>29);