Changeset ec4a2c in git for kernel/gr_kstd2.cc

Timestamp:

Feb 26, 2009, 1:17:38 PM (14 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

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

Children:

982e0181ff465b667d7d64681f4247eabf628b8c

Parents:

3a852046e44ceaad99faf50863adfab42f049b2c

Message:

*levandov: debugging pContent


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

File:

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

kernel/gr_kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gr_kstd2.cc,v 1.30 2009-02-24 17:40:28 Singular Exp $ */
+/* $Id: gr_kstd2.cc,v 1.31 2009-02-26 12:17:38 levandov Exp $ */
 /*
 *  ABSTRACT -  Kernel: noncomm. alg. of Buchberger
@@ -168 +168 @@
 void ratGB_divide_out(poly p)
 {
+  /* extracts monomial content from localized expression  */
   if (p==NULL) return;
   poly root=p;
@@ -230 +231 @@
   {
     if (rField_is_Zp_a()) pContent(h->p);
-    else pCleardenom(h->p);// also does a pContent
+    else pCleardenom(h->p);// also does a pContentRat
   }
   loop