Changeset 8c8c80 in git
- Timestamp:
- Apr 21, 2005, 6:25:28 PM (19 years ago)
- Branches:
- (u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
- Children:
- 6da9757a9ddb8e1b1cfef46b28b9d316d6c9bc75
- Parents:
- ea68edeac3df1990933790c9755d504d57154323
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/gring.cc
rea68ed r8c8c80 7 7 * Author: levandov (Viktor Levandovsky) 8 8 * Created: 8/00 - 11/00 9 * Version: $Id: gring.cc,v 1.2 2 2005-04-21 16:16:45 levandovExp $9 * Version: $Id: gring.cc,v 1.23 2005-04-21 16:25:28 Singular Exp $ 10 10 *******************************************************************/ 11 11 #include "mod2.h" … … 1965 1965 } 1966 1966 int i,j; 1967 r->nc->MT = (matrix *)omAlloc0(r->N*(r->N-1)/2*sizeof(matrix)); 1968 r->nc->MTsize = (int *)omAlloc0(r->N*(r->N-1)/2*sizeof(int)); 1967 r->nc->MT = (matrix *)omAlloc0((r->N*(r->N-1))/2*sizeof(matrix)); 1968 r->nc->MTsize = (int *)omAlloc0((r->N*(r->N-1))/2*sizeof(int)); 1969 idTest(((ideal)r->nc->C)); 1969 1970 matrix COM = mpCopy(r->nc->C); 1970 1971 poly p,q; … … 1988 1989 IsNonComm = 1; 1989 1990 p_Delete(&(MATELEM(COM,i,j)),r); 1990 MATELEM(COM,i,j) = NULL;1991 //MATELEM(COM,i,j) = NULL; // done by p_Delete 1991 1992 r->nc->MTsize[UPMATELEM(i,j,r->N)] = DefMTsize; /* default sizes */ 1992 1993 r->nc->MT[UPMATELEM(i,j,r->N)] = mpNew(DefMTsize, DefMTsize); … … 1994 1995 /* set MT[i,j,1,1] to c_i_j*x_i*x_j + D_i_j */ 1995 1996 p = p_ISet(1,r); /* instead of p = pOne(); */ 1996 p_SetCoeff(p,n Copy(pGetCoeff(MATELEM(r->nc->C,i,j))),r);1997 p_SetCoeff(p,n_Copy(pGetCoeff(MATELEM(r->nc->C,i,j)),r),r); 1997 1998 p_SetExp(p,i,1,r); 1998 1999 p_SetExp(p,j,1,r); … … 2002 2003 MATELEM(r->nc->MT[UPMATELEM(i,j,r->N)],1,1) = nc_p_CopyPut(p,r); 2003 2004 p_Delete(&p,r); 2004 p = NULL;2005 // p = NULL;// done by p_Delete 2005 2006 } 2006 2007 }
Note: See TracChangeset
for help on using the changeset viewer.