Changeset 3a3392c in git


Ignore:
Timestamp:
Apr 27, 1998, 4:47:03 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
9e2ba3333cb37221b091178f15de38c4f2cfbf24
Parents:
e0af3faf6be09aa0e5d1dab637336b2fa2a30739
Message:
* hannes:fixed conversion of factory 0 to poly NULL


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

Legend:

Unmodified
Added
Removed

  • Singular/ChangeLog

    re0af3fa r3a3392c  
     1Mon Apr 27 16:45:41 MET DST 1998 hannes
     2        * fixed conversion of factory 0 to poly NULL (clapconv.cc)
     3
    141998-04-27  Olaf Bachmann  <obachman@mathematik.uni-kl.de>
    25

  • Singular/clapconv.cc

    re0af3fa r3a3392c  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapconv.cc,v 1.16 1998-04-23 09:52:07 Singular Exp $
     5// $Id: clapconv.cc,v 1.17 1998-04-27 14:47:01 Singular Exp $
    66/*
    77* ABSTRACT: convert data between Singular and factory
    … …  
    157157    }
    158158    pSetm( term );
    159     result = pAdd( result, term );
     159    if ( nIsZero(pGetCoeff(term)) )
     160    {
     161      pDelete(&term);
     162    }
     163    else
     164    {
     165      result = pAdd( result, term );
     166    } 
    160167  }
    161168}

  • Singular/clapsing.cc

    re0af3fa r3a3392c  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.34 1998-04-24 17:19:29 schmidt Exp $
     5// $Id: clapsing.cc,v 1.35 1998-04-27 14:47:02 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
    … …  
    9797{
    9898  poly res=NULL;
    99  
     99
    100100  if (f) pCleardenom(f);
    101101  if (g) pCleardenom(g);
    102  
     102
    103103  // for now there is only the possibility to handle polynomials over
    104104  // Q and Fp ...
    … …  
    129129        CanonicalForm F( convSingAPClapAP( f,a ) ), G( convSingAPClapAP( g,a ) );
    130130        res= convClapAPSingAP( gcd( F, G ) );
    131       } 
     131      }
    132132    }
    133133    else
    … …  
    634634              (**v)[j]=(*w)[i]; j++;
    635635            }
    636           } 
     636          }
    637637          delete w;
    638         } 
     638        }
    639639      }
    640640      if (res->m[0]==NULL)

  • Singular/febase.cc

    re0af3fa r3a3392c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: febase.cc,v 1.32 1998-04-27 12:34:12 obachman Exp $ */
     4/* $Id: febase.cc,v 1.33 1998-04-27 14:47:03 Singular Exp $ */
    55/*
    66* ABSTRACT: i/o system
    … …  
    711711  return got;
    712712}
    713 
    714 
    715      
Note: See TracChangeset for help on using the changeset viewer.