Changeset 8c8c80 in git
 Timestamp:
 Apr 21, 2005, 6:25:28 PM (18 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 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 20050421 16:16:45 levandovExp $9 * Version: $Id: gring.cc,v 1.23 20050421 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>N1)/2*sizeof(matrix)); 1968 r>nc>MTsize = (int *)omAlloc0(r>N*(r>N1)/2*sizeof(int)); 1967 r>nc>MT = (matrix *)omAlloc0((r>N*(r>N1))/2*sizeof(matrix)); 1968 r>nc>MTsize = (int *)omAlloc0((r>N*(r>N1))/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.