Changeset 56568dc in git

Timestamp:

Oct 31, 2016, 1:42:08 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e9aafc71976f6f00910ea1a79a7c0a07d9bdfc1d

Parents:

7a77d6da40b40e49a6fd03cba91db6f8079f454c

Message:

fix: tr. #778 (G.Pfister)

Files:

• Singular/LIB/primdec.lib (modified) (3 diffs)
• Tst/Short/bug_tr778.res.gz.uu (added)
• Tst/Short/bug_tr778.stat (added)
• Tst/Short/bug_tr778.tst (added)
• Tst/Short/ok_s.lst (modified) (1 diff)

Singular/LIB/primdec.lib

@@ -4215 +4215 @@
    int n=nvars(R);
 
-   string mp="poly p="+string(minpoly)+";";
+   string mp="poly @p="+string(minpoly)+";";
    string gnir="ring RH="+string(char(R))+",("+varstr(R)+","+string(par(1))
                 +"),dp;";
@@ -4221 +4221 @@
    execute(mp);
    ideal i=imap(R,i);
-   i=i,p;
+   i=i,@p;
    ideal ra=radical(i);
-
    gnir="ring RS="+string(char(R))+",("+varstr(RH)
                 +"),(dp("+string(n)+"),lp);";
@@ -4235 +4234 @@
    return( ra );
 }
+
 
 ///////////////////////////////////////////////////////////////////////////////

Tst/Short/ok_s.lst

@@ -66 +66 @@
 bug_tr773
 bug_tr774
+bug_tr778
 bug_genus_etc
 conv_bi