version 1.1, 2001/10/02 11:17:07 |
version 1.2, 2002/09/11 07:26:58 |
Line 21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
|
Line 21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
|
|
|
/* mp.c */ |
/* mp.c */ |
|
|
#define affrs(x,s) (err(affer4)) |
#define affrs(x,s) (err(affer4)) |
#define affri(x,y) (err(affer5)) |
#define affri(x,y) (err(affer5)) |
#define cmpis(x,y) (-cmpsi((y),(x))) |
#define cmpis(x,y) (-cmpsi((y),(x))) |
#define cmprs(x,y) (-cmpsr((y),(x))) |
#define cmprs(x,y) (-cmpsr((y),(x))) |
#define cmpri(x,y) (-cmpir((y),(x))) |
#define cmpri(x,y) (-cmpir((y),(x))) |
#define subis(x,y) (addsi(-(y),(x))) |
#define subis(x,y) (addsi(-(y),(x))) |
#define subrs(x,y) (addsr(-(y),(x))) |
#define subrs(x,y) (addsr(-(y),(x))) |
|
|
#define divii(a,b) (dvmdii((a),(b),NULL)) |
#define divii(a,b) (dvmdii((a),(b),NULL)) |
#define resii(a,b) (dvmdii((a),(b),ONLY_REM)) |
#define resii(a,b) (dvmdii((a),(b),ONLY_REM)) |
|
|
#define mpshift(x,s) ((typ(x)==t_INT)?shifti((x),(s)):shiftr((x),(s))) |
#define mpshift(x,s) ((typ(x)==t_INT)?shifti((x),(s)):shiftr((x),(s))) |
#define affsz(s,x) ((typ(x)==t_INT)?affsi((s),(x)):affsr((s),(x))) |
#define affsz(s,x) ((typ(x)==t_INT)?affsi((s),(x)):affsr((s),(x))) |
#define mptruncz(x,y) (gop1z(mptrunc,(x),(y))) |
#define mptruncz(x,y) (gop1z(mptrunc,(x),(y))) |
#define mpentz(x,y) (gop1z(mpent,(x),(y))) |
#define mpentz(x,y) (gop1z(mpent,(x),(y))) |
#define mpaddz(x,y,z) (gop2z(mpadd,(x),(y),(z))) |
#define mpaddz(x,y,z) (gop2z(mpadd,(x),(y),(z))) |
#define addsiz(s,y,z) (gops2sgz(addsi,(s),(y),(z))) |
#define addsiz(s,y,z) (gops2sgz(addsi,(s),(y),(z))) |
#define addsrz(s,y,z) (gops2sgz(addsr,(s),(y),(z))) |
#define addsrz(s,y,z) (gops2sgz(addsr,(s),(y),(z))) |
#define addiiz(x,y,z) (gop2z(addii,(x),(y),(z))) |
#define addiiz(x,y,z) (gop2z(addii,(x),(y),(z))) |
#define addirz(x,y,z) (gop2z(addir,(x),(y),(z))) |
#define addirz(x,y,z) (gop2z(addir,(x),(y),(z))) |
#define addriz(x,y,z) (gop2z(addir,(y),(x),(z))) |
#define addriz(x,y,z) (gop2z(addir,(y),(x),(z))) |
#define addrrz(x,y,z) (gop2z(addrr,(x),(y),(z))) |
#define addrrz(x,y,z) (gop2z(addrr,(x),(y),(z))) |
#define mpsubz(x,y,z) (gop2z(mpsub,(x),(y),(z))) |
#define mpsubz(x,y,z) (gop2z(mpsub,(x),(y),(z))) |
#define subss(x,y) (addss(-(y),(x))) |
#define subss(x,y) (addss(-(y),(x))) |
#define subssz(x,y,z) (addssz((x),-(y),(z))) |
#define subssz(x,y,z) (addssz((x),-(y),(z))) |
#define subsiz(s,y,z) (gops2sgz(subsi,(s),(y),(z))) |
#define subsiz(s,y,z) (gops2sgz(subsi,(s),(y),(z))) |
#define subsrz(x,y,z) {long av=avma; gaffect(subsr((x),(y)),(z)); avma=av; } |
#define subsrz(x,y,z) {gpmem_t av=avma; gaffect(subsr((x),(y)),(z)); avma=av; } |
#define subisz(y,s,z) (gops2sgz(addsi,-(s),(y),(z))) |
#define subisz(y,s,z) (gops2sgz(addsi,-(s),(y),(z))) |
#define subrsz(y,s,z) (gops2sgz(addsr,-(s),(y),(z))) |
#define subrsz(y,s,z) (gops2sgz(addsr,-(s),(y),(z))) |
#define subiiz(x,y,z) {long av=avma; gaffect(subii((x),(y)),(z)); avma=av; } |
#define subiiz(x,y,z) {gpmem_t av=avma; gaffect(subii((x),(y)),(z)); avma=av; } |
#define subirz(x,y,z) {long av=avma; gaffect(subir((x),(y)),(z)); avma=av; } |
#define subirz(x,y,z) {gpmem_t av=avma; gaffect(subir((x),(y)),(z)); avma=av; } |
#define subriz(x,y,z) (gop2z(subri,(x),(y),(z))) |
#define subriz(x,y,z) (gop2z(subri,(x),(y),(z))) |
#define subrrz(x,y,z) {long av=avma; gaffect(subrr((x),(y)),(z)); avma=av; } |
#define subrrz(x,y,z) {gpmem_t av=avma; gaffect(subrr((x),(y)),(z)); avma=av; } |
#define mpmulz(x,y,z) (gop2z(mpmul,(x),(y),(z))) |
#define mpmulz(x,y,z) (gop2z(mpmul,(x),(y),(z))) |
#define mulsiz(s,y,z) (gops2sgz(mulsi,(s),(y),(z))) |
#define mulsiz(s,y,z) (gops2sgz(mulsi,(s),(y),(z))) |
#define mulsrz(s,y,z) (gops2sgz(mulsr,(s),(y),)(z)) |
#define mulsrz(s,y,z) (gops2sgz(mulsr,(s),(y),)(z)) |
#define muliiz(x,y,z) (gop2z(mulii,(x),(y),(z))) |
#define muliiz(x,y,z) (gop2z(mulii,(x),(y),(z))) |
#define mulirz(x,y,z) (gop2z(mulir,(x),(y),(z))) |
#define mulirz(x,y,z) (gop2z(mulir,(x),(y),(z))) |
#define mulriz(x,y,z) (gop2z(mulir,(y),(x),(z))) |
#define mulriz(x,y,z) (gop2z(mulir,(y),(x),(z))) |
#define mulrrz(x,y,z) (gop2z(mulrr,(x),(y),(z))) |
#define mulrrz(x,y,z) (gop2z(mulrr,(x),(y),(z))) |
#define mpinvsr(s,y) (divssz(1,(s),(y))) |
#define mpinvsr(s,y) (divssz(1,(s),(y))) |
#define mpinvir(x,y) (divsiz(1,(x),(y))) |
#define mpinvir(x,y) (divsiz(1,(x),(y))) |
#define mpinvrr(x,y) (divsrz(1,(x),(y))) |
#define mpinvrr(x,y) (divsrz(1,(x),(y))) |
#define mpdvmdz(x,y,z,t) (dvmdiiz((x),(y),(z),(t))) |
#define mpdvmdz(x,y,z,t) (dvmdiiz((x),(y),(z),(t))) |
#define modssz(s,y,z) (gops2ssz(modss,(s),(y),(z))) |
#define modssz(s,y,z) (gops2ssz(modss,(s),(y),(z))) |
#define modsiz(s,y,z) (gops2sgz(modsi,(s),(y),(z))) |
#define modsiz(s,y,z) (gops2sgz(modsi,(s),(y),(z))) |
#define modisz(y,s,z) (gops2gsz(modis,(y),(s),(z))) |
#define modisz(y,s,z) (gops2gsz(modis,(y),(s),(z))) |
#define ressiz(s,y,z) (gops2sgz(ressi,(s),(y),(z))) |
#define ressiz(s,y,z) (gops2sgz(ressi,(s),(y),(z))) |
#define resisz(y,s,z) (gops2gsz(resis,(y),(s),(z))) |
#define resisz(y,s,z) (gops2gsz(resis,(y),(s),(z))) |
#define resssz(s,y,z) (gops2ssz(resss,(s),(y),(z))) |
#define resssz(s,y,z) (gops2ssz(resss,(s),(y),(z))) |
#define divirz(x,y,z) (gop2z(divir,(x),(y),(z))) |
#define divirz(x,y,z) (gop2z(divir,(x),(y),(z))) |
#define divriz(x,y,z) (gop2z(divri,(x),(y),(z))) |
#define divriz(x,y,z) (gop2z(divri,(x),(y),(z))) |
#define divsrz(s,y,z) (gops2sgz(divsr,(s),(y),(z))) |
#define divsrz(s,y,z) (gops2sgz(divsr,(s),(y),(z))) |
#define divrsz(y,s,z) (gops2gsz(divrs,(y),(s),(z))) |
#define divrsz(y,s,z) (gops2gsz(divrs,(y),(s),(z))) |