Changeset faf350 in git

Timestamp:

Mar 22, 2012, 7:23:47 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

393c4789a99d9bac84fad6dadc0997cfcfc9de11

Parents:

16c4008b20b489f27f77ca9a45f6dc033a689571

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-03-22 19:23:47+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-03-23 16:06:35+01:00

Message:

enable rDecompose over the same alg.extension, disable for qrings

File:

• Singular/ipshell.cc (modified) (1 diff)

Singular/ipshell.cc

@@ -1733 +1733 @@
 lists rDecompose(const ring r)
 {
+  assume( r != NULL );
+  const coeffs C = r->cf;
+  assume( C != NULL );
+  
   // sanity check: require currRing==r for rings with polynomial data
-  if ( (r!=currRing) && (!rMinpolyIsNULL(r)
+  if ( (r!=currRing) && ( 
+           (nCoeff_is_algExt(C) && (C != currRing->cf))
+        || (r->qideal != NULL)           
 #ifdef HAVE_PLURAL
-  || (rIsPluralRing(r))
+        || (rIsPluralRing(r))
 #endif
-  ))
+                        )
+     )
   {
     WerrorS("ring with polynomial data must be the base ring or compatible");