Changeset ea4c43 in git for Singular/ring.cc

Timestamp:

Mar 31, 2000, 3:19:19 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

37fd1b8dae9760169b70a984b3f739af64cefbdc

Parents:

ec6f275764a9755abda160d740e4861f6473908b

Message:

*hannes: pOrdIndex fixes for SHIFTED_EXP


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

File:

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

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.100 2000-03-22 11:20:54 Singular Exp $ */
+/* $Id: ring.cc,v 1.101 2000-03-31 13:19:19 Singular Exp $ */
 
 /*
@@ -2644 +2644 @@
   r->pDivHigh=r->pVarHighIndex;
 #endif
-  r->pCompIndex=r->VarOffset[0];
+  r->pCompIndex=(r->VarOffset[0] & 0xffffff); //r->VarOffset[0];
 #ifdef WORDS_BIGENDIAN
-  // HANNES--think of s,c,dp; s, dp, C,
-  if(r->pCompIndex==0) r->pOrdIndex=1;
-  else                 r->pOrdIndex=0;
+  i=0; // position
+  j=0; // index in r->typ
+  if (i==r->pCompIndex) i++;
+  while ((j < r->OrdSize)
+  && ((r->typ[j].ord_typ==ro_syzcomp) || (r->typ[j].ord_typ==ro_syz)))
+  {
+    i++; j++;
+  }
+  if (i==r->pCompIndex) i++;
+  r->pOrdIndex=i;
 #else
-  if(r->pCompIndex == r->ExpESize-1) r->pOrdIndex=r->ExpLSize-2;
-  else                               r->pOrdIndex=r->ExpLSize-1;
+  i=r->ExpLSize-1;
+  j=0; // index in r->typ
+  if (i==r->pCompIndex) i--;
+  while ((j < r->OrdSize)
+  && ((r->typ[j].ord_typ==ro_syzcomp) || (r->typ[j].ord_typ==ro_syz)))
+  {
+    i--; j++;
+  }
+  if (i==r->pCompIndex) i--;
+  r->pOrdIndex=i;
 #endif
   return FALSE;