Changeset 6bd405 in git for kernel/ideals.cc


Ignore:
Timestamp:
Nov 12, 2008, 5:06:50 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
Children:
4378bb1d8689acd01ff886e652e17cc6f231274c
Parents:
254a326422aa010fa57986f524945ceabe9f9b82
Message:
*hannes: old idElim-ring


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

Legend:

Unmodified
Added
Removed
  • kernel/ideals.cc

    r254a326 r6bd405  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.61 2008-11-12 12:41:03 Singular Exp $ */
     4/* $Id: ideals.cc,v 1.62 2008-11-12 16:06:50 Singular Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    24422442  block1=(int*)omAlloc0(ordersize*sizeof(int));
    24432443  wv=(int**) omAlloc0(ordersize*sizeof(int**));
     2444#if 0
    24442445  if (rIsPluralRing(origR)) // we have too keep the odering: it may be needed
    24452446                            // for G-algebra
     
    24692470    omFreeSize((ADDRESS)x, 2 * (pVariables + 1) * sizeof(int));
    24702471
    2471 #if 0
    2472     for (k=0;k<ordersize-1; k++)
    2473     {
    2474       if ( (origR->order[k]==ringorder_c)
    2475       || (origR->order[k]==ringorder_C))
    2476       {
    2477         ord[2]=origR->order[k];
    2478         break;
    2479       }
    2480     }
     2472    ord[2]=ringorder_C;
     2473    ord[3]=0;
     2474  }
    24812475#else
    2482     ord[2]=ringorder_C;
     2476  for (k=0;k<ordersize-1; k++)
     2477  {
     2478    block0[k+1] = origR->block0[k];
     2479    block1[k+1] = origR->block1[k];
     2480    ord[k+1] = origR->order[k];
     2481    if (origR->wvhdl[k]!=NULL) wv[k+1] = (int*) omMemDup(origR->wvhdl[k]);
     2482  }
    24832483#endif
    2484     ord[3]=0;
    2485   }
    24862484  block0[0] = 1;
    24872485  block1[0] = rVar(origR);
     
    24932491  // ignore it
    24942492  ord[0] = ringorder_aa;
    2495 
    24962493  // fill in tmp ring to get back the data later on
    24972494  tmpR  = rCopy0(origR,FALSE,FALSE); // qring==NULL
    24982495  //rUnComplete(tmpR);
     2496  tmpR->p_Procs=NULL;
    24992497  tmpR->order = ord;
    25002498  tmpR->block0 = block0;
    25012499  tmpR->block1 = block1;
    25022500  tmpR->wvhdl = wv;
    2503   tmpR->p_Procs=NULL;
    2504 
    25052501  rComplete(tmpR, 1);
    25062502
Note: See TracChangeset for help on using the changeset viewer.