OpenXM_contrib/pari-2.2/src/test/kerntest.c - diff

Return to kerntest.c CVS log

Up to [local] / OpenXM_contrib / pari-2.2 / src / test

version 1.1, 2001/10/02 11:17:12

version 1.2, 2002/09/11 07:27:08

Line 2

#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);

Line 18 void specinit()

Line 19 void specinit()

}

void pari_err(long x, ...) { exit (0); }

GEN gerepileuptoint(long av, GEN q){ return q; }

GEN gerepileuptoint(gpmem_t av, GEN q){ return q; }

void gerepilemanysp(long av, long tetpil, GEN* gptr[], long n){}

void gerepilemanysp(gpmem_t av, gpmem_t tetpil, GEN* gptr[], long n){}

void gerepilemany(long av, GEN* gptr[], long n){}

void gerepilemany(gpmem_t av, GEN* gptr[], long n){}

void sorstring(char* b, long x)

{

Line 60 int main()

Line 61 int main()

z = mulii(z,z); _voir(z);

printf("invmod:"); invmod(y,z,&r); _voir(r);

xr = cgetr(DEFAULTPREC); affir(x, xr);

xr = itor(x, DEFAULTPREC);

yr = cgetr(DEFAULTPREC); affir(y, yr);

yr = itor(y, DEFAULTPREC);

printf("\nREAL: %f\n", rtodbl(xr));

printf("conv1:"); _voir(xr);

printf("conv2:"); _voir(dbltor(rtodbl(xr)));