51 #define Dbl_rightshift(srcdstA, srcdstB, varamount)			\  argument
53         Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
54         Dallp1(srcdstA)=0;						\
57 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), 	\
59 	Dallp1(srcdstA) >>= varamount;					\
62 #define Dbl_rightshift_exponentmantissa(srcdstA, srcdstB, varamount)	\  argument
64         Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> (varamount-32); \
65 	Dallp1(srcdstA) &= ((unsigned int)1<<31);  /* clear expmant field */ \
68 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
70 	Deposit_dexponentmantissap1(srcdstA,				\
71 	    (Dexponentmantissap1(srcdstA)>>varamount));			\
74 #define Dbl_leftshift(srcdstA, srcdstB, varamount)			\  argument
76 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
81 	    Dallp1(srcdstA) = (Dallp1(srcdstA) << (varamount)) |	\
94 #define Dbl_arithrightshiftby1(srcdstA,srcdstB)			\  argument
95     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
96     Dallp1(srcdstA) = (int)Dallp1(srcdstA) >> 1
335 #define Dbl_right_align(srcdstA,srcdstB,shift,extent)			\  argument
344 	        Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
349 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
353 	    Extall(extent) = Dallp1(srcdstA);				\
357 	Dallp1(srcdstA) = 0;						\
365 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
367 	    Dallp1(srcdstA) >>= shift;					\
376 #define Dbl_fix_overshift(srcdstA,srcdstB,shift,extent)			\  argument
378 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) |	\
380 	    Dallp1(srcdstA) = Dallp1(srcdstA) >> shift
559 #define Dblext_right_align(srcdstA,srcdstB,srcdstC,srcdstD,shift) \  argument
570                 Variable_shift_double(Dextallp1(srcdstA),		\
572 	        Dextallp1(srcdstA) >>= shiftamt;			\
580                 Variable_shift_double(Dextallp1(srcdstA),		\
588 	     Dextallp2(srcdstB) = Dextallp1(srcdstA) >> shiftamt;	\
589 	     Dextallp1(srcdstA) = 0;					\
594                 Variable_shift_double(Dextallp1(srcdstA),		\
601 	     Dextallp3(srcdstC) = Dextallp1(srcdstA) >> shiftamt;	\
602 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
605                 sticky = (Dextallp1(srcdstA) << 31 - shiftamt) |	\
613 	     Dextallp4(srcdstD) = Dextallp1(srcdstA) >> shiftamt;	\
614 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
664 #define Dblext_arithrightshiftby1(srcdstA,srcdstB,srcdstC,srcdstD)	\  argument
667     Shiftdouble(Dextallp1(srcdstA),Dextallp2(srcdstB),1,Dextallp2(srcdstB)); \
668     Dextallp1(srcdstA) = (int)Dextallp1(srcdstA) >> 1