Changeset 521349 in git for kernel/polys.cc

Timestamp:

Jul 7, 2008, 3:18:57 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

b547dc098c643d2e47143c81e0a51e711b5b10ff

Parents:

d351d85cc90334b89306247371fbd1761ed311b7

Message:

pNorm nicht für Ringe


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

File:

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

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.29 2008-06-24 16:25:02 wienand Exp $ */
+/* $Id: polys.cc,v 1.30 2008-07-07 13:18:57 wienand Exp $ */
 
 /*
@@ -720 +720 @@
 void pNorm(poly p1)
 {
-  poly h;
-  number k, c;
 #ifdef HAVE_RINGS
   if (rField_is_Ring(currRing))
   {
-    if ((p1!=NULL) && rField_has_Units(currRing))
-    {
-      k = nGetUnit(pGetCoeff(p1));
-      if (!nIsOne(k))
-      {
-        k = nInvers(k);
-        c = nMult(pGetCoeff(p1), k);  
-        nDelete(&pGetCoeff(p1));
-        pSetCoeff0(p1, c);
-        h = pNext(p1);
-        while (h != NULL)
-        {
-          c = nMult(pGetCoeff(h), k);
-          nDelete(&pGetCoeff(h));
-          pSetCoeff0(h, c);
-          pIter(h);
-        }
-      }
-      nDelete(&k);
-    }
-    return;
+    Werror("pNorm not possible in the case of coefficient rings.");
   }
   else
@@ -756 +734 @@
       return;
     }
+    poly h;
     if (!nIsOne(pGetCoeff(p1)))
     {
+      number k, c;
       nNormalize(pGetCoeff(p1));
       k = pGetCoeff(p1);