Changeset e6908a0 in git

Timestamp:

Nov 22, 1999, 5:30:01 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

212fc04aaf4a4730cceeb9f21ea8aec710514c30

Parents:

f345ed064d1aad1b7be479be2c3b1fa048ae58c5

Message:

*hannes: bigendian fixes: pOrdIndex


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

File:

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

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.92 1999-11-22 14:22:09 Singular Exp $ */
+/* $Id: ring.cc,v 1.93 1999-11-22 16:30:01 Singular Exp $ */
 
 /*
@@ -3081 +3081 @@
   if (r->order[0] == ringorder_s)
   {
-    if (r->pCompIndex == 1)
+    /* l[0] is occupied by ringorder_s,
+    *  does l[1] contain the component-number ? */
+    if (r->pCompIndex < 2*sizeof(long)/sizeof(Exponent_t)) /* e-index of l[2] */
       r->pOrdIndex = 2;
     else
       r->pOrdIndex = 1;
   }
-  else if (r->pCompIndex == 0)
+  else if (r->pCompIndex  < sizeof(long)/sizeof(Exponent_t))
     r->pOrdIndex=1;
   else
@@ -3135 +3137 @@
 void rDebugPrint(ring r)
 {
+  if (r==NULL)
+  {
+    PrintS("NULL ?\n");
+    return;
+  }
   char *TYP[]={"ro_dp","ro_wp","ro_cp","ro_syzcomp", "ro_syz", "ro_none"};
   int i,j;