Changeset 5bb309 in git for Singular/spSpolyLoop.pl

Timestamp:

Mar 31, 1998, 2:20:23 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

924778959498ab1187b8a19be5308080e0c7d4c4

Parents:

82ac59470816445777161511b885da4dd74cb6d7

Message:

* bug fix


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

File:

• Singular/spSpolyLoop.pl (modified) (4 diffs)

Singular/spSpolyLoop.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
 ###########################################################################
-# $Id: spSpolyLoop.pl,v 1.4 1998-03-31 12:18:51 obachman Exp $
+# $Id: spSpolyLoop.pl,v 1.5 1998-03-31 12:20:23 obachman Exp $
 
 ###########################################################################
@@ -257 +257 @@
 
   Equal:   // b equals a2
-//    assume(pComp0(b, a2) == 0);
-    if (pComp0(b, a2) != 0)
-    {
-       WarnS("Wrong comp in SpolyLoop\n");
-       pComp0(b,a2);
-    }
-
+    assume(pComp0(b, a2) == 0);
     tb = CALL_NMULT("pGetCoeff(a1)",tm);
     if (!CALL_NEQUAL("pGetCoeff(a2)",tb))
@@ -288 +282 @@
     {
       assume(pComp0(b, a2) == -1);
-    if (pComp0(b, a2) != -1)
-    {
-       WarnS("Wrong comp in SpolyLoop\n");
-       pComp0(b,a2);
-    }
       a = pNext(a) = a2;// append a2 to result and advance a2
       pIter(a2);
@@ -301 +290 @@
     {
       assume(pComp0(b, a2) == 1);
-    if (pComp0(b, a2) != 1)
-    {
-       WarnS("Wrong comp in SpolyLoop\n");
-       pComp0(b,a2);
-    }
       pSetCoeff0(b,CALL_NMULT("pGetCoeff(a1)",tneg));
       a = pNext(a) = b;       // append b to result and advance a1