Changeset e7c6b22 in git

Timestamp:

Sep 16, 2008, 2:36:26 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

be2303748439a06ae87f4f8d31b1aed17359c508

Parents:

36605fd3c4e2a7b120265ffeb5acfc3f0e20a74e

Message:

*hannes: kInterRedOld


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

Files:

• Singular/wrapper.cc (modified) (1 diff)
• kernel/kstd1.h (modified) (2 diffs)
• kernel/sca.cc (modified) (3 diffs)
• kernel/syz.cc (modified) (3 diffs)
• kernel/tgb.cc (modified) (2 diffs)
• kernel/walkSupport.cc (modified) (1 diff)

Singular/wrapper.cc

@@ -118 +118 @@
   {
     //Print ("interred\n");
-    result=kInterRed(result);
+    result=kInterRedOld(result);
     idSkipZeroes(result);
   }

kernel/kstd1.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.h,v 1.5 2008-09-10 16:41:12 Singular Exp $ */
+/* $Id: kstd1.h,v 1.6 2008-09-16 12:32:33 Singular Exp $ */
 /*
 * ABSTRACT
@@ -45 +45 @@
 
 ideal kInterRed (ideal F, ideal Q=NULL);
+ideal kInterRedOld (ideal F, ideal Q=NULL);
 long   kModDeg(poly p, ring r = currRing);
 long  kHomModDeg(poly p, ring r = currRing);

kernel/sca.cc

@@ -7 +7 @@
  *  Author:  motsak (Oleksandr Motsak)
  *  Created: 2006/12/18
- *  Version: $Id: sca.cc,v 1.28 2008-08-18 12:25:35 Singular Exp $
+ *  Version: $Id: sca.cc,v 1.29 2008-09-16 12:32:33 Singular Exp $
  *******************************************************************/
 
@@ -1260 +1260 @@
   if (TEST_OPT_REDSB){
     ideal I = strat->Shdl;
-    ideal erg = kInterRed(I,tempQ);
+    ideal erg = kInterRedOld(I,tempQ);
     assume(I!=erg);
     id_Delete(&I, currRing);
@@ -2031 +2031 @@
     // must be at the very end (after exitBuchMora) as it changes the S set!!!
     ideal I = strat->Shdl;
-    ideal erg = kInterRed(I,tempQ);
+    ideal erg = kInterRedOld(I,tempQ);
     assume(I!=erg);
     id_Delete(&I, currRing);

kernel/syz.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz.cc,v 1.15 2008-06-20 16:15:13 Singular Exp $ */
+/* $Id: syz.cc,v 1.16 2008-09-16 12:32:33 Singular Exp $ */
 
 /*
@@ -317 +317 @@
     {
       deg0 = idJet(res[index+1],0);
-      reddeg0 = kInterRed(deg0);
+      reddeg0 = kInterRedOld(deg0);
       idDelete(&deg0);
       have_del = new intvec(IDELEMS(res[index]));
@@ -522 +522 @@
     if (minim || (syzIndex!=0))
     {
-      temp = kInterRed(res[syzIndex],currQuotient);
+      temp = kInterRedOld(res[syzIndex],currQuotient);
       idDelete(&res[syzIndex]);
       idSkipZeroes(temp);

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.158 2008-08-18 12:25:35 Singular Exp $ */
+/* $Id: tgb.cc,v 1.159 2008-09-16 12:32:33 Singular Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -3298 +3298 @@
   I=c->S;
   delete c;
-  if (TEST_OPT_REDSB){
-    ideal erg=kInterRed(I,NULL);
+  if (TEST_OPT_REDSB)
+  {
+    ideal erg=kInterRedOld(I,NULL);
     assume(I!=erg);
     id_Delete(&I, currRing);

kernel/walkSupport.cc

@@ -959 +959 @@
   assume(G != NULL);
 
-  ideal GG = kInterRed(G, NULL);
+  ideal GG = kInterRedOld(G, NULL);
   idDelete(&G);
   return GG;