101 #define Dbl_to_sgl_mantissa(srcA,srcB,dest,inexact,guard,sticky,odd)	\  argument
102     Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest); 	\
108 #define Dbl_to_sgl_denormalized(srcA,srcB,exp,dest,inexact,guard,sticky,odd,tiny) \  argument
109     Deposit_dexponent(srcA,1);						\
116 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
121 			if (Dbl_iszero_sign(srcA)) {			\
129 			if (Dbl_isone_sign(srcA)) {			\
151     		Deposit_dsign(srcA,0);					\
152     	        Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
159     	    Deposit_dsign(srcA,0);					\
160     	    if (exp == -2) dest = Dallp1(srcA);				\
161     	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
166     	Deposit_dsign(srcA,0);						\
168     	    dest = Dallp1(srcA) >> (- 2 - exp);				\
169     	    inexact = Dallp1(srcA) << (34 + exp);			\
177     	    inexact = Dallp1(srcA) | Dallp2(srcB);			\
179     	    	guard = Dhidden(srcA);					\
180     	    	sticky = Dmantissap1(srcA) | Dallp2(srcB); 		\
290 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
291     dest->wd0 = Dintp1(srcA);		\
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); \