Changeset a3d407 in git

Timestamp:

Jul 6, 2010, 12:31:41 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

92080408874be46b8fb117a4d03d6a4bc4f8d921

Parents:

9718cd420b91cd6f3027a8cfa87096bc8a883b1f

Message:

remove rComp0, rComp0_Func

git-svn-id: file:///usr/local/Singular/svn/trunk@12948 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/polys-impl.cc (modified) (1 diff)

kernel/polys-impl.cc

@@ -137 +137 @@
 }
 
-
-int rComp0_Func(poly p1,poly p2)
-{
-  int i;
-  for(i=0; i< currRing->CmpL_Size;i++)
-  {
-    if (p1->exp[i] != p2->exp[i])
-    {
-      if (p1->exp[i] > p2->exp[i])
-        return currRing->ordsgn[i];
-      else
-        return -currRing->ordsgn[i];
-    }
-  }
-  return 0;
-}
-
-#ifdef PDEBUG
-int rComp0(poly p1,poly p2)
-{
-  int i;
-  for(i=0; i<currRing->CmpL_Size;i++)
-  {
-    if (p1->exp[i] != p2->exp[i])
-    {
-      if (p1->exp[i] > p2->exp[i])
-        return currRing->ordsgn[i];
-      else
-        return -currRing->ordsgn[i];
-    }
-  }
-  return 0;
-}
-#endif
-
 #endif // POLYS_IMPL_CC