63 #define Sgl_leftshiftby1_withextent(left,right,result) \  argument
64     Shiftdouble(Sall(left),Extall(right),31,Sall(result))
66 #define Sgl_rightshiftby1_withextent(left,right,dst)		\  argument
67     Shiftdouble(Sall(left),Extall(right),1,Extall(right))
239 #define Sgl_subtract_withextension(left,right,extent,result)		\  argument
241   Sgl_subtract(left,right,result);					\
248 #define Sgl_xortointp1(left,right,result)			\  argument
249     result = Sall(left) XOR Sall(right);
251 #define Sgl_xorfromintp1(left,right,result)			\  argument
252     Sall(result) = left XOR Sall(right)
419 #define Sglext_xortointp1(left,right,result) Sgl_xortointp1(left,right,result)  argument
420 #define Sglext_xorfromintp1(left,right,result) \  argument
421 	Sgl_xorfromintp1(left,right,result)