Changeset 51e69e in git

Timestamp:

Feb 23, 2008, 9:13:30 PM (15 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

eb726a2ae5288034601f52c83e653e517d892418

Parents:

4d2ab5c1e54b41b2b02f7720e375b7983a98b89b

Message:

*levandov: update related to freegb


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

File:

• kernel/kspoly.cc (modified) (2 diffs)

kernel/kspoly.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kspoly.cc,v 1.13 2008-02-06 09:12:45 wienand Exp $ */
+/* $Id: kspoly.cc,v 1.14 2008-02-23 20:13:30 levandov Exp $ */
 /*
 *  ABSTRACT -  Routines for Spoly creation and reductions
@@ -200 +200 @@
   if (R != NULL)
   {
-    l1 = (R[Pair->i_r1])->GetpLength() - 1;
-    l2 = (R[Pair->i_r2])->GetpLength() - 1;
+    if (Pair->i_r1 == -1)
+    {
+      l1 = pLength(p1) - 1;
+    }
+    else
+    {
+      l1 = (R[Pair->i_r1])->GetpLength() - 1;
+    }
+    if (Pair->i_r2 == -1)
+    {
+      l2 = pLength(p2) - 1;
+    }
+    else
+    {
+      l2 = (R[Pair->i_r2])->GetpLength() - 1;
+    }
   }