Changeset 88efd2 in git
 Timestamp:
 Jan 7, 2009, 7:03:28 PM (14 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
 Children:
 9d34f019dc4179e88a025827c58b4c5aeda1b454
 Parents:
 a8f74db1553a6f6547d0118c427f1ac1caa8acf0
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/ring.cc
ra8f74d r88efd2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.11 0 20090107 15:22:40Singular Exp $ */4 /* $Id: ring.cc,v 1.111 20090107 18:03:28 Singular Exp $ */ 5 5 6 6 /* … … 1466 1466 int i,j; 1467 1467 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)); 1470 1470 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;1476 1471 //ideal minideal; 1477 //int** wvhdl; /* array of weight vectors */1478 //char ** names; /* array of variable names */1479 1480 1472 res>options=r>options; /* ring dependent options */ 1481 1473 … … 1483 1475 //long *ordsgn; /* array of +/ 1 (or 0) for comparing monomials */ 1484 1476 /* ExpL_Size entries*/ 1477 res>ordsgn=NULL; 1485 1478 1486 1479 // is NULL for lp or N == 1, otherwise nonNULL (with OrdSize > 0 entries) */ 1487 1480 //sro_ord* typ; /* array of orderings + sizes, OrdSize entries */ 1488 1489 //ideal qideal; /* extension to the ring structure: qring */ 1481 res>typ=NULL; 1490 1482 1491 1483 1492 1484 //int* VarOffset; 1485 res>VarOffset=NULL; 1493 1486 //int* firstwv; 1487 res>firstwv=NULL; 1494 1488 1495 1489 //struct omBin_s* PolyBin; /* Bin from where monoms are allocated */ 1490 res>PolyBin=NULL; // rComplete 1496 1491 res>ch=r>ch; /* characteristic */ 1497 1492 #ifdef HAVE_RINGS … … 1534 1529 // contains component, but no weight fields in E */ 1535 1530 //short ExpL_Size; // size of exponent vector in long 1531 res>ExpL_Size=0; 1536 1532 //short CmpL_Size; // portions which need to be compared 1533 res>CmpL_Size=0; 1537 1534 /* number of long vars in exp vector: 1538 1535 long vars are those longs in the exponent vector which are 1539 1536 occupied by variables, only */ 1540 1537 //short VarL_Size; 1538 res>VarL_Size=0; 1541 1539 1542 1540 //short BitsPerExp; /* number of bits per exponent */ 1541 res>BitsPerExp=0; 1543 1542 //short ExpPerLong; /* maximal number of Exponents per long */ 1543 res>ExpPerLong=0; 1544 1544 1545 1545 //short pCompIndex; /* p>exp.e[pCompIndex] is the component */ 1546 res>pCompIndex=0; 1546 1547 //short pOrdIndex; /* p>exp[pOrdIndex] is pGetOrd(p) */ 1548 res>pOrdIndex=0; 1547 1549 1548 1550 //short OrdSize; /* size of ord vector (in sro_ord) */ 1551 res>OrdSize=0; 1549 1552 1550 1553 … … 1552 1555 if < 0, long vars in exp vector are not consecutive */ 1553 1556 //short VarL_LowIndex; 1557 res>VarL_LowIndex=0; 1554 1558 // number of exponents in r>VarL_Offset[0] 1555 1559 // is minimal number of exponents in a long var 1556 1560 //short MinExpPerLong; 1561 res>MinExpPerLong=0; 1557 1562 1558 1563 /* if this is > 0, then NegWeightL_Offset[0..size_1] is index of longs in 1559 1564 ExpVector whose values need an offset due to negative weights */ 1560 1565 //short NegWeightL_Size; 1566 res>NegWeightL_Size=0; 1561 1567 /* array of NegWeigtL_Size indicies */ 1562 1568 //int* NegWeightL_Offset; 1569 res>NegWeightL_Offset=NULL; 1563 1570 1564 1571 /* array of size VarL_Size, 1565 1572 VarL_Offset[i] gets ith long var in exp vector */ 1566 1573 //int* VarL_Offset; 1574 res>VarL_Offset=NULL; 1567 1575 1568 1576 /* mask for getting single exponents */ 1569 1577 //unsigned long bitmask; 1578 res>bitmask=0; 1570 1579 /* mask used for divisiblity tests */ 1571 1580 //unsigned long divmask; 1581 res>divmask=0; 1572 1582 1573 1583 //p_Procs_s* p_Procs; 1584 res>p_Procs=NULL; 1574 1585 1575 1586 /* FDeg and LDeg */ 1576 1587 //pFDegProc pFDeg; 1588 res>pFDeg=NULL; 1577 1589 //pLDegProc pLDeg; 1590 res>pLDeg=NULL; 1578 1591 1579 1592 /* as it was determined by rComplete */ 1580 1593 //pFDegProc pFDegOrig; 1594 res>pFDegOrig=NULL; 1581 1595 /* and as it was determined before rOptimizeLDeg */ 1582 1596 //pLDegProc pLDegOrig; 1597 res>pLDegOrig=NULL; 1583 1598 1584 1599 //p_SetmProc p_Setm; 1600 res>p_Setm=NULL; 1585 1601 //n_Procs_s* cf; 1586 //ring algring; 1587 #ifdef HAVE_PLURAL 1588 // nc_struct* _nc; // private 1589 #endif 1602 res>cf=NULL; 1590 1603 res>options=r>options; 1591 1604 #ifdef HAVE_RINGS 1592 1605 res>ringtype=r>ringtype; 1593 1606 #endif 1594 res>cf=NULL;1595 res>PolyBin=NULL;1596 1607 // 1597 1608 if (r>algring!=NULL) 1598 1609 r>algring>ref++; 1599 1610 res>algring=r>algring; 1611 res>minideal=NULL; 1600 1612 if (r>parameter!=NULL) 1601 1613 {
Note: See TracChangeset
for help on using the changeset viewer.