Changeset 7ca3d2 in git

Timestamp:

May 7, 2003, 6:59:37 PM (21 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

2537bcce97e6db25dc0c6776942388017f955663

Parents:

9ca8f2da22a86787d3f9122d37aaff6398c3508b

Message:

*bricken: little tuning


git-svn-id: file:///usr/local/Singular/svn/trunk@6717 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/tgb.cc

@@ -876 +876 @@
 
       
-      poly short_s=ksCreateShortSpoly(c->S->m[i],c->S->m[j],c->r);
-      if (short_s)
-      {
+//      poly short_s=ksCreateShortSpoly(c->S->m[i],c->S->m[j],c->r);
+      //    if (short_s)
+      //    {
         sorted_pair_node* s=(sorted_pair_node*) omalloc(sizeof(sorted_pair_node));
         s->i=max(i,j);
         s->j=min(i,j);
         s->expected_length=c->lengths[i]+c->lengths[j]-2;
-        s->deg=pTotaldegree(short_s);
+      
         poly lm=pOne();
 
         pLcm(c->S->m[i], c->S->m[j], lm);
         pSetm(lm);
+        s->deg=pTotaldegree(lm);
         s->lcm_of_lm=lm;
-          pDelete(&short_s);
+//          pDelete(&short_s);
         //assume(lm!=NULL);
         nodes[spc]=s;
         spc++;
-      }
-      else
-      {
-        c->states[i][j]=HASTREP;
-      }
+        // }
+        //else
+        //{
+        //c->states[i][j]=HASTREP;
+        //}
     }
   }