101 #define Dbl_to_sgl_mantissa(srcA,srcB,dest,inexact,guard,sticky,odd)	\  argument
102     Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest); 	\
103     guard = Dbit3p2(srcB);					\
104     sticky = Dallp2(srcB)<<4;					\
106     odd = Dbit2p2(srcB)
108 #define Dbl_to_sgl_denormalized(srcA,srcB,exp,dest,inexact,guard,sticky,odd,tiny) \  argument
113 	    inexact = Dallp2(srcB) << 3;				\
116 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
152     	        Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
156     	    inexact = Dallp2(srcB) << (2 + exp);			\
161     	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
171     	    sticky = (inexact << 1) | Dallp2(srcB);			\
172     	    inexact |= Dallp2(srcB); 					\
177     	    inexact = Dallp1(srcA) | Dallp2(srcB);			\
180     	    	sticky = Dmantissap1(srcA) | Dallp2(srcB); 		\
290 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
292     dest->wd1 = Dintp2(srcB)
316 #define Duint_copytoptr(srcA,srcB,dest)	\  argument
317     Dint_copytoptr(srcA,srcB,dest)
368 #define Suint_from_dbl_mantissa(srcA,srcB,exponent,dest) \  argument
369     Shiftdouble(Dallp1(srcA),Dallp2(srcB),21,dest); \