hppa/spmath/dbl_float.h

23 #define Dbl_secondword(value) Dallp2(value)
34 #define Dbl_allp2(object) Dallp2(object)
62 	Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
66 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB),		\
67 	  (varamount), Dallp2(srcdstB));				\
73 	Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> ((varamount)-32); \
77 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
78 	(varamount), Dallp2(srcdstB));					\
85 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
86 	Dallp2(srcdstB)=0;						\
91 		(Dallp2(srcdstB) >> (32-(varamount)));			\
92 	    Dallp2(srcdstB) <<= varamount;				\
96     Shiftdouble(Dallp1(lefta), Dallp2(leftb), 31, Dallp1(resulta));	\
97     Shiftdouble(Dallp2(leftb), Extall(right), 31, Dallp2(resultb))
100     Extall(dst) = (Dallp2(leftb) << 31) | ((unsigned)Extall(right) >> 1) | \
104     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
114     if( (Dallp2(dbl_valueB) += 1) == 0 )  Dallp1(dbl_valueA) += 1
119     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
120     Dallp2(dbl_valueB) -= 1
129     (Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
141     Dallp2(dbl_valueB)==0)
143 #define Dbl_iszero_allp2(dbl_value) (Dallp2(dbl_value)==0)
173       Dallp2(dbl_op1b) < Dallp2(dbl_op2b)))
177       Dallp2(dbl_op1b) > Dallp2(dbl_op2b)))
181       Dallp2(dbl_op1b) >= Dallp2(dbl_op2b)))
185       Dallp2(dbl_op1b) <= Dallp2(dbl_op2b)))
188       (Dallp2(dbl_op1b) == Dallp2(dbl_op2b)))
191     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
192     Dallp2(dbl_valueB) <<= 8
194     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
195     Dallp2(dbl_valueB) <<= 7
197     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
198     Dallp2(dbl_valueB) <<= 4
200     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
201     Dallp2(dbl_valueB) <<= 3
203     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
204     Dallp2(dbl_valueB) <<= 2
206     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
207     Dallp2(dbl_valueB) <<= 1
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
213     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
216     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
219     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
234        ( (signlessleft < signlessright) || (Dallp2(leftB)<Dallp2(rightB)) ))
260     Dallp2(destb) = src->wd1
263     dest->wd1 = Dallp2(srcb)
295     Dallp2(dbl_valueB) = 0
297 #define Dbl_setzero_mantissap2(dbl_value) Dallp2(dbl_value) = 0
300     Dallp2(dbl_valueB) = 0
304     Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
306 #define Dbl_setzerop2(dbl_value) Dallp2(dbl_value) = 0
308     Dallp1(dbl_value) = 1U << 31; Dallp2(dbl_value) = 0
320     Dallp2(dbl_valueB) = 0xFFFFFFFF
324     Dallp2(dbl_valueB) = 0xFFFFFFFF
329     Dallp2(dbl_valueB) = 0xFFFFFFFF
334     Dallp2(dbl_valueB) = 0
339     Dallp2(dbl_valueB) = 0xFFFFFFFF
352 		Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
354 		if(Dallp2(srcdstB) << (64 - (shift))) Ext_setone_low(extent); \
356 	    else Extall(extent) = Dallp2(srcdstB);			\
357 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
362 	    if(Dallp2(srcdstB)) Ext_setone_low(extent);			\
363 	    Dallp2(srcdstB) = 0;					\
372 	    Extall(extent) = Dallp2(srcdstB) << (32 - (shift));		\
373 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
374 	     Dallp2(srcdstB));						\
385 	    Extall(extent) = Dallp2(srcdstB) << (32 - (shift));		\
386 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << (32 - (shift))) |	\
387 		(Dallp2(srcdstB) >> (shift));				\
396     if( Dallp2(rightb) > Dallp2(leftb) ) Dallp1(lefta)--;	\
397     Dallp2(resultb) = Dallp2(leftb) - Dallp2(rightb);		\
406 	if((Dallp2(resultb)--) == 0) Dallp1(resulta)--;			\
413     if((Dallp2(resultb) = Dallp2(leftb) + Dallp2(rightb)) < Dallp2(rightb)) \
423     Dallp2(left)  = Dallp2(left) XOR Dallp2(right);		\
424     Dallp2(right) = Dallp2(left) XOR Dallp2(right);		\
425     Dallp2(left)  = Dallp2(left) XOR Dallp2(right)
431     Dallp2(destb) = 0
435     Dallp2(destb) = 0
459 	Dallp2(src1dstB) += (src2B)
469 	Dallp2(src1dstB) -= (src2B)
501 	    guard = (Dallp2(opndp2) >> (-(exponent))) & 1;		\
502 	    if (exponent < 0) sticky |= Dallp2(opndp2) << (32+exponent); \
508 		Dallp2(opndp2) = Dallp1(opndp1);			\
514 	    if (exponent == -32) sticky |= Dallp2(opndp2);		\
515 	    else sticky |= (Dallp2(opndp2) | Dallp1(opndp1) << (64+(exponent))); \
516 	    Dallp2(opndp2) = Dallp1(opndp1) >> (-31-(exponent));	\
523 	sticky |= (Dallp1(opndp1) | Dallp2(opndp2));			\