===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/test/Attic/kerntest.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/test/Attic/kerntest.c	2001/10/02 11:17:12	1.1
+++ OpenXM_contrib/pari-2.2/src/test/Attic/kerntest.c	2002/09/11 07:27:08	1.2
@@ -2,13 +2,14 @@
 #include <anal.h>
 
 GEN   gzero, gun, gdeux;
-ulong top, bot, avma, memused = 0;
+gpmem_t top, bot, avma;
+size_t memused = 0;
 long  DEBUGLEVEL,DEBUGMEM = 0;
 
 void specinit()
 {
   long size = 100000L;
-  bot = (long)malloc(size);
+  bot = (gpmem_t)malloc(size);
   top = avma = bot + size;
   gzero = malloc(2);
   gzero[0] = evaltyp(t_INT)|evallg(2);
@@ -18,9 +19,9 @@ void specinit()
 }
 
 void pari_err(long x, ...) { exit (0); }
-GEN gerepileuptoint(long av, GEN q){ return q; }
-void gerepilemanysp(long av, long tetpil, GEN* gptr[], long n){}
-void gerepilemany(long av, GEN* gptr[], long n){}
+GEN gerepileuptoint(gpmem_t av, GEN q){ return q; }
+void gerepilemanysp(gpmem_t av, gpmem_t tetpil, GEN* gptr[], long n){}
+void gerepilemany(gpmem_t av, GEN* gptr[], long n){}
 
 void sorstring(char* b, long x)
 {
@@ -60,8 +61,8 @@ int main()
   z = mulii(z,z); _voir(z);
   z = mulii(z,z); _voir(z);
   printf("invmod:"); invmod(y,z,&r); _voir(r);
-  xr = cgetr(DEFAULTPREC); affir(x, xr);
-  yr = cgetr(DEFAULTPREC); affir(y, yr);
+  xr = itor(x, DEFAULTPREC);
+  yr = itor(y, DEFAULTPREC);
   printf("\nREAL: %f\n", rtodbl(xr));
   printf("conv1:"); _voir(xr);
   printf("conv2:"); _voir(dbltor(rtodbl(xr)));