116 #define Dbl_to_sgl_mantissa(srcA,srcB,dest,inexact,guard,sticky,odd)	\  argument
117     Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
123 #define Dbl_to_sgl_denormalized(srcA,srcB,exp,dest,inexact,guard,sticky,odd,tiny) \  argument
124     Deposit_dexponent(srcA,1);						\
131 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
136 			if (Dbl_iszero_sign(srcA)) {			\
144 			if (Dbl_isone_sign(srcA)) {			\
166 		Deposit_dsign(srcA,0);					\
167 		Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
174 	    Deposit_dsign(srcA,0);					\
175 	    if (exp == -2) dest = Dallp1(srcA);				\
176 	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
181 	Deposit_dsign(srcA,0);						\
183 	    dest = Dallp1(srcA) >> (- 2 - exp);				\
184 	    inexact = Dallp1(srcA) << (34 + exp);			\
192 	    inexact = Dallp1(srcA) | Dallp2(srcB);			\
194 		guard = Dhidden(srcA);					\
195 		sticky = Dmantissap1(srcA) | Dallp2(srcB);		\
305 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
306     dest->wd0 = Dintp1(srcA);		\