Changeset 68e14a2 in git for Singular/tgb.cc

Timestamp:

Mar 10, 2003, 10:22:56 AM (21 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

513a1706a79838709fa421684ceed84f0f7524b4

Parents:

141baf92570720dda90a66650ba5eff3766c6e3f

Message:

*bricken: now at least correct on hg


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

File:

• Singular/tgb.cc (modified) (4 diffs)

Singular/tgb.cc

@@ -14 +14 @@
 #define LEN_VAR1
 #define degbound(p) assume(pTotaldegree(p)<10)
+#define inDebug(p) assume((debug_Ideal==NULL)||(kNF(debug_Ideal,NULL,p,0,0)==0))
 #ifdef LEN_VAR1
 // erste Variante: Laenge: Anzahl der Monome
@@ -307 +308 @@
 
 static int add_to_reductors(calc_dat* c, poly h, int len){
+  inDebug(h);
   assume(lenS_correct(c->strat));
  
@@ -1456 +1458 @@
   return 0;
 }
-ideal t_rep_gb(ring r,ideal arg_I){
+ideal t_rep_gb(ring r,ideal arg_I, ideal arg_debug_Ideal){
+  debug_Ideal=arg_debug_Ideal;
+  if (debug_Ideal) PrintS("DebugIdeal received\n");
    Print("Idelems %i \n----------\n",IDELEMS(arg_I));
   ideal I=idCompactify(arg_I);
@@ -2040 +2044 @@
           if (exp){
             poly clear_into;
-            
+            los[erg.to_reduce_u].flatten();
             kBucketClear(los[erg.to_reduce_u].bucket,&clear_into,&erg.expand_length);
             erg.expand=pCopy(clear_into);