/****************************************************************/ /* */ /* cover routines for SUN4 equivalent to divrem */ /* and muladd */ /****************************************************************/ divrem(a,b,c,d) long a,b,c,d[2]; { long e,f; longdiv(a,b,c,&e,&f); d[1] = e; d[0] = f; } muladd(a,b,c,d) long a,b,c,d[2]; { long e,f; mxmul(c,b,a,&e,&f); d[0] = e; d[1] = f; }