version 1.1, 1999/12/03 07:39:06 |
version 1.2, 2000/02/04 09:27:31 |
|
|
/* $OpenXM: OpenXM/src/asir99/asm/asmalpha.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/asm/asmalpha.c,v 1.1.1.1 1999/12/03 07:39:06 noro Exp $ */ |
#if defined(__alpha) |
#if defined(__alpha) |
typedef unsigned long UL; |
typedef unsigned long UL; |
#elif defined(mips) || defined(hpux) |
#elif defined(mips) || defined(hpux) || defined(powerpc) |
typedef unsigned long long UL; |
typedef unsigned long long UL; |
#endif |
#endif |
|
|
Line 44 unsigned int base,a1,a2,*u; |
|
Line 44 unsigned int base,a1,a2,*u; |
|
|
|
t = (UL)a1*(UL)a2; |
t = (UL)a1*(UL)a2; |
*u = t/(UL)base; |
*u = t/(UL)base; |
return (unsigned int)(t%(UL)base); |
return (unsigned int)(t-(UL)base*(UL)(*u)); |
} |
} |
|
|
unsigned int dmab(base,a1,a2,a3,u) |
unsigned int dmab(base,a1,a2,a3,u) |
Line 54 unsigned int base,a1,a2,a3,*u; |
|
Line 54 unsigned int base,a1,a2,a3,*u; |
|
|
|
t = (UL)a1*(UL)a2+(UL)a3; |
t = (UL)a1*(UL)a2+(UL)a3; |
*u = t/(UL)base; |
*u = t/(UL)base; |
return (unsigned int)(t%(UL)base); |
return (unsigned int)(t-(UL)base*(UL)(*u)); |
} |
} |
|
|
unsigned int dmar(a1,a2,a3,d) |
unsigned int dmar(a1,a2,a3,d) |
Line 73 unsigned int base,a1,a2,*u; |
|
Line 73 unsigned int base,a1,a2,*u; |
|
|
|
t = (((UL)a1)<<32)+(UL)a2; |
t = (((UL)a1)<<32)+(UL)a2; |
*u = t/(UL)base; |
*u = t/(UL)base; |
return (unsigned int)(t%(UL)base); |
return (unsigned int)(t-(UL)base*(UL)(*u)); |
} |
} |
|
|
unsigned int dqr(a,b,qp) |
unsigned int dqr(a,b,qp) |