Changeset ca1650 in git

Timestamp:

Apr 9, 2014, 6:33:21 PM (10 years ago)

Author:

Jakob Kröker <kroeker@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

0a72899fe67e06014b2bfccdb53dbe58868072c8

Parents:

feb3c9b8f55471f8843f47d6723033e1732bcdd4

git-author:

Jakob Kröker <kroeker@math.uni-hannover.de>2014-04-09 18:33:21+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2014-04-28 18:17:03+02:00

Message:

fix  bug 597

Files:

• Singular/LIB/primdec.lib (modified) (2 diffs)
• Tst/Short/bug_597.res.gz.uu (added)
• Tst/Short/bug_597.tst (added)

Singular/LIB/primdec.lib

@@ -3859 +3859 @@
       "WARNING: The characteristic is too small, the result may be wrong";
    }
+   if ( size(i)==0 ) { return(ideal(0)); }
+
    ideal J,I,I0,radI0,L,radI1,I2,radI2;
    int l,n;
@@ -3868 +3870 @@
         I=m[2];
    option(set,op);
+
+   if ( dim(m[1])<0 ) { return(ideal(1)); }
 
    int cod=nvars(basering)-dim(m[1]);