88 #define Dbl_to_sgl_mantissa(srcA,srcB,dest,inexact,guard,sticky,odd)	\  argument
89     Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest); 	\
90     guard = Dbit3p2(srcB);					\
91     sticky = Dallp2(srcB)<<4;					\
93     odd = Dbit2p2(srcB)
95 #define Dbl_to_sgl_denormalized(srcA,srcB,exp,dest,inexact,guard,sticky,odd,tiny) \  argument
100 	    inexact = Dallp2(srcB) << 3;				\
103 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
139     	        Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
143     	    inexact = Dallp2(srcB) << (2 + exp);			\
148     	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
158     	    sticky = (inexact << 1) | Dallp2(srcB);			\
159     	    inexact |= Dallp2(srcB); 					\
164     	    inexact = Dallp1(srcA) | Dallp2(srcB);			\
167     	    	sticky = Dmantissap1(srcA) | Dallp2(srcB); 		\
277 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
279     dest->wd1 = Dintp2(srcB)
303 #define Duint_copytoptr(srcA,srcB,dest)	\  argument
304     Dint_copytoptr(srcA,srcB,dest)
355 #define Suint_from_dbl_mantissa(srcA,srcB,exponent,dest) \  argument
356     Shiftdouble(Dallp1(srcA),Dallp2(srcB),21,dest); \