Changeset 88efd2 in git


Ignore:
Timestamp:
Jan 7, 2009, 7:03:28 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
9d34f019dc4179e88a025827c58b4c5aeda1b454
Parents:
a8f74db1553a6f6547d0118c427f1ac1caa8acf0
Message:
*hannes: rCopy0


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

Legend:

Unmodified
Added
Removed
  • kernel/ring.cc

    ra8f74d r88efd2  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.110 2009-01-07 15:22:40 Singular Exp $ */
     4/* $Id: ring.cc,v 1.111 2009-01-07 18:03:28 Singular Exp $ */
    55
    66/*
     
    14661466  int i,j;
    14671467  ring res=(ring)omAllocBin(ip_sring_bin);
    1468   memset(res,0,sizeof(ip_sring));
    1469   //memcpy4(res,r,sizeof(ip_sring));
     1468  //memset(res,0,sizeof(ip_sring));
     1469  memcpy4(res,r,sizeof(ip_sring));
    14701470  res->idroot=NULL; /* local objects */
    1471   //int*       order;  /* array of orderings */
    1472   //int*       block0; /* starting pos.*/
    1473   //int*       block1; /* ending pos.*/
    1474   //char**     parameter; /* names of parameters */
    1475   //number     minpoly;
    14761471  //ideal      minideal;
    1477   //int**      wvhdl;  /* array of weight vectors */
    1478   //char **    names;  /* array of variable names */
    1479 
    14801472  res->options=r->options; /* ring dependent options */
    14811473
     
    14831475  //long      *ordsgn;  /* array of +/- 1 (or 0) for comparing monomials */
    14841476                       /*  ExpL_Size entries*/
     1477  res->ordsgn=NULL;
    14851478
    14861479  // is NULL for lp or N == 1, otherwise non-NULL (with OrdSize > 0 entries) */
    14871480  //sro_ord*   typ;   /* array of orderings + sizes, OrdSize entries */
    1488 
    1489   //ideal      qideal; /* extension to the ring structure: qring */
     1481  res->typ=NULL;
    14901482
    14911483
    14921484  //int*     VarOffset;
     1485  res->VarOffset=NULL;
    14931486  //int*     firstwv;
     1487  res->firstwv=NULL;
    14941488
    14951489  //struct omBin_s*   PolyBin; /* Bin from where monoms are allocated */
     1490  res->PolyBin=NULL; // rComplete
    14961491  res->ch=r->ch;     /* characteristic */
    14971492#ifdef HAVE_RINGS
     
    15341529  // contains component, but no weight fields in E */
    15351530  //short      ExpL_Size; // size of exponent vector in long
     1531  res->ExpL_Size=0;
    15361532  //short      CmpL_Size; // portions which need to be compared
     1533  res->CmpL_Size=0;
    15371534  /* number of long vars in exp vector:
    15381535     long vars are those longs in the exponent vector which are
    15391536     occupied by variables, only */
    15401537  //short     VarL_Size;
     1538  res->VarL_Size=0;
    15411539
    15421540  //short      BitsPerExp; /* number of bits per exponent */
     1541  res->BitsPerExp=0;
    15431542  //short      ExpPerLong; /* maximal number of Exponents per long */
     1543  res->ExpPerLong=0;
    15441544
    15451545  //short      pCompIndex; /* p->exp.e[pCompIndex] is the component */
     1546  res->pCompIndex=0;
    15461547  //short      pOrdIndex; /* p->exp[pOrdIndex] is pGetOrd(p) */
     1548  res->pOrdIndex=0;
    15471549
    15481550  //short      OrdSize; /* size of ord vector (in sro_ord) */
     1551  res->OrdSize=0;
    15491552
    15501553
     
    15521555     if <  0, long vars in exp vector are not consecutive */
    15531556  //short     VarL_LowIndex;
     1557  res->VarL_LowIndex=0;
    15541558  // number of exponents in r->VarL_Offset[0]
    15551559  // is minimal number of exponents in a long var
    15561560  //short     MinExpPerLong;
     1561  res->MinExpPerLong=0;
    15571562
    15581563  /* if this is > 0, then NegWeightL_Offset[0..size_1] is index of longs in
    15591564   ExpVector whose values need an offset due to negative weights */
    15601565  //short     NegWeightL_Size;
     1566  res->NegWeightL_Size=0;
    15611567  /* array of NegWeigtL_Size indicies */
    15621568  //int*      NegWeightL_Offset;
     1569  res->NegWeightL_Offset=NULL;
    15631570
    15641571  /* array of size VarL_Size,
    15651572     VarL_Offset[i] gets i-th long var in exp vector */
    15661573  //int*      VarL_Offset;
     1574  res->VarL_Offset=NULL;
    15671575
    15681576  /* mask for getting single exponents */
    15691577  //unsigned long bitmask;
     1578  res->bitmask=0;
    15701579  /* mask used for divisiblity tests */
    15711580  //unsigned long divmask;
     1581  res->divmask=0;
    15721582
    15731583  //p_Procs_s*    p_Procs;
     1584  res->p_Procs=NULL;
    15741585
    15751586  /* FDeg and LDeg */
    15761587  //pFDegProc     pFDeg;
     1588  res->pFDeg=NULL;
    15771589  //pLDegProc     pLDeg;
     1590  res->pLDeg=NULL;
    15781591
    15791592  /* as it was determined by rComplete */
    15801593  //pFDegProc     pFDegOrig;
     1594  res->pFDegOrig=NULL;
    15811595  /* and as it was determined before rOptimizeLDeg */
    15821596  //pLDegProc     pLDegOrig;
     1597  res->pLDegOrig=NULL;
    15831598
    15841599  //p_SetmProc    p_Setm;
     1600  res->p_Setm=NULL;
    15851601  //n_Procs_s*    cf;
    1586   //ring          algring;
    1587 #ifdef HAVE_PLURAL
    1588   //  nc_struct*    _nc; // private
    1589 #endif
     1602  res->cf=NULL;
    15901603  res->options=r->options;
    15911604  #ifdef HAVE_RINGS
    15921605  res->ringtype=r->ringtype;
    15931606  #endif
    1594   res->cf=NULL;
    1595   res->PolyBin=NULL;
    15961607  //
    15971608  if (r->algring!=NULL)
    15981609    r->algring->ref++;
    15991610  res->algring=r->algring;
     1611  res->minideal=NULL;
    16001612  if (r->parameter!=NULL)
    16011613  {
Note: See TracChangeset for help on using the changeset viewer.