Changeset d0207e9 in git for kernel/polys1.cc

Timestamp:

Feb 26, 2009, 3:23:07 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

4751d7a7e4db5fb6ec994a889d43d7f78013fbfa

Parents:

b8cf6c7396a74cf9f5eaabb53c4e78e2f9675873

Message:

*hannes: pCleardenom may change p


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

File:

• kernel/polys1.cc (modified) (4 diffs)

kernel/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.34 2009-02-26 11:24:15 Singular Exp $ */
+/* $Id: polys1.cc,v 1.35 2009-02-26 14:23:07 Singular Exp $ */
 
 /*
@@ -942 +942 @@
 #endif
 
-void pCleardenom(poly ph)
-{
+poly pCleardenom(poly ph)
+{
+  poly start=ph;
   number d, h;
   poly p;
@@ -951 +952 @@
   {
     pContent(ph);
-    return;
+    return start;
   }
 #endif
@@ -1058 +1059 @@
     {
       pContentRat(ph);
+      start=ph;
     }
 #endif
   }
+  return start;
 }