Changeset 491cfb in git


Ignore:
Timestamp:
Oct 20, 1999, 9:35:50 AM (25 years ago)
Author:
Thomas Siebert <siebert@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
30ff807d4b57c77ac10958c9dff99ebf16018415
Parents:
dc87300e56e49486e6175185e2320884a03aa944
Message:
Enables mstd for modules


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    rdc87300 r491cfb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.180 1999-10-19 12:42:43 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.181 1999-10-20 07:35:50 siebert Exp $ */
    55
    66/*
     
    35513551,{jjMULT,       MULTIPLICITY_CMD,  INT_CMD,      MODUL_CMD }
    35523552,{jjMSTD,       MSTD_CMD,        LIST_CMD,       IDEAL_CMD }
     3553,{jjMSTD,       MSTD_CMD,        LIST_CMD,       MODUL_CMD }
    35533554,{jjNAMEOF,     NAMEOF_CMD,      STRING_CMD,     ANY_TYPE }
    35543555,{jjNAMES,      NAMES_CMD,       LIST_CMD,       PACKAGE_CMD }
  • Singular/kstd1.cc

    rdc87300 r491cfb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd1.cc,v 1.41 1999-10-18 11:19:26 obachman Exp $ */
     4/* $Id: kstd1.cc,v 1.42 1999-10-20 07:33:40 siebert Exp $ */
    55/*
    66* ABSTRACT:
     
    17561756  ideal r=NULL;
    17571757  int Kstd1_OldDeg,i;
     1758  intvec* temp_w=NULL;
    17581759  BOOLEAN b=pLexOrder,toReset=FALSE;
    17591760  BOOLEAN delete_w=(w==NULL);
     
    17701771  strat->minim=(reduced % 2)+1;
    17711772  strat->ak = idRankFreeModule(F);
     1773  if (delete_w)
     1774  {
     1775    temp_w=new intvec((strat->ak)+1);
     1776    w = &temp_w;
     1777  }
    17721778  if ((h==testHomog)
    17731779  )
     
    18351841  pLexOrder = b;
    18361842  HCord=strat->HCord;
    1837   if ((delete_w)&&(w!=NULL)&&(*w!=NULL)) delete *w;
     1843  if ((delete_w)&&(temp_w!=NULL)) delete temp_w;
    18381844  lists l=(lists)AllocSizeOf(slists);
    18391845  l->Init(2);
    1840   l->m[0].rtyp=IDEAL_CMD;
     1846  if (strat->ak==0)
     1847  {
     1848    l->m[0].rtyp=IDEAL_CMD;
     1849    l->m[1].rtyp=IDEAL_CMD;
     1850  }
     1851  else
     1852  {
     1853    l->m[0].rtyp=MODUL_CMD;
     1854    l->m[1].rtyp=MODUL_CMD;
     1855  }
    18411856  l->m[0].data=(void *)r;
    18421857  setFlag(&(l->m[0]),FLAG_STD);
    1843   l->m[1].rtyp=IDEAL_CMD;
    18441858  if (strat->M==NULL)
    18451859  {
Note: See TracChangeset for help on using the changeset viewer.