Changeset ab26fe in git

Timestamp:

Feb 8, 2001, 2:46:36 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b87095a7ec423369604377fde5a390f610c25064

Parents:

cd9bd11338310a68a7f540822564453a1bdc9889

Message:

*hannes: fixed pJet


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

File:

• Singular/polys1.cc (modified) (2 diffs)

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.63 2001-02-08 13:13:04 Singular Exp $ */
+/* $Id: polys1.cc,v 1.64 2001-02-08 13:46:36 Singular Exp $ */
 
 /*
@@ -1136 +1136 @@
 poly pJet(poly p, int m)
 {
+  poly t=NULL;
+
+  while((p!=NULL) && (pTotaldegree(p)>m)) pLmDelete(&p);
+  if (p==NULL) return NULL;
   poly r=p;
-  poly t=NULL;
-
-  while (p!=NULL)
-  {
-    if (pTotaldegree(p)>m)
-    {
-      if (p==r) 
-      { 
-        pLmDelete(&p);
-        r=p;
-      }
-      else
-      {
-        pLmDelete(&p);
-      }
-    }
-    pIter(p);
+  while (pNext(p)!=NULL)
+  {
+    if (pTotaldegree(pNext(p))>m)
+    {
+      pLmDelete(&pNext(p));
+    }
+    else
+      pIter(p);
   }
   return r;