Changeset 3de9a9 in git for kernel/longalg.cc

Timestamp:

Jul 20, 2008, 12:19:02 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

3664c9a4658b988592307af056a6e32424daa892

Parents:

6807f094c24c5ba731f21bf8f9a5fbfc9517dd4a

Message:

hannes: exceptional 0-cases in anGcd


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

File:

• kernel/longalg.cc (modified) (2 diffs)

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.36 2008-06-30 07:55:57 Singular Exp $ */
+/* $Id: longalg.cc,v 1.37 2008-07-20 10:19:02 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -1672 +1672 @@
 number naGcd(number a, number b, const ring r)
 {
+  if (a==NULL)  return naCopy(b);
+  if (b==NULL)  return naCopy(a);
+  
   lnumber x, y;
   lnumber result = (lnumber)omAlloc0Bin(rnumber_bin);