Changeset c70127 in git

Timestamp:

Jul 26, 2005, 9:00:11 AM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

457bd5039e1e1fb3f2f0753e4cc37c6ba141af1e

Parents:

f84afaddbef9f43c89fb0b89b444143ee3d7651f

Message:

*bricken: cleared denominator in create_spoly, kBucketPolyRed_Z


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

File:

• kernel/gring.cc (modified) (3 diffs)

kernel/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.27 2005-07-18 12:41:55 bricken Exp $
+ *  Version: $Id: gring.cc,v 1.28 2005-07-26 07:00:11 bricken Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -1162 +1162 @@
   p_Test(M2,r);
 #endif
+  if (M2!=NULL) pCleardenom(M2);
   if (M2!=NULL) pContent(M2);
   return(M2);
@@ -1272 +1273 @@
   }
   poly pp = nc_mm_Mult_p(m,pCopy(p),currRing);
+  number c2,cc;
+  pCleardenom_n(pp,c2);
   pDelete(&m);
   *c = kBucketPolyRed(b,pp,pLength(pp),NULL);
+  cc=*c;
+  *c=nMult(*c,c2);
+  nDelete(&c2);
+  nDelete(&cc);
   pDelete(&pp);
 }