parisc/math-emu/dbl_float.h

14 #define Dbl_secondword(value) Dallp2(value)
25 #define Dbl_allp2(object) Dallp2(object)
53         Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
57 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), 	\
58 	  (varamount), Dallp2(srcdstB));				\
64         Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> (varamount-32); \
68 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
69 	(varamount), Dallp2(srcdstB));					\
76 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
77 	Dallp2(srcdstB)=0;						\
82 		(Dallp2(srcdstB) >> (32-(varamount)));			\
83 	    Dallp2(srcdstB) <<= varamount;				\
87     Shiftdouble(Dallp1(lefta), Dallp2(leftb), 31, Dallp1(resulta));	\
88     Shiftdouble(Dallp2(leftb), Extall(right), 31, Dallp2(resultb))
91     Extall(dst) = (Dallp2(leftb) << 31) | ((unsigned int)Extall(right) >> 1) | \
95     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
105     if( (Dallp2(dbl_valueB) += 1) == 0 )  Dallp1(dbl_valueA) += 1
110     if( Dallp2(dbl_valueB) == 0 )  Dallp1(dbl_valueA) -= 1; \
111     Dallp2(dbl_valueB) -= 1
120     (Dallp1(dbl_valueA) || Dallp2(dbl_valueB))
132     Dallp2(dbl_valueB)==0)
134 #define Dbl_iszero_allp2(dbl_value) (Dallp2(dbl_value)==0)
164       Dallp2(dbl_op1b) < Dallp2(dbl_op2b)))
168       Dallp2(dbl_op1b) > Dallp2(dbl_op2b)))
172       Dallp2(dbl_op1b) >= Dallp2(dbl_op2b)))
176       Dallp2(dbl_op1b) <= Dallp2(dbl_op2b)))
179       (Dallp2(dbl_op1b) == Dallp2(dbl_op2b)))
182     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),24,Dallp1(dbl_valueA)); \
183     Dallp2(dbl_valueB) <<= 8
185     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),25,Dallp1(dbl_valueA)); \
186     Dallp2(dbl_valueB) <<= 7
188     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),28,Dallp1(dbl_valueA)); \
189     Dallp2(dbl_valueB) <<= 4
191     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),29,Dallp1(dbl_valueA)); \
192     Dallp2(dbl_valueB) <<= 3
194     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),30,Dallp1(dbl_valueA)); \
195     Dallp2(dbl_valueB) <<= 2
197     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),31,Dallp1(dbl_valueA)); \
198     Dallp2(dbl_valueB) <<= 1
201     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),8,Dallp2(dbl_valueB)); \
204     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),4,Dallp2(dbl_valueB)); \
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),2,Dallp2(dbl_valueB)); \
210     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),1,Dallp2(dbl_valueB)); \
225        ( (signlessleft < signlessright) || (Dallp2(leftB)<Dallp2(rightB)) ))
251     Dallp2(destb) = src->wd1
254     dest->wd1 = Dallp2(srcb)
286     Dallp2(dbl_valueB) = 0
288 #define Dbl_setzero_mantissap2(dbl_value) Dallp2(dbl_value) = 0
291     Dallp2(dbl_valueB) = 0
295     Dallp1(dbl_valueA) = 0; Dallp2(dbl_valueB) = 0
297 #define Dbl_setzerop2(dbl_value) Dallp2(dbl_value) = 0
299     Dallp1(dbl_value) = (unsigned int)1 << 31; Dallp2(dbl_value) = 0
311     Dallp2(dbl_valueB) = 0xFFFFFFFF
316     Dallp2(dbl_valueB) = 0xFFFFFFFF
321     Dallp2(dbl_valueB) = 0xFFFFFFFF
326     Dallp2(dbl_valueB) = 0
331     Dallp2(dbl_valueB) = 0xFFFFFFFF
344 	        Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
346 	        if(Dallp2(srcdstB) << 64 - (shift)) Ext_setone_low(extent); \
348 	    else Extall(extent) = Dallp2(srcdstB);			\
349 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
354 	    if(Dallp2(srcdstB)) Ext_setone_low(extent);			\
355 	    Dallp2(srcdstB) = 0;					\
364 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
365 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
366 	     Dallp2(srcdstB));						\
377 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
378 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) |	\
379 		(Dallp2(srcdstB) >> (shift));				\
388     if( Dallp2(rightb) > Dallp2(leftb) ) Dallp1(lefta)--;	\
389     Dallp2(resultb) = Dallp2(leftb) - Dallp2(rightb);		\
398         if((Dallp2(resultb)--) == 0) Dallp1(resulta)--;			\
405     if((Dallp2(resultb) = Dallp2(leftb) + Dallp2(rightb)) < Dallp2(rightb)) \
415     Dallp2(left)  = Dallp2(left) XOR Dallp2(right);		\
416     Dallp2(right) = Dallp2(left) XOR Dallp2(right);		\
417     Dallp2(left)  = Dallp2(left) XOR Dallp2(right)
423     Dallp2(destb) = 0
427     Dallp2(destb) = 0
451 	Dallp2(src1dstB) += (src2B)
461 	Dallp2(src1dstB) -= (src2B)
493 	    guard = (Dallp2(opndp2) >> -exponent) & 1;			\
494 	    if (exponent < 0) sticky |= Dallp2(opndp2) << (32+exponent); \
500 		Dallp2(opndp2) = Dallp1(opndp1);			\
506 	    if (exponent == -32) sticky |= Dallp2(opndp2);		\
507 	    else sticky |= (Dallp2(opndp2) | Dallp1(opndp1) << 64+exponent); \
508 	    Dallp2(opndp2) = Dallp1(opndp1) >> -31-exponent;		\
515 	sticky |= (Dallp1(opndp1) | Dallp2(opndp2));			\
719 	Dextallp1(dest1) = Dallp1(src1); Dextallp2(dest2) = Dallp2(src2); \