Changeset b197b06 in git


Ignore:
Timestamp:
Jan 29, 2003, 6:51:27 PM (21 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
d97527f00aef350e99f39ebb77ffc9faae54f0eb
Parents:
cc86cd3b37e46f65f8f2f4c0bea2f9c0a3438043
Message:
*hannes: basering to nc


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

Legend:

Unmodified
Added
Removed

  • Singular/extra.cc

    rcc86cd3 rb197b06  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.193 2003-01-29 16:13:10 Singular Exp $ */
     4/* $Id: extra.cc,v 1.194 2003-01-29 17:51:27 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
    … …  
    14011401        currRing->nc=(nc_struct *)omAlloc0(sizeof(nc_struct));
    14021402        currRing->nc->ref=1;
     1403        currRing->nc->basering=currRing;
    14031404      }
    14041405      else
    … …  
    14111412        currRing->nc=(nc_struct *)omAlloc0(sizeof(nc_struct));
    14121413        currRing->nc->ref=1;
     1414        currRing->nc->basering=currRing;
    14131415      }
    14141416      currRing->nc->type=nc_general;

  • Singular/gring.cc

    rcc86cd3 rb197b06  
    77 *  Author:  levandov (Viktor Levandovsky)
    88 *  Created: 8/00 - 11/00
    9  *  Version: $Id: gring.cc,v 1.20 2003-01-29 16:13:11 Singular Exp $
     9 *  Version: $Id: gring.cc,v 1.21 2003-01-29 17:49:29 Singular Exp $
    1010 *******************************************************************/
    1111#include "mod2.h"
    … …  
    14901490    for(j=i+1;j<=r->N;j++)
    14911491    {
    1492       id_Delete((ideal *)&(r->nc->MT[UPMATELEM(i,j,r->N)]),r);
     1492      id_Delete((ideal *)&(r->nc->MT[UPMATELEM(i,j,r->N)]),r->nc->basering);
    14931493    }
    14941494  }
    14951495  omFreeSize((ADDRESS)r->nc->MT,r->N*(r->N-1)/2*sizeof(matrix));
    14961496  omFreeSize((ADDRESS)r->nc->MTsize,r->N*(r->N-1)/2*sizeof(int));
    1497   id_Delete((ideal *)&(r->nc->C),r);
    1498   id_Delete((ideal *)&(r->nc->D),r);
    1499   id_Delete((ideal *)&(r->nc->COM),r);
     1497  id_Delete((ideal *)&(r->nc->C),r->nc->basering);
     1498  id_Delete((ideal *)&(r->nc->D),r->nc->basering);
     1499  id_Delete((ideal *)&(r->nc->COM),r->nc->basering);
    15001500  omFreeSize((ADDRESS)r->nc,sizeof(nc_struct));
    15011501  r->nc=NULL;

  • Singular/structs.h

    rcc86cd3 rb197b06  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: structs.h,v 1.68 2003-01-29 16:13:10 Singular Exp $ */
     6/* $Id: structs.h,v 1.69 2003-01-29 17:48:37 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    354354  short ref;
    355355  nc_type type;
     356  ring basering; // the ring C,D,.. live in
    356357  matrix C;
    357358  matrix D;
Note: See TracChangeset for help on using the changeset viewer.