Changeset 68349d in git for kernel/polys.cc

Timestamp:

Mar 25, 2004, 10:19:12 PM (19 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

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

Children:

c47b0a37e9aaabd8518efe50efd4ab6a540b00b6

Parents:

3d9ed9730c6639ccd48654bab09d3ef24067f307

Message:

*levandov: Plural Subst fix


git-svn-id: file:///usr/local/Singular/svn/trunk@7109 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.1.1.1 2003-10-06 12:15:55 Singular Exp $ */
+/* $Id: polys.cc,v 1.2 2004-03-25 21:16:15 levandov Exp $ */
 
 /*
@@ -20 +20 @@
 #include "ring.h"
 
+#ifdef HAVE_PLURAL
+#include "gring.h"
+#endif
+
 /* ----------- global variables, set by pSetGlobals --------------------- */
 /* computes length and maximal degree of a POLYnomial */
@@ -835 +839 @@
     else return pSubst2(p, n, pGetCoeff(e));
   }
+
+#ifdef HAVE_PLURAL
+  if (rIsPluralRing(currRing))
+  {
+    return nc_pSubst(p,n,e);
+  }
+#endif
 
   int exponent,i;