Changeset 5e8fe91 in git for kernel/polys.cc

Timestamp:

Aug 13, 2004, 12:04:21 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5687c9ca4654b738815d2c99ba18384102b7eab2

Parents:

ea630a4097b449b58aa3538d18ee53e6b9e139a0

Message:

*hannes: pNorm optim.


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

File:

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

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.2 2004-03-25 21:16:15 levandov Exp $ */
+/* $Id: polys.cc,v 1.3 2004-08-13 10:04:21 Singular Exp $ */
 
 /*
@@ -662 +662 @@
   if (p1!=NULL)
   {
+    if (pNext(p1)==NULL)
+    {
+      pSetCoeff0(p1,nInit(1));
+      return;
+    }
     if (!nIsOne(pGetCoeff(p1)))
     {