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

Diff for /OpenXM_contrib2/asir2000/builtin/al.c between version 1.2 and 1.3

version 1.2, 2001/03/08 07:49:11 version 1.3, 2001/03/09 01:13:28
Line 60  void qeblock_verbose0();
Line 60  void qeblock_verbose0();
 int getmodulus();  int getmodulus();
 int qevar();  int qevar();
 int gausselim();  int gausselim();
   int delv();
 int translate();  int translate();
 int translate_a();  int translate_a();
 void translate_a1();  void translate_a1();
Line 1354  NODE *peset;
Line 1355  NODE *peset;
                                 if (!w)                                  if (!w)
                                         continue;                                          continue;
                                 *px = v;                                  *px = v;
                                 delvip(v,pvl);                                  delv(v,*pvl,pvl);
                                 if (a) {                                  if (a) {
                                         gauss_mkeset2(rlhs,a,b,c,peset);                                          gauss_mkeset2(rlhs,a,b,c,peset);
                                         return 2;                                          return 2;
Line 1429  NODE *peset;
Line 1430  NODE *peset;
         BDY(esetc) = (pointer)hgp;          BDY(esetc) = (pointer)hgp;
 }  }
   
 int delvip(v,pvl)  int delv(v,vl,pnvl)
 V v;  V v;
 VL *pvl;  VL vl,*pnvl;
 {  {
         VL prev;          VL nvl=NULL,nvlc;
   
         if (v == VR(*pvl)) {          if (v == VR(vl)) {
                 *pvl = NEXT(*pvl);                  *pnvl = NEXT(vl);
                 return 1;                  return 1;
         }          }
         for (prev=*pvl; NEXT(prev); prev=NEXT(prev))          for (; vl && (VR(vl) != v); vl=NEXT(vl)) {
                 if (VR(NEXT(prev)) == v) {                  NEXTVL(nvl,nvlc);
                         NEXT(prev) = NEXT(NEXT(prev));                  VR(nvlc) = VR(vl);
                         return 1;          }
                 }          if (vl) {
                   NEXT(nvlc) = NEXT(vl);
                   *pnvl = nvl;
                   return 1;
           }
           *pnvl = nvl;
         return 0;          return 0;
 }  }
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>