Changeset 422e17 in git for Singular/clapsing.cc

Timestamp:

Mar 14, 2000, 3:02:59 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'dce4ad324f6e216ae93a99713959b505fb6213d3')

Children:

975ddb6eb7cde9ddb52446d3f17500bedeaea189

Parents:

1a1f58754aa84b19b29e87f60421b51d824fc37c

Message:

*hannes: char_series cannot handle rational but interger coeffs


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

File:

• Singular/clapsing.cc (modified) (3 diffs)

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.59 2000-01-13 10:36:53 Singular Exp $
+// $Id: clapsing.cc,v 1.60 2000-03-14 14:02:59 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -866 +866 @@
     for(i=0;i<IDELEMS(I);i++)
     {
-      if (I->m[i]!=NULL)
-        L.append(convSingPClapP(I->m[i]));
+      poly p=I->m[i];
+      if (p!=NULL)
+      {
+        p=pCopy(p);
+        pCleardenom(p);
+        L.append(convSingPClapP(p));
+      }
     }
   }
@@ -878 +883 @@
     for(i=0;i<IDELEMS(I);i++)
     {
-      if (I->m[i]!=NULL)
-        L.append(convSingTrPClapP(I->m[i]));
+      poly p=I->m[i];
+      if (p!=NULL)
+      {
+        p=pCopy(p);
+        pCleardenom(p);
+        L.append(convSingTrPClapP(p));
+      }
     }
   }