Changeset 9eca662 in git

Timestamp:

Feb 21, 2009, 3:11:06 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

9e9dbcc8d214c3ffadd3d652094fe70a53aa1302

Parents:

f97db2be94fba1aba7ea14b6b8ce78043426e442

Message:

hannes: comp for ring again


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

File:

• kernel/kInline.cc (modified) (2 diffs)

kernel/kInline.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: kInline.cc,v 1.11 2009-02-21 11:42:35 Singular Exp $
+ *  Version: $Id: kInline.cc,v 1.12 2009-02-21 14:11:06 Singular Exp $
  *******************************************************************/
 #ifndef KINLINE_CC
@@ -977 +977 @@
   lcm = p_Init(leadRing);
 
-  for (i = leadRing->N; i>=0; i--)
+  int small_index=1;
+  if ((pGetComp(p1)!=0)||(pGetComp(p2)!=0)) small_index=0;
+
+  for (i = leadRing->N; i>=small_index; i--)
   {
     e1 = p_GetExp(p1,i,leadRing);