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
107     if( (Dmantissap2(dbl_valueB) += 1) == 0 )  \
109 #define Dbl_decrement(dbl_valueA,dbl_valueB) \  argument
110     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
111     Dallp2(dbl_valueB) -= 1
116 #define Dbl_isone_lowmantissap2(dbl_valueB) (Is_dlowp2(dbl_valueB)!=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))
127 #define Dbl_isnotzero_mantissap2(dbl_valueB) (Dmantissap2(dbl_valueB)!=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
132     Dallp2(dbl_valueB)==0)
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
153     Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
154 #define Dbl_isnan(dbl_valueA,dbl_valueB)		\  argument
156     (Dmantissap1(dbl_valueA)!=0 || Dmantissap2(dbl_valueB)!=0))
157 #define Dbl_isnotnan(dbl_valueA,dbl_valueB)		\  argument
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)); \
183     Dallp2(dbl_valueB) <<= 8
184 #define Dbl_leftshiftby7(dbl_valueA,dbl_valueB) \  argument
185     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
186     Dallp2(dbl_valueB) <<= 7
187 #define Dbl_leftshiftby4(dbl_valueA,dbl_valueB) \  argument
188     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
189     Dallp2(dbl_valueB) <<= 4
190 #define Dbl_leftshiftby3(dbl_valueA,dbl_valueB) \  argument
191     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
192     Dallp2(dbl_valueB) <<= 3
193 #define Dbl_leftshiftby2(dbl_valueA,dbl_valueB) \  argument
194     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
195     Dallp2(dbl_valueB) <<= 2
196 #define Dbl_leftshiftby1(dbl_valueA,dbl_valueB) \  argument
197     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
198     Dallp2(dbl_valueB) <<= 1
200 #define Dbl_rightshiftby8(dbl_valueA,dbl_valueB) \  argument
201     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
203 #define Dbl_rightshiftby4(dbl_valueA,dbl_valueB) \  argument
204     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
206 #define Dbl_rightshiftby2(dbl_valueA,dbl_valueB) \  argument
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
209 #define Dbl_rightshiftby1(dbl_valueA,dbl_valueB) \  argument
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
259 #define Dbl_setinfinity_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
262     Dmantissap2(dbl_valueB) = 0
263 #define Dbl_setinfinitypositive(dbl_valueA,dbl_valueB)		\  argument
266     Dmantissap2(dbl_valueB) = 0
267 #define Dbl_setinfinitynegative(dbl_valueA,dbl_valueB)		\  argument
270     Dmantissap2(dbl_valueB) = 0
271 #define Dbl_setinfinity(dbl_valueA,dbl_valueB,sign)		\  argument
274     Dmantissap2(dbl_valueB) = 0
284 #define Dbl_setzero_mantissa(dbl_valueA,dbl_valueB)	\  argument
286     Dallp2(dbl_valueB) = 0
289 #define Dbl_setzero_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
291     Dallp2(dbl_valueB) = 0
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
311     Dallp2(dbl_valueB) = 0xFFFFFFFF
312 #define Dbl_setlargestnegative(dbl_valueA,dbl_valueB) 			\  argument
316     Dallp2(dbl_valueB) = 0xFFFFFFFF
317 #define Dbl_setlargest_exponentmantissa(dbl_valueA,dbl_valueB)		\  argument
321     Dallp2(dbl_valueB) = 0xFFFFFFFF
323 #define Dbl_setnegativeinfinity(dbl_valueA,dbl_valueB) 			\  argument
326     Dallp2(dbl_valueB) = 0
327 #define Dbl_setlargest(dbl_valueA,dbl_valueB,sign)			\  argument
331     Dallp2(dbl_valueB) = 0xFFFFFFFF