Changeset b6c58b8 in git

Timestamp:

Nov 21, 1999, 1:26:48 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

ee18d834abff867b46994a318310f1f246196a70

Parents:

14886285e83e0dc2a6c001743a4256960d770b5d

Message:

* hannes: pOrdIndex in rDebugWrite


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

File:

• Singular/ring.cc (modified) (8 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.90 1999-11-20 10:17:24 siebert Exp $ */
+/* $Id: ring.cc,v 1.91 1999-11-21 12:26:48 Singular Exp $ */
 
 /*
@@ -3106 +3106 @@
     if (r->mm_specHeap != NULL)
       mmUnGetSpecHeap(&(r->mm_specHeap));
-  
+
     Free((ADDRESS)r->VarOffset, (r->N +1)*sizeof(int));
     if (r->order != NULL)
@@ -3194 +3194 @@
     }
     #ifdef HAVE_SHIFTED_EXPONENTS
-    if( r->pCompIndex==j ) Print("v0; ");
+    if( r->pCompIndex==j ) PrintS("v0; ");
     #endif
     for(i=0;i<r->OrdSize;i++)
@@ -3204 +3204 @@
       }
     }
-    if (j<r->pCompLSize)
-      Print("ordsgn %d\n", r->ordsgn[j]);
+    if (j<r->pCompLSize) Print("ordsgn %d ", r->ordsgn[j]);
+
+    if (j==r->pOrdIndex)
+      PrintS("pOrdIndex\n");
     else
       PrintLn();
@@ -3332 +3334 @@
 {
   int last_block = rBlocks(r) - 2;
-  if (r->order[last_block] != ringorder_c && 
+  if (r->order[last_block] != ringorder_c &&
       r->order[last_block] != ringorder_C)
   {
     int c_pos = 0;
     int i;
-    
+
     for (i=0; i< last_block; i++)
     {
@@ -3346 +3348 @@
       }
     }
-    if (c_pos != -1) 
+    if (c_pos != -1)
     {
       ring new_r = rCopy0(r, FALSE, TRUE);
@@ -3387 +3389 @@
   ring new_r_1 = rAssure_CompLastBlock(currRing, FALSE);
   ring new_r = rAssure_SyzComp(new_r_1, FALSE);
-  
+
   if (new_r != currRing)
   {
-    ring old_r = currRing;    
+    ring old_r = currRing;
     if (new_r_1 != new_r && new_r_1 != old_r) rDelete(new_r_1);
     rComplete(new_r, 1);
@@ -3414 +3416 @@
          b2 == ringorder_c || b2 == ringorder_C ||
          b2 == ringorder_S);
-  if ((r_blocks == 3) && 
-      (currRing->order[0] == b1) && 
+  if ((r_blocks == 3) &&
+      (currRing->order[0] == b1) &&
       (currRing->order[1] == b2) &&
       (currRing->order[2] == 0))