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
120     if( (Dmantissap2(dbl_valueB) += 1) == 0 )  \
122 #define Dbl_decrement(dbl_valueA,dbl_valueB) \  argument
123     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
124     Dallp2(dbl_valueB) -= 1
129 #define Dbl_isone_lowmantissap2(dbl_valueB) (Is_dlowp2(dbl_valueB)!=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))
140 #define Dbl_isnotzero_mantissap2(dbl_valueB) (Dmantissap2(dbl_valueB)!=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
145     Dallp2(dbl_valueB)==0)
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
166     Dmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
167 #define Dbl_isnan(dbl_valueA,dbl_valueB)		\  argument
169     (Dmantissap1(dbl_valueA)!=0 || Dmantissap2(dbl_valueB)!=0))
170 #define Dbl_isnotnan(dbl_valueA,dbl_valueB)		\  argument
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)); \
196     Dallp2(dbl_valueB) <<= 8
197 #define Dbl_leftshiftby7(dbl_valueA,dbl_valueB) \  argument
198     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
199     Dallp2(dbl_valueB) <<= 7
200 #define Dbl_leftshiftby4(dbl_valueA,dbl_valueB) \  argument
201     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
202     Dallp2(dbl_valueB) <<= 4
203 #define Dbl_leftshiftby3(dbl_valueA,dbl_valueB) \  argument
204     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
205     Dallp2(dbl_valueB) <<= 3
206 #define Dbl_leftshiftby2(dbl_valueA,dbl_valueB) \  argument
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
208     Dallp2(dbl_valueB) <<= 2
209 #define Dbl_leftshiftby1(dbl_valueA,dbl_valueB) \  argument
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
211     Dallp2(dbl_valueB) <<= 1
213 #define Dbl_rightshiftby8(dbl_valueA,dbl_valueB) \  argument
214     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
216 #define Dbl_rightshiftby4(dbl_valueA,dbl_valueB) \  argument
217     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
219 #define Dbl_rightshiftby2(dbl_valueA,dbl_valueB) \  argument
220     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
222 #define Dbl_rightshiftby1(dbl_valueA,dbl_valueB) \  argument
223     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
272 #define Dbl_setinfinity_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
275     Dmantissap2(dbl_valueB) = 0
276 #define Dbl_setinfinitypositive(dbl_valueA,dbl_valueB)		\  argument
279     Dmantissap2(dbl_valueB) = 0
280 #define Dbl_setinfinitynegative(dbl_valueA,dbl_valueB)		\  argument
283     Dmantissap2(dbl_valueB) = 0
284 #define Dbl_setinfinity(dbl_valueA,dbl_valueB,sign)		\  argument
287     Dmantissap2(dbl_valueB) = 0
297 #define Dbl_setzero_mantissa(dbl_valueA,dbl_valueB)	\  argument
299     Dallp2(dbl_valueB) = 0
302 #define Dbl_setzero_exponentmantissa(dbl_valueA,dbl_valueB)	\  argument
304     Dallp2(dbl_valueB) = 0
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
324     Dallp2(dbl_valueB) = 0xFFFFFFFF
325 #define Dbl_setlargestnegative(dbl_valueA,dbl_valueB) 			\  argument
329     Dallp2(dbl_valueB) = 0xFFFFFFFF
330 #define Dbl_setlargest_exponentmantissa(dbl_valueA,dbl_valueB)		\  argument
334     Dallp2(dbl_valueB) = 0xFFFFFFFF
336 #define Dbl_setnegativeinfinity(dbl_valueA,dbl_valueB) 			\  argument
339     Dallp2(dbl_valueB) = 0
340 #define Dbl_setlargest(dbl_valueA,dbl_valueB,sign)			\  argument
344     Dallp2(dbl_valueB) = 0xFFFFFFFF