Changeset 308898e in git for kernel

Timestamp:

Aug 11, 2010, 2:52:35 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

2b54f43e6b52ccab95555a2186fc52ef7a2afc22

Parents:

425d5a073e2de638c9b86bd0de3568162981f92b

Message:

code cleanup

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

File:

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

kernel/clapsing.cc

@@ -49 +49 @@
   if (rField_is_Q(r) || (rField_is_Zp(r)))
   {
-    CanonicalForm newGCD(const CanonicalForm & A, const CanonicalForm & B);
     setCharacteristic( n_GetChar(r) );
     CanonicalForm F( convSingPFactoryP( f,r ) ), G( convSingPFactoryP( g, r ) );
-    //if (nGetChar() > 1 )
-    //{
-    //  res=convFactoryPSingP( newGCD( F,G ));
-    //  if (!nGreaterZero(pGetCoeff(res))) res=pNeg(res);
-    //}
-    //else
-      res=convFactoryPSingP( gcd( F, G ) , r);
+    res=convFactoryPSingP( gcd( F, G ) , r);
   }
   // and over Q(a) / Fp(a)