52 #define Sgl_to_dbl_exponent(src_exponent,dest)			\  argument
53     Deposit_dexponent(dest,src_exponent+(DBL_BIAS-SGL_BIAS))
98 #define Dbl_to_sgl_exponent(src_exponent,dest)			\  argument
99     dest = src_exponent + (SGL_BIAS - DBL_BIAS)
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
116 	    Shiftdouble(Dmantissap1(srcA),Dmantissap2(srcB),29,dest);	\
117 	    odd = dest << 31;						\
122 			    dest++;					\
123 			    if (Sgl_isone_hidden(dest))	\
125 			    dest--;					\
130 			    dest++;					\
131 			    if (Sgl_isone_hidden(dest))	\
133 			    dest--;					\
138 			    dest++;					\
139 			    if (Sgl_isone_hidden(dest))	\
141 			    dest--;					\
150 		dest >>= 1;						\
152     	        Shiftdouble(Dallp1(srcA),Dallp2(srcB),30,dest);		\
153 	        odd = dest << 31;					\
160     	    if (exp == -2) dest = Dallp1(srcA);				\
161     	    else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
162     	    odd = dest << 31;						\
168     	    dest = Dallp1(srcA) >> (- 2 - exp);				\
173     	    odd = dest << 31;						\
176     	    dest = 0;							\
290 #define Dint_copytoptr(srcA,srcB,dest)	\  argument
291     dest->wd0 = Dintp1(srcA);		\
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); \
370     dest = (unsigned)dest >> 31 - exponent