Changeset 551fd7 in git


Ignore:
Timestamp:
Nov 16, 1999, 1:39:31 PM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
97d3c00617cfd87ee2359033f8b2ae1bbf23a456
Parents:
5952b6d526bb76067dc7af45610780364733945c
Message:
* small bug fixes


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r5952b6 r551fd7  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.115 1999-11-14 21:46:28 wenk Exp $ */
     4/* $Id: extra.cc,v 1.116 1999-11-16 12:39:26 obachman Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    485485            {
    486486              res->rtyp=INT_CMD;
    487               res->data=(int)complexNearZero((gmp_complex*)h->Data(),(int)h->next->Data());
     487              res->data=(void*)complexNearZero((gmp_complex*)h->Data(),(int)h->next->Data());
    488488              return FALSE;
    489489            }
     
    510510      }
    511511      res->rtyp=INT_CMD;
    512       res->data=(int)getGMPFloatDigits();
     512      res->data=(void*)getGMPFloatDigits();
    513513      return FALSE;
    514514    }
  • Singular/ideals.cc

    r5952b6 r551fd7  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.73 1999-11-15 17:20:06 obachman Exp $ */
     4/* $Id: ideals.cc,v 1.74 1999-11-16 12:39:27 obachman Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    13471347*/
    13481348ideal idSyzygies (ideal  h1, tHomog h,intvec **w, BOOLEAN setSyzComp,
    1349                   BOOLEAN setRegularity, int &deg)
     1349                  BOOLEAN setRegularity, int *deg)
    13501350{
    13511351  ideal s_h1;
     
    14261426  idSkipZeroes(e);
    14271427 
    1428   if ((!isMonomial)
     1428  if (deg != NULL
     1429  && (!isMonomial)
    14291430  && (!TEST_OPT_NOTREGULARITY)
    14301431  && (setRegularity)
     
    14361437    resolvente res = sySchreyerResolvente(e,-1,&length,TRUE, TRUE);
    14371438    intvec * dummy = syBetti(res,length,&reg, *w);
    1438     deg = reg+2;
     1439    *deg = reg+2;
    14391440    delete dummy;
    14401441    for (j=0;j<length;j++)
  • Singular/ideals.h

    r5952b6 r551fd7  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ideals.h,v 1.13 1999-11-15 17:20:07 obachman Exp $ */
     6/* $Id: ideals.h,v 1.14 1999-11-16 12:39:30 obachman Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate ideals
     
    8383//ideal   idSyzygies (ideal h1, tHomog h,intvec **w);
    8484ideal   idSyzygies (ideal h1, tHomog h,intvec **w, BOOLEAN setSyzComp=TRUE,
    85                     BOOLEAN setRegularity=FALSE, int &deg=0);
     85                    BOOLEAN setRegularity=FALSE, int *deg = NULL);
    8686ideal   idLiftStd  (ideal h1, matrix *m, tHomog h=testHomog);
    8787
  • Singular/syz.cc

    r5952b6 r551fd7  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz.cc,v 1.28 1999-11-15 17:20:52 obachman Exp $ */
     4/* $Id: syz.cc,v 1.29 1999-11-16 12:39:31 obachman Exp $ */
    55
    66/*
     
    500500    if ((currQuotient==NULL)&&(syzIndex==0)&& (!TEST_OPT_DEGBOUND))
    501501    {
    502       res[/*syzIndex+*/1] = idSyzygies(res[0/*syzIndex*/],hom,&w,FALSE,TRUE,Kstd1_deg);
     502      res[/*syzIndex+*/1] = idSyzygies(res[0/*syzIndex*/],hom,&w,FALSE,TRUE,&Kstd1_deg);
    503503      if ((!TEST_OPT_NOTREGULARITY) && (Kstd1_deg>0)) test |= Sy_bit(OPT_DEGBOUND);
    504504    }
  • Singular/syz1.cc

    r5952b6 r551fd7  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz1.cc,v 1.48 1999-11-15 17:20:53 obachman Exp $ */
     4/* $Id: syz1.cc,v 1.49 1999-11-16 12:39:31 obachman Exp $ */
    55/*
    66* ABSTRACT: resolutions
     
    19751975      {
    19761976        j = IDELEMS(rr[l]);
    1977         while ((l>0) && (rr[l]->m[j-1]==NULL)) j--;
     1977        while ((j>0) && (rr[l]->m[j-1]==NULL)) j--;
    19781978        ((*syzstr->resolution)[l+1]) = j;
    19791979        l++;
Note: See TracChangeset for help on using the changeset viewer.