88 #define Dbl_to_sgl_mantissa(srcA,srcB,dest,inexact,guard,sticky,odd)	\  argument
89     Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest); 	\
95 #define Dbl_to_sgl_denormalized(srcA,srcB,exp,dest,inexact,guard,sticky,odd,tiny) \  argument
96     Deposit_dexponent(srcA,1);						\
103 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
108 			if (Dbl_iszero_sign(srcA)) {			\
116 			if (Dbl_isone_sign(srcA)) {			\
138     		Deposit_dsign(srcA,0);					\
139     	        Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
146     	    Deposit_dsign(srcA,0);					\
147     	    if (exp == -2) dest = Dallp1(srcA);				\
148     	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
153     	Deposit_dsign(srcA,0);						\
155     	    dest = Dallp1(srcA) >> (- 2 - exp);				\
156     	    inexact = Dallp1(srcA) << (34 + exp);			\
164     	    inexact = Dallp1(srcA) | Dallp2(srcB);			\
166     	    	guard = Dhidden(srcA);					\
167     	    	sticky = Dmantissap1(srcA) | Dallp2(srcB); 		\
277 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
278     dest->wd0 = Dintp1(srcA);		\
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); \