Changeset 96a181 in git

Timestamp:

Sep 17, 2014, 10:14:16 AM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

9d64ac1396fb685bb6ccdd847af6a90e4787e883

Parents:

43a2d4e9557dafb0a554b88ece4b92fc5bfc0be0

Message:

fix: tr.#640 (primdecGTZ with block ordering)

Files:

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

Singular/LIB/primdec.lib

@@ -3137 +3137 @@
   if(homo==1)
   {
-    if((ordstr(@P)[3]=="d")||(ordstr(@P)[1]=="d")||(ordstr(@P)[1]=="w")
-       ||(ordstr(@P)[3]=="w"))
+    if(((ordstr(@P)[3]=="d")||(ordstr(@P)[1]=="d")||(ordstr(@P)[1]=="w")
+       ||(ordstr(@P)[3]=="w"))&&(size(ringlist(@P)[3])==2))
     {
       ideal jwork=imap(@P,tras);

Tst/Short/ok_s.lst

@@ -14 +14 @@
 bug_tr627
 bug_tr630
+bug_tr640
 bug_genus_etc
 facstd