| 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) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to asmalpha.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / asm