Changeset 278418 in git

Timestamp:

Sep 28, 2010, 8:01:59 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

b84624ec3b0f82f334a10db8b065f7ca9e41945f

Parents:

cee23a8d7e7fe4ea9e09e9ded3bafbf3abd1f02d

Message:

gcd of monomials

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

File:

• kernel/clapsing.cc (modified) (1 diff)

kernel/clapsing.cc

@@ -102 +102 @@
   poly res=NULL;
 
-  if (f!=NULL) p_Cleardenom(f, currRing);
-  if (g!=NULL) p_Cleardenom(g, currRing);
-  else         return f; // g==0 => gcd=f (but do a p_Cleardenom)
-  if (f==NULL) return g; // f==0 => gcd=g (but do a p_Cleardenom)
+  if (f!=NULL) 
+  {
+    p_Cleardenom(f, currRing);
+    if (g!=NULL) p_Cleardenom(g, currRing);
+    else         return f; // g==0 => gcd=f (but do a p_Cleardenom)
+  }
+  else /*f==NULL*/ return g; // f==0 => gcd=g (but do a p_Cleardenom)
 
   res=singclap_gcd_r(f,g,currRing);