Changeset 112f6ef in git for kernel/GBEngine/kutil.cc

Timestamp:

Jan 30, 2017, 11:29:24 AM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

9f93d92fc5f70f3bc8c46a01416c4f0c956a723d

Parents:

b0e6128cd4ba4005d49a91c2e88a53d79972edce

Message:

minor opt: cancelunit

File:

• kernel/GBEngine/kutil.cc (modified) (2 diffs)

kernel/GBEngine/kutil.cc

@@ -397 +397 @@
         return;
       }
-      i = 0;
+      i = rVar(r);
       loop
       {
-        i++;
-        if (p_GetExp(p,i,r) > p_GetExp(h,i,r)) return ; // does not divide
-        if (i == r->N) break; // does divide, try next monom
+        if (p_GetExp(p,i,r) > p_GetExp(h,i,r)) return; // does not divide
+        i--;
+        if (i == 0) break; // does divide, try next monom
       }
       //wrp(p); PrintS(" divide ");wrp(h); PrintLn();
@@ -457 +457 @@
         return;
       }
-      i = 0;
+      i = rVar(r);
       loop
       {
-        i++;
-        if (p_GetExp(p,i,r) > p_GetExp(h,i,r)) return ; // does not divide
-        if (i == r->N) break; // does divide, try next monom
+        if (p_GetExp(p,i,r) > p_GetExp(h,i,r)) return; // does not divide
+        i--;
+        if (i == 0) break; // does divide, try next monom
       }
       //wrp(p); PrintS(" divide ");wrp(h); PrintLn();