104 #define Dbl_increment(dbl_valueA,dbl_valueB) \  argument
105     if( (Dallp2(dbl_valueB) += 1) == 0 )  Dallp1(dbl_valueA) += 1
106 #define Dbl_increment_mantissa(dbl_valueA,dbl_valueB) \  argument
108     Deposit_dmantissap1(dbl_valueA,dbl_valueA+1)
109 #define Dbl_decrement(dbl_valueA,dbl_valueB) \  argument
110     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
115 #define Dbl_isone_lowmantissap1(dbl_valueA) (Is_dlowp1(dbl_valueA)!=0)  argument
119 #define Dbl_isnotzero(dbl_valueA,dbl_valueB) \  argument
120     (Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
124 #define Dbl_isnotzero_mantissa(dbl_valueA,dbl_valueB) \  argument
125     (Dmantissap1(dbl_valueA) || Dmantissap2(dbl_valueB))
126 #define Dbl_isnotzero_mantissap1(dbl_valueA) (Dmantissap1(dbl_valueA)!=0)  argument
128 #define Dbl_isnotzero_exponentmantissa(dbl_valueA,dbl_valueB) \  argument
129     (Dexponentmantissap1(dbl_valueA) || Dmantissap2(dbl_valueB))
131 #define Dbl_iszero(dbl_valueA,dbl_valueB) (Dallp1(dbl_valueA)==0 && \  argument
143 #define Dbl_iszero_mantissa(dbl_valueA,dbl_valueB) \  argument
144     (Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
145 #define Dbl_iszero_exponentmantissa(dbl_valueA,dbl_valueB) \  argument
146     (Dexponentmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
151 #define Dbl_isinfinity(dbl_valueA,dbl_valueB)			\  argument
152     (Dexponent(dbl_valueA)==DBL_INFINITY_EXPONENT &&	\
153     Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
154 #define Dbl_isnan(dbl_valueA,dbl_valueB)		\  argument
155     (Dexponent(dbl_valueA)==DBL_INFINITY_EXPONENT &&	\
156     (Dmantissap1(dbl_valueA)!=0 || Dmantissap2(dbl_valueB)!=0))
157 #define Dbl_isnotnan(dbl_valueA,dbl_valueB)		\  argument
158     (Dexponent(dbl_valueA)!=DBL_INFINITY_EXPONENT ||	\
159     (Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0))
181 #define Dbl_leftshiftby8(dbl_valueA,dbl_valueB) \  argument
182     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
184 #define Dbl_leftshiftby7(dbl_valueA,dbl_valueB) \  argument
185     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
187 #define Dbl_leftshiftby4(dbl_valueA,dbl_valueB) \  argument
188     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
190 #define Dbl_leftshiftby3(dbl_valueA,dbl_valueB) \  argument
191     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
193 #define Dbl_leftshiftby2(dbl_valueA,dbl_valueB) \  argument
194     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
196 #define Dbl_leftshiftby1(dbl_valueA,dbl_valueB) \  argument
197     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
200 #define Dbl_rightshiftby8(dbl_valueA,dbl_valueB) \  argument
201     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
202     Dallp1(dbl_valueA) >>= 8
203 #define Dbl_rightshiftby4(dbl_valueA,dbl_valueB) \  argument
204     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
205     Dallp1(dbl_valueA) >>= 4
206 #define Dbl_rightshiftby2(dbl_valueA,dbl_valueB) \  argument
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
208     Dallp1(dbl_valueA) >>= 2
209 #define Dbl_rightshiftby1(dbl_valueA,dbl_valueB) \  argument
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
211     Dallp1(dbl_valueA) >>= 1
259 #define Dbl_setinfinity_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
260     Deposit_dexponentmantissap1(dbl_valueA, 			\
263 #define Dbl_setinfinitypositive(dbl_valueA,dbl_valueB)		\  argument
264     Dallp1(dbl_valueA) 						\
267 #define Dbl_setinfinitynegative(dbl_valueA,dbl_valueB)		\  argument
268     Dallp1(dbl_valueA) = ((unsigned int)1<<31) |		\
271 #define Dbl_setinfinity(dbl_valueA,dbl_valueB,sign)		\  argument
272     Dallp1(dbl_valueA) = ((unsigned int)sign << 31) | 		\
284 #define Dbl_setzero_mantissa(dbl_valueA,dbl_valueB)	\  argument
285     Dallp1(dbl_valueA) &= 0xfff00000; 			\
289 #define Dbl_setzero_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
290     Dallp1(dbl_valueA) &= 0x80000000;		\
292 #define Dbl_setzero_exponentmantissap1(dbl_valueA)	\  argument
293     Dallp1(dbl_valueA) &= 0x80000000
294 #define Dbl_setzero(dbl_valueA,dbl_valueB) \  argument
295     Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
308 #define Dbl_setlargestpositive(dbl_valueA,dbl_valueB) 			\  argument
309     Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
312 #define Dbl_setlargestnegative(dbl_valueA,dbl_valueB) 			\  argument
313     Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
317 #define Dbl_setlargest_exponentmantissa(dbl_valueA,dbl_valueB)		\  argument
318     Deposit_dexponentmantissap1(dbl_valueA,				\
323 #define Dbl_setnegativeinfinity(dbl_valueA,dbl_valueB) 			\  argument
324     Dallp1(dbl_valueA) = ((1<<DBL_EXP_LENGTH) | DBL_INFINITY_EXPONENT) 	\
327 #define Dbl_setlargest(dbl_valueA,dbl_valueB,sign)			\  argument
328     Dallp1(dbl_valueA) = ((unsigned int)sign << 31) |			\