[BACK]Return to int.c CVS log [TXT][DIR] 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 
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 "ca.h"
 #include "parse.h"  #include "parse.h"
 #include "base.h"  #include "base.h"
Line 16  void Pset_upkara(), Pset_uptkara(), Pset_up2kara(), Ps
Line 16  void Pset_upkara(), Pset_uptkara(), Pset_up2kara(), Ps
 void Pmt_save(), Pmt_load();  void Pmt_save(), Pmt_load();
 void Psmall_jacobi();  void Psmall_jacobi();
 void Pdp_set_mpi();  void Pdp_set_mpi();
   void Pntoint32(),Pint32ton();
   
 #ifdef HMEXT  #ifdef HMEXT
 void Pigcdbin(), Pigcdbmod(), PigcdEuc(), Pigcdacc(), Pigcdcntl();  void Pigcdbin(), Pigcdbmod(), PigcdEuc(), Pigcdacc(), Pigcdcntl();
Line 68  struct ftab int_tab[] = {
Line 69  struct ftab int_tab[] = {
 #endif /* HMEXT */  #endif /* HMEXT */
         {"mt_save",Pmt_save,1},          {"mt_save",Pmt_save,1},
         {"mt_load",Pmt_load,1},          {"mt_load",Pmt_load,1},
           {"ntoint32",Pntoint32,1},
           {"int32ton",Pint32ton,1},
         {0,0,0},          {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);  static unsigned int gcd_small(unsigned int,unsigned int);
 int TypeT_NB_check(unsigned int, unsigned int);  int TypeT_NB_check(unsigned int, unsigned int);
 int mpi_mag;  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)  void Pdp_set_mpi(arg,rp)
 NODE arg;  NODE arg;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

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