Changeset 50be61 in git for kernel/numbers.cc

Timestamp:

Jun 25, 2008, 12:00:23 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

93ebe197eb6812b72a3c85a3f57dd760ac87306c

Parents:

2ade7a28eb583cd2f80a5bd8a8ec1633cf5469f0

Message:

*hannes: nGetUnit defaults to nCopy


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

File:

• kernel/numbers.cc (modified) (4 diffs)

kernel/numbers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: numbers.cc,v 1.14 2008-03-19 17:44:10 Singular Exp $ */
+/* $Id: numbers.cc,v 1.15 2008-06-25 10:00:23 Singular Exp $ */
 
 /*
@@ -117 +117 @@
 int ndComp(number a, number b) { return 0; }
 BOOLEAN ndIsUnit(number a) { return TRUE; }
-number  ndGetUnit (number a) { return nCopy(a); }
 number  ndExtGcd (number a, number b, number *s, number *t) { return nInit(1); }
 #endif
@@ -297 +296 @@
   n->nDivBy = ndDivBy;
   n->nIsUnit = ndIsUnit;
-  n->nGetUnit = ndGetUnit;
   n->nExtGcd = ndExtGcd;
+  n->nGetUnit = (nMapFunc)NULL;
 #endif
   if (rField_is_Extension(r))
@@ -672 +671 @@
     WerrorS("unknown field");
   }
+#endif
+#ifdef HAVE_RINGS
+  if (n->nGetUnit==(nMapFunc)NULL) n->nGetUnit=n->nCopy;
 #endif
   if (!errorreported)