OpenXM_contrib2/asir2000/engine-27/asmalpha-27.c - diff

Return to asmalpha-27.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine-27

version 1.1.1.1, 1999/12/03 07:39:08

version 1.2, 2000/02/04 09:27:32

Line 1

/* $OpenXM: OpenXM/src/asir99/engine-27/asmalpha-27.c,v 1.1.1.1 1999/11/10 08:12:27 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine-27/asmalpha-27.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $ */

#if defined(__alpha)

typedef unsigned long UL;

#elif defined(mips) || defined(hpux)

#elif defined(mips) || defined(hpux) || defined(powerpc)

typedef unsigned long long UL;

#endif

Line 34 unsigned int base,a1,a2,*u;

t = (UL)a1*(UL)a2;

*u = t/(UL)base;

return (unsigned int)(t%(UL)base);

return (unsigned int)(t-(UL)base*(UL)(*u));

}

unsigned int dmab_27(base,a1,a2,a3,u)

Line 44 unsigned int base,a1,a2,a3,*u;

t = (UL)a1*(UL)a2+(UL)a3;

*u = t/(UL)base;

return (unsigned int)(t%(UL)base);

return (unsigned int)(t-(UL)base*(UL)(*u));

}

unsigned int dmar_27(a1,a2,a3,d)

Line 63 unsigned int base,a1,a2,*u;

t = (((UL)a1)<<27)+(UL)a2;

*u = t/(UL)base;

return (unsigned int)(t%(UL)base);

return (unsigned int)(t-(UL)base*(UL)(*u));

}

unsigned int dqr_27(a,b,qp)