Changeset f93c1c0 in git

Timestamp:

Jan 30, 2003, 3:59:59 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2eb3dbb39cecb0405a162b62f67738ea926e7e2e

Parents:

73c183e64c399fcc250e8964df3457cc5be93544

Message:

*hannes: pNormalize -> p_Normalize


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

Location:

Singular

Files:

• polys.cc (modified) (2 diffs)
• polys.h (modified) (2 diffs)

Singular/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.78 2001-10-09 16:36:18 Singular Exp $ */
+/* $Id: polys.cc,v 1.79 2003-01-30 14:59:59 Singular Exp $ */
 
 /*
@@ -692 +692 @@
 *normalize all coeffizients
 */
-void pNormalize(poly p)
-{
-  if (rField_has_simple_inverse()) return; /* Z/p, GF(p,n), R, long R/C */
+void p_Normalize(poly p, ring r) 
+{
+  if (rField_has_simple_inverse(r)) return; /* Z/p, GF(p,n), R, long R/C */
   while (p!=NULL)
   {
-    nTest(pGetCoeff(p));
-    nNormalize(pGetCoeff(p));
+    if (currRing==r) {nTest(pGetCoeff(p));}
+    n_Normalize(pGetCoeff(p),r);
     pIter(p);
   }

Singular/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.56 2001-03-05 16:41:49 mschulze Exp $ */
+/* $Id: polys.h,v 1.57 2003-01-30 14:59:58 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials of the
@@ -359 +359 @@
 void      pContent(poly p);
 void      pCleardenom(poly p);
-void      pNormalize(poly p);
+void      p_Normalize(poly p, ring r);
+#define   pNormalize(p) p_Normalize(p,currRing)
 
 // homogenizes p by multiplying certain powers of the varnum-th variable