[BACK]Return to pariport.h CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / src / headers

Diff for /OpenXM_contrib/pari-2.2/src/headers/Attic/pariport.h between version 1.1 and 1.2

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)))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>