117 #define Dbl_increment(dbl_valueA,dbl_valueB) \  argument
118     if( (Dallp2(dbl_valueB) += 1) == 0 )  Dallp1(dbl_valueA) += 1
119 #define Dbl_increment_mantissa(dbl_valueA,dbl_valueB) \  argument
121     Deposit_dmantissap1(dbl_valueA,dbl_valueA+1)
122 #define Dbl_decrement(dbl_valueA,dbl_valueB) \  argument
123     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
128 #define Dbl_isone_lowmantissap1(dbl_valueA) (Is_dlowp1(dbl_valueA)!=0)  argument
132 #define Dbl_isnotzero(dbl_valueA,dbl_valueB) \  argument
133     (Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
137 #define Dbl_isnotzero_mantissa(dbl_valueA,dbl_valueB) \  argument
138     (Dmantissap1(dbl_valueA) || Dmantissap2(dbl_valueB))
139 #define Dbl_isnotzero_mantissap1(dbl_valueA) (Dmantissap1(dbl_valueA)!=0)  argument
141 #define Dbl_isnotzero_exponentmantissa(dbl_valueA,dbl_valueB) \  argument
142     (Dexponentmantissap1(dbl_valueA) || Dmantissap2(dbl_valueB))
144 #define Dbl_iszero(dbl_valueA,dbl_valueB) (Dallp1(dbl_valueA)==0 && \  argument
156 #define Dbl_iszero_mantissa(dbl_valueA,dbl_valueB) \  argument
157     (Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
158 #define Dbl_iszero_exponentmantissa(dbl_valueA,dbl_valueB) \  argument
159     (Dexponentmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
164 #define Dbl_isinfinity(dbl_valueA,dbl_valueB)			\  argument
165     (Dexponent(dbl_valueA)==DBL_INFINITY_EXPONENT &&	\
166     Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
167 #define Dbl_isnan(dbl_valueA,dbl_valueB)		\  argument
168     (Dexponent(dbl_valueA)==DBL_INFINITY_EXPONENT &&	\
169     (Dmantissap1(dbl_valueA)!=0 || Dmantissap2(dbl_valueB)!=0))
170 #define Dbl_isnotnan(dbl_valueA,dbl_valueB)		\  argument
171     (Dexponent(dbl_valueA)!=DBL_INFINITY_EXPONENT ||	\
172     (Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0))
194 #define Dbl_leftshiftby8(dbl_valueA,dbl_valueB) \  argument
195     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
197 #define Dbl_leftshiftby7(dbl_valueA,dbl_valueB) \  argument
198     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
200 #define Dbl_leftshiftby4(dbl_valueA,dbl_valueB) \  argument
201     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
203 #define Dbl_leftshiftby3(dbl_valueA,dbl_valueB) \  argument
204     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
206 #define Dbl_leftshiftby2(dbl_valueA,dbl_valueB) \  argument
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
209 #define Dbl_leftshiftby1(dbl_valueA,dbl_valueB) \  argument
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
213 #define Dbl_rightshiftby8(dbl_valueA,dbl_valueB) \  argument
214     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
215     Dallp1(dbl_valueA) >>= 8
216 #define Dbl_rightshiftby4(dbl_valueA,dbl_valueB) \  argument
217     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
218     Dallp1(dbl_valueA) >>= 4
219 #define Dbl_rightshiftby2(dbl_valueA,dbl_valueB) \  argument
220     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
221     Dallp1(dbl_valueA) >>= 2
222 #define Dbl_rightshiftby1(dbl_valueA,dbl_valueB) \  argument
223     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
224     Dallp1(dbl_valueA) >>= 1
272 #define Dbl_setinfinity_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
273     Deposit_dexponentmantissap1(dbl_valueA, 			\
276 #define Dbl_setinfinitypositive(dbl_valueA,dbl_valueB)		\  argument
277     Dallp1(dbl_valueA) 						\
280 #define Dbl_setinfinitynegative(dbl_valueA,dbl_valueB)		\  argument
281     Dallp1(dbl_valueA) = ((unsigned int)1<<31) |		\
284 #define Dbl_setinfinity(dbl_valueA,dbl_valueB,sign)		\  argument
285     Dallp1(dbl_valueA) = ((unsigned int)sign << 31) | 		\
297 #define Dbl_setzero_mantissa(dbl_valueA,dbl_valueB)	\  argument
298     Dallp1(dbl_valueA) &= 0xfff00000; 			\
302 #define Dbl_setzero_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
303     Dallp1(dbl_valueA) &= 0x80000000;		\
305 #define Dbl_setzero_exponentmantissap1(dbl_valueA)	\  argument
306     Dallp1(dbl_valueA) &= 0x80000000
307 #define Dbl_setzero(dbl_valueA,dbl_valueB) \  argument
308     Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
321 #define Dbl_setlargestpositive(dbl_valueA,dbl_valueB) 			\  argument
322     Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
325 #define Dbl_setlargestnegative(dbl_valueA,dbl_valueB) 			\  argument
326     Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
330 #define Dbl_setlargest_exponentmantissa(dbl_valueA,dbl_valueB)		\  argument
331     Deposit_dexponentmantissap1(dbl_valueA,				\
336 #define Dbl_setnegativeinfinity(dbl_valueA,dbl_valueB) 			\  argument
337     Dallp1(dbl_valueA) = ((1<<DBL_EXP_LENGTH) | DBL_INFINITY_EXPONENT) 	\
340 #define Dbl_setlargest(dbl_valueA,dbl_valueB,sign)			\  argument
341     Dallp1(dbl_valueA) = ((unsigned int)sign << 31) |			\