Changeset cbc84b in git for Singular/clapsing.cc

Timestamp:

Mar 15, 1999, 2:58:30 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

cbf36f5fd5b1bb3224d54ba7728bcc9b8550e1a8

Parents:

2e467b8c085c6337853964f2f6f4231010debdc8

Message:

*hannes: fixed coef bug in gcd


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

File:

• Singular/clapsing.cc (modified) (3 diffs)

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.46 1999-03-08 14:10:22 Singular Exp $
+// $Id: clapsing.cc,v 1.47 1999-03-15 13:58:30 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -202 +202 @@
   if (f!=NULL) pCleardenom(f);
   if (g!=NULL) pCleardenom(g);
-
+  else         return pCopy(f); // g==0 => gcd=f (but do a pCleardenom)
+  if (f==NULL) return pCopy(g); // f==0 => gcd=g (but do a pCleardenom)
+ 
   // for now there is only the possibility to handle polynomials over
   // Q and Fp ...
@@ -257 +259 @@
   pDelete(&f);
   pDelete(&g);
+  pTest(res);
   return res;
 }