50 #define Sgl_leftshiftby1_withextent(left,right,result) \  argument
51     Shiftdouble(Sall(left),Extall(right),31,Sall(result))
53 #define Sgl_rightshiftby1_withextent(left,right,dst)		\  argument
54     Shiftdouble(Sall(left),Extall(right),1,Extall(right))
226 #define Sgl_subtract_withextension(left,right,extent,result)		\  argument
228   Sgl_subtract(left,right,result);					\
235 #define Sgl_xortointp1(left,right,result)			\  argument
236     result = Sall(left) XOR Sall(right);
238 #define Sgl_xorfromintp1(left,right,result)			\  argument
239     Sall(result) = left XOR Sall(right)
406 #define Sglext_xortointp1(left,right,result) Sgl_xortointp1(left,right,result)  argument
407 #define Sglext_xorfromintp1(left,right,result) \  argument
408 	Sgl_xorfromintp1(left,right,result)