Changeset b197b06 in git for Singular/gring.cc

Timestamp:

Jan 29, 2003, 6:51:27 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b50cc4fc80fdf2a2005655a08d9229aa4b32d4a5')

Children:

d97527f00aef350e99f39ebb77ffc9faae54f0eb

Parents:

cc86cd3b37e46f65f8f2f4c0bea2f9c0a3438043

Message:

*hannes: basering to nc


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

File:

• Singular/gring.cc (modified) (2 diffs)

Singular/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.20 2003-01-29 16:13:11 Singular Exp $
+ *  Version: $Id: gring.cc,v 1.21 2003-01-29 17:49:29 Singular Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -1490 +1490 @@
     for(j=i+1;j<=r->N;j++)
     {
-      id_Delete((ideal *)&(r->nc->MT[UPMATELEM(i,j,r->N)]),r);
+      id_Delete((ideal *)&(r->nc->MT[UPMATELEM(i,j,r->N)]),r->nc->basering);
     }
   }
   omFreeSize((ADDRESS)r->nc->MT,r->N*(r->N-1)/2*sizeof(matrix));
   omFreeSize((ADDRESS)r->nc->MTsize,r->N*(r->N-1)/2*sizeof(int));
-  id_Delete((ideal *)&(r->nc->C),r);
-  id_Delete((ideal *)&(r->nc->D),r);
-  id_Delete((ideal *)&(r->nc->COM),r);
+  id_Delete((ideal *)&(r->nc->C),r->nc->basering);
+  id_Delete((ideal *)&(r->nc->D),r->nc->basering);
+  id_Delete((ideal *)&(r->nc->COM),r->nc->basering);
   omFreeSize((ADDRESS)r->nc,sizeof(nc_struct));
   r->nc=NULL;