Changeset a89a115 in git

Timestamp:

Jan 27, 2005, 5:35:30 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

c95632f6751087d2f62be544ec7e07d86913a78a

Parents:

35b491070e491129fca66fa0994cc109a9358830

Message:

*hannes: convSingTrPClapP: check for denominator !=1


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

File:

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

kernel/clapconv.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapconv.cc,v 1.1.1.1 2003-10-06 12:15:50 Singular Exp $
+// $Id: clapconv.cc,v 1.2 2005-01-27 16:35:30 Singular Exp $
 /*
 * ABSTRACT: convert data between Singular and factory
@@ -507 +507 @@
       for ( i = 1; i <= off; i++ )
         //z->e[i-1]+=exp[i];
-        napAddExp(z,i,exp[i]);
+        napAddExp(z,i,exp[i]);
       pGetCoeff(term)=(number)omAlloc0Bin(rnumber_bin);
       ((lnumber)pGetCoeff(term))->z=z;
@@ -632 +632 @@
     nNormalize(pGetCoeff(p));
     CanonicalForm term=convSingTrClapP(((lnumber)pGetCoeff(p))->z);
+
+    if ((((lnumber)pGetCoeff(p))->n!=NULL)
+    && (!errorreported))
+    {
+      WerrorS("conversion error: denominator!= 1");
+    }
+
     for ( int i = 1; i <= n; i++ )
     {