Changeset ea4c43 in git


Ignore:
Timestamp:
Mar 31, 2000, 3:19:19 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ring.cc

    rec6f27 rea4c43  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.100 2000-03-22 11:20:54 Singular Exp $ */
     4/* $Id: ring.cc,v 1.101 2000-03-31 13:19:19 Singular Exp $ */
    55
    66/*
     
    26442644  r->pDivHigh=r->pVarHighIndex;
    26452645#endif
    2646   r->pCompIndex=r->VarOffset[0];
     2646  r->pCompIndex=(r->VarOffset[0] & 0xffffff); //r->VarOffset[0];
    26472647#ifdef WORDS_BIGENDIAN
    2648   // HANNES--think of s,c,dp; s, dp, C,
    2649   if(r->pCompIndex==0) r->pOrdIndex=1;
    2650   else                 r->pOrdIndex=0;
     2648  i=0; // position
     2649  j=0; // index in r->typ
     2650  if (i==r->pCompIndex) i++;
     2651  while ((j < r->OrdSize)
     2652  && ((r->typ[j].ord_typ==ro_syzcomp) || (r->typ[j].ord_typ==ro_syz)))
     2653  {
     2654    i++; j++;
     2655  }
     2656  if (i==r->pCompIndex) i++;
     2657  r->pOrdIndex=i;
    26512658#else
    2652   if(r->pCompIndex == r->ExpESize-1) r->pOrdIndex=r->ExpLSize-2;
    2653   else                               r->pOrdIndex=r->ExpLSize-1;
     2659  i=r->ExpLSize-1;
     2660  j=0; // index in r->typ
     2661  if (i==r->pCompIndex) i--;
     2662  while ((j < r->OrdSize)
     2663  && ((r->typ[j].ord_typ==ro_syzcomp) || (r->typ[j].ord_typ==ro_syz)))
     2664  {
     2665    i--; j++;
     2666  }
     2667  if (i==r->pCompIndex) i--;
     2668  r->pOrdIndex=i;
    26542669#endif
    26552670  return FALSE;
Note: See TracChangeset for help on using the changeset viewer.