[BACK]Return to gfpn.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/gfpn.c between version 1.3 and 1.4

version 1.3, 2000/08/22 05:04:05 version 1.4, 2001/10/09 01:36:11
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/engine/gfpn.c,v 1.2 2000/08/21 08:31:27 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/engine/gfpn.c,v 1.3 2000/08/22 05:04:05 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 54  void chsgngfpn(GFPN,GFPN *);
Line 54  void chsgngfpn(GFPN,GFPN *);
   
 UP current_mod_gfpn;  UP current_mod_gfpn;
   
 void setmod_gfpn(p)  void setmod_gfpn(P p)
 P p;  
 {  {
         UP t;          UP t;
   
         ptoup(p,&t); uptolmup(t,&current_mod_gfpn);          ptoup(p,&t); uptolmup(t,&current_mod_gfpn);
 }  }
   
 void getmod_gfpn(up)  void getmod_gfpn(UP *up)
 UP *up;  
 {  {
         *up = current_mod_gfpn;          *up = current_mod_gfpn;
 }  }
   
 void ptogfpn(q,l)  void ptogfpn(Obj q,GFPN *l)
 Obj q;  
 GFPN *l;  
 {  {
         UP q1,q2;          UP q1,q2;
   
Line 83  GFPN *l;
Line 79  GFPN *l;
                 error("ptogfpn : invalid argument");                  error("ptogfpn : invalid argument");
 }  }
   
 void gfpntop(q,l)  void gfpntop(GFPN q,P *l)
 GFPN q;  
 P *l;  
 {  {
         if ( !q )          if ( !q )
                 *l = 0;                  *l = 0;
Line 95  P *l;
Line 89  P *l;
                 *l = (P)q;                  *l = (P)q;
 }  }
   
 void simpgfpn(n,r)  void simpgfpn(GFPN n,GFPN *r)
 GFPN n;  
 GFPN *r;  
 {  {
         UP rem,t;          UP rem,t;
   
Line 114  GFPN *r;
Line 106  GFPN *r;
   
 #define NZGFPN(a) ((a)&&(OID(a)==O_N)&&(NID(a)==N_GFPN))  #define NZGFPN(a) ((a)&&(OID(a)==O_N)&&(NID(a)==N_GFPN))
   
 void ntogfpn(a,b)  void ntogfpn(Obj a,GFPN *b)
 Obj a;  
 GFPN *b;  
 {  {
         UP t;          UP t;
         LM lm;          LM lm;
Line 135  GFPN *b;
Line 125  GFPN *b;
                 error("ntogfpn : invalid argument");                  error("ntogfpn : invalid argument");
 }  }
   
 void addgfpn(a,b,c)  void addgfpn(GFPN a,GFPN b,GFPN *c)
 GFPN a,b;  
 GFPN *c;  
 {  {
         UP t,t1,t2;          UP t,t1,t2;
         GFPN z;          GFPN z;
Line 155  GFPN *c;
Line 143  GFPN *c;
         }          }
 }  }
   
 void subgfpn(a,b,c)  void subgfpn(GFPN a,GFPN b,GFPN *c)
 GFPN a,b;  
 GFPN *c;  
 {  {
         UP t,t1,t2;          UP t,t1,t2;
         GFPN z;          GFPN z;
Line 177  GFPN *c;
Line 163  GFPN *c;
   
 extern int up_lazy;  extern int up_lazy;
   
 void mulgfpn(a,b,c)  void mulgfpn(GFPN a,GFPN b,GFPN *c)
 GFPN a,b;  
 GFPN *c;  
 {  {
         UP t,t1,t2;          UP t,t1,t2;
         GFPN z;          GFPN z;
Line 197  GFPN *c;
Line 181  GFPN *c;
         }          }
 }  }
   
 void squaregfpn(a,c)  void squaregfpn(GFPN a,GFPN *c)
 GFPN a;  
 GFPN *c;  
 {  {
         UP t,t1,t2;          UP t,t1,t2;
         GFPN z;          GFPN z;
Line 215  GFPN *c;
Line 197  GFPN *c;
         }          }
 }  }
   
 void divgfpn(a,b,c)  void divgfpn(GFPN a,GFPN b,GFPN *c)
 GFPN a,b;  
 GFPN *c;  
 {  {
         UP t,t1,i,s;          UP t,t1,i,s;
         GFPN z;          GFPN z;
Line 236  GFPN *c;
Line 216  GFPN *c;
         }          }
 }  }
   
 void invgfpn(b,c)  void invgfpn(GFPN b,GFPN *c)
 GFPN b;  
 GFPN *c;  
 {  {
         UP i,t;          UP i,t;
         GFPN z;          GFPN z;
Line 253  GFPN *c;
Line 231  GFPN *c;
         }          }
 }  }
   
 void chsgngfpn(a,c)  void chsgngfpn(GFPN a,GFPN *c)
 GFPN a,*c;  
 {  {
         GFPN z;          GFPN z;
         UP t,t1;          UP t,t1;
Line 269  GFPN a,*c;
Line 246  GFPN a,*c;
         }          }
 }  }
   
 void pwrgfpn(a,b,c)  void pwrgfpn(GFPN a,Q b,GFPN *c)
 GFPN a;  
 Q b;  
 GFPN *c;  
 {  {
         UP t,s;          UP t,s;
         GFPN r;          GFPN r;
Line 294  GFPN *c;
Line 268  GFPN *c;
         }          }
 }  }
   
 int cmpgfpn(a,b)  int cmpgfpn(GFPN a,GFPN b)
 GFPN a,b;  
 {  {
         GFPN z;          GFPN z;
   
Line 311  GFPN a,b;
Line 284  GFPN a,b;
                 return compup(a->body,b->body);                  return compup(a->body,b->body);
 }  }
   
 void randomgfpn(r)  void randomgfpn(GFPN *r)
 GFPN *r;  
 {  {
         int i,d;          int i,d;
         LM *tb;          LM *tb;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>