Changeset 422e17 in git


Ignore:
Timestamp:
Mar 14, 2000, 3:02:59 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
975ddb6eb7cde9ddb52446d3f17500bedeaea189
Parents:
1a1f58754aa84b19b29e87f60421b51d824fc37c
Message:
*hannes: char_series cannot handle rational but interger coeffs


git-svn-id: file:///usr/local/Singular/svn/trunk@4193 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/clapsing.cc

    r1a1f587 r422e17  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.59 2000-01-13 10:36:53 Singular Exp $
     5// $Id: clapsing.cc,v 1.60 2000-03-14 14:02:59 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
     
    866866    for(i=0;i<IDELEMS(I);i++)
    867867    {
    868       if (I->m[i]!=NULL)
    869         L.append(convSingPClapP(I->m[i]));
     868      poly p=I->m[i];
     869      if (p!=NULL)
     870      {
     871        p=pCopy(p);
     872        pCleardenom(p);
     873        L.append(convSingPClapP(p));
     874      }
    870875    }
    871876  }
     
    878883    for(i=0;i<IDELEMS(I);i++)
    879884    {
    880       if (I->m[i]!=NULL)
    881         L.append(convSingTrPClapP(I->m[i]));
     885      poly p=I->m[i];
     886      if (p!=NULL)
     887      {
     888        p=pCopy(p);
     889        pCleardenom(p);
     890        L.append(convSingTrPClapP(p));
     891      }
    882892    }
    883893  }
Note: See TracChangeset for help on using the changeset viewer.