64 #define Dbl_rightshift(srcdstA, srcdstB, varamount)			\  argument
66         Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
67         Dallp1(srcdstA)=0;						\
70 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), 	\
72 	Dallp1(srcdstA) >>= varamount;					\
75 #define Dbl_rightshift_exponentmantissa(srcdstA, srcdstB, varamount)	\  argument
77         Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> (varamount-32); \
78 	Dallp1(srcdstA) &= ((unsigned int)1<<31);  /* clear expmant field */ \
81 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
83 	Deposit_dexponentmantissap1(srcdstA,				\
84 	    (Dexponentmantissap1(srcdstA)>>varamount));			\
87 #define Dbl_leftshift(srcdstA, srcdstB, varamount)			\  argument
89 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
94 	    Dallp1(srcdstA) = (Dallp1(srcdstA) << (varamount)) |	\
107 #define Dbl_arithrightshiftby1(srcdstA,srcdstB)			\  argument
108     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
109     Dallp1(srcdstA) = (int)Dallp1(srcdstA) >> 1
348 #define Dbl_right_align(srcdstA,srcdstB,shift,extent)			\  argument
357 	        Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
362 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
366 	    Extall(extent) = Dallp1(srcdstA);				\
370 	Dallp1(srcdstA) = 0;						\
378 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
380 	    Dallp1(srcdstA) >>= shift;					\
389 #define Dbl_fix_overshift(srcdstA,srcdstB,shift,extent)			\  argument
391 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) |	\
393 	    Dallp1(srcdstA) = Dallp1(srcdstA) >> shift
572 #define Dblext_right_align(srcdstA,srcdstB,srcdstC,srcdstD,shift) \  argument
583                 Variable_shift_double(Dextallp1(srcdstA),		\
585 	        Dextallp1(srcdstA) >>= shiftamt;			\
593                 Variable_shift_double(Dextallp1(srcdstA),		\
601 	     Dextallp2(srcdstB) = Dextallp1(srcdstA) >> shiftamt;	\
602 	     Dextallp1(srcdstA) = 0;					\
607                 Variable_shift_double(Dextallp1(srcdstA),		\
614 	     Dextallp3(srcdstC) = Dextallp1(srcdstA) >> shiftamt;	\
615 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
618                 sticky = (Dextallp1(srcdstA) << 31 - shiftamt) |	\
626 	     Dextallp4(srcdstD) = Dextallp1(srcdstA) >> shiftamt;	\
627 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
677 #define Dblext_arithrightshiftby1(srcdstA,srcdstB,srcdstC,srcdstD)	\  argument
680     Shiftdouble(Dextallp1(srcdstA),Dextallp2(srcdstB),1,Dextallp2(srcdstB)); \
681     Dextallp1(srcdstA) = (int)Dextallp1(srcdstA) >> 1