OpenXM_contrib2/asir2000/builtin/int.c - diff

Return to int.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/int.c between version 1.1 and 1.3

version 1.1, 1999/12/03 07:39:07

version 1.3, 2000/02/07 05:21:32

Line 1

/* $OpenXM: OpenXM/src/asir99/builtin/int.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/int.c,v 1.2 2000/01/11 06:43:35 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "base.h"

Line 16 void Pset_upkara(), Pset_uptkara(), Pset_up2kara(), Ps

void Pmt_save(), Pmt_load();

void Psmall_jacobi();

void Pdp_set_mpi();

void Pntoint32(),Pint32ton();

#ifdef HMEXT

void Pigcdbin(), Pigcdbmod(), PigcdEuc(), Pigcdacc(), Pigcdcntl();

Line 68 struct ftab int_tab[] = {

Line 69 struct ftab int_tab[] = {

#endif /* HMEXT */

{"mt_save",Pmt_save,1},

{"mt_load",Pmt_load,1},

{"ntoint32",Pntoint32,1},

{"int32ton",Pint32ton,1},

{0,0,0},

};

Line 75 static int is_prime_small(unsigned int);

Line 78 static int is_prime_small(unsigned int);

static unsigned int gcd_small(unsigned int,unsigned int);

int TypeT_NB_check(unsigned int, unsigned int);

int mpi_mag;

void Pntoint32(arg,rp)

NODE arg;

USINT *rp;

{

Q q;

unsigned int t;

asir_assert(ARG0(arg),O_N,"ntoint32");

q = (Q)ARG0(arg);

if ( !q ) {

MKUSINT(*rp,0);

return;

}

if ( NID(q)!=N_Q || !INT(q) || PL(NM(q))>1 )

error("ntoint32 : invalid argument");

t = BD(NM(q))[0];

if ( SGN(q) < 0 )

t = -t;

MKUSINT(*rp,t);

}

void Pint32ton(arg,rp)

NODE arg;

Q *rp;

{

int t;

asir_assert(ARG0(arg),O_USINT,"int32ton");

t = (int)BDY((USINT)ARG0(arg));

STOQ(t,*rp);

}

void Pdp_set_mpi(arg,rp)

NODE arg;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>