Changeset d0207e9 in git


Ignore:
Timestamp:
Feb 26, 2009, 3:23:07 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
Children:
4751d7a7e4db5fb6ec994a889d43d7f78013fbfa
Parents:
b8cf6c7396a74cf9f5eaabb53c4e78e2f9675873
Message:
*hannes: pCleardenom may change p


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

Legend:

Unmodified
Added
Removed

  • kernel/kInline.cc

    rb8cf6c rd0207e9  
    77 *  Author:  obachman (Olaf Bachmann)
    88 *  Created: 8/00
    9  *  Version: $Id: kInline.cc,v 1.12 2009-02-21 14:11:06 Singular Exp $
     9 *  Version: $Id: kInline.cc,v 1.13 2009-02-26 14:22:38 Singular Exp $
    1010 *******************************************************************/
    1111#ifndef KINLINE_CC
    … …  
    418418{
    419419  assume(p != NULL);
     420  #ifdef HAVE_RATGRING
     421  p= ::pCleardenom(p);
     422  #else
    420423  ::pCleardenom(p);
     424  #endif
    421425  if (t_p != NULL)
    422426    pSetCoeff0(t_p, pGetCoeff(p));

  • kernel/polys.h

    rb8cf6c rd0207e9  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys.h,v 1.20 2008-07-26 16:05:41 Singular Exp $ */
     6/* $Id: polys.h,v 1.21 2009-02-26 14:22:49 Singular Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate polynomials of the
    … …  
    364364void      pContent(poly p);
    365365void      pSimpleContent(poly p, int s);
    366 void      pCleardenom(poly p);
     366poly      pCleardenom(poly p);
    367367void      pCleardenom_n(poly p,number &c);
    368368void      p_Normalize(poly p,const ring r);

  • kernel/polys1.cc

    rb8cf6c rd0207e9  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.34 2009-02-26 11:24:15 Singular Exp $ */
     4/* $Id: polys1.cc,v 1.35 2009-02-26 14:23:07 Singular Exp $ */
    55
    66/*
    … …  
    942942#endif
    943943
    944 void pCleardenom(poly ph)
    945 {
     944poly pCleardenom(poly ph)
     945{
     946  poly start=ph;
    946947  number d, h;
    947948  poly p;
    … …  
    951952  {
    952953    pContent(ph);
    953     return;
     954    return start;
    954955  }
    955956#endif
    … …  
    10581059    {
    10591060      pContentRat(ph);
     1061      start=ph;
    10601062    }
    10611063#endif
    10621064  }
     1065  return start;
    10631066}
    10641067
Note: See TracChangeset for help on using the changeset viewer.