Changeset 0d3f08 in git


Ignore:
Timestamp:
Oct 1, 1999, 7:18:26 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
073c3abc007421e2eef4ae0fbc9e738fbcb51c11
Parents:
834c32ec801799de4aee0aef191622057befd569
Message:
*hannes: bug fix in kill procedures


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

Legend:

Unmodified
Added
Removed

  • Singular/febase.inc

    r834c32 r0d3f08  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: febase.inc,v 1.26 1999-09-23 12:03:03 Singular Exp $ */
     4/* $Id: febase.inc,v 1.27 1999-10-01 17:18:24 Singular Exp $ */
    55/*
    66* ABSTRACT: handling of 'voices'
    … …  
    342342      }
    343343      yylineno=currentVoice->prev->curr_lineno;
     344      currentVoice->prev->next=NULL;
    344345    }
    345346    Voice *p=currentVoice->prev;

  • Singular/iparith.cc

    r834c32 r0d3f08  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.177 1999-09-27 13:31:38 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.178 1999-10-01 17:18:24 Singular Exp $ */
    55
    66/*
    … …  
    25062506#ifdef PDEBUG
    25072507  poly old = mpDet(m);
    2508   if (!pEqual(p,old))
     2508  if (!((p==NULL)&&(old==NULL))
     2509  && (!pEqual(p,old)))
    25092510  {
    25102511    WerrorS("error in mpDetBareiss");

  • Singular/kstd2.cc

    r834c32 r0d3f08  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd2.cc,v 1.32 1999-09-30 14:09:35 obachman Exp $ */
     4/* $Id: kstd2.cc,v 1.33 1999-10-01 17:18:25 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: alg. of Buchberger
    … …  
    7979    wrp(h->p);
    8080  }
    81   while(1)
     81  loop
    8282  {
    8383    i = 0;
    … …  
    103103      i++;
    104104    }
    105    
     105
    106106    if (i > strat->tl)
    107107    {
    … …  
    350350      j++;
    351351    }
    352    
     352
    353353    if (j > strat->tl)
    354354    {
    … …  
    411411      j++;
    412412    }
    413    
     413
    414414    if (j>strat->tl)
    415415    {
    … …  
    495495  pass = j = 0;
    496496  d = reddeg = pFDeg((*h).p)+(*h).ecart;
    497   while(1)
     497  loop
    498498  {
    499499    j = 0;
    … …  
    504504      j++;
    505505    }
    506    
     506
    507507    if (j > strat->tl)
    508508    {
    … …  
    515515      return;
    516516    }
    517    
     517
    518518    pi = strat->T[j].p;
    519519    ei = strat->T[j].ecart;
    … …  
    524524     */
    525525    i = j;
    526     while(1)
     526    loop
    527527    {
    528528      /*- takes the first possible with respect to ecart -*/

  • Singular/sing_mp.cc

    r834c32 r0d3f08  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: sing_mp.cc,v 1.28 1999-09-21 12:03:07 obachman Exp $ */
     4/* $Id: sing_mp.cc,v 1.29 1999-10-01 17:18:26 Singular Exp $ */
    55
    66/*
    … …  
    464464
    465465  // the main read-eval-write loop
    466   while(1)
     466  loop
    467467  {
    468468    errorreported = FALSE;
    … …  
    574574  s->type="MPtcp";
    575575}
    576 
    577576#endif
    578 
Note: See TracChangeset for help on using the changeset viewer.