Changeset 4508ce5 in git for Singular/gnumpfl.cc

Timestamp:

Dec 15, 2000, 7:49:36 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a5f564c88c2600acb20b8afdd6dd84d9d3f715df

Parents:

d3bf0986c4b1a7bac5ffc43b873646317a0d91de

Message:

*hannes: nMap removed nSetMap returns now the routine


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

File:

• Singular/gnumpfl.cc (modified) (2 diffs)

Singular/gnumpfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpfl.cc,v 1.16 2000-09-18 09:18:59 obachman Exp $ */
+/* $Id: gnumpfl.cc,v 1.17 2000-12-15 18:49:29 Singular Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -43 +43 @@
 }
 
-BOOLEAN ngfSetMap(ring r)
-{
-  if (rField_is_Q(r))
-  {
-    nMap = ngfMapQ;
-    return TRUE;
-  }
-  else if (rField_is_Zp(r))
-  {
-    nMap = ngfMapP;
-    return TRUE;
-  }
-  else if (rField_is_long_R(r))
-  {
-    nMap = ngfCopy;
-    return TRUE;
-  }
-  return FALSE;
+nMapFunc ngfSetMap(ring src, ring dst)
+{
+  if (rField_is_Q(src))
+  {
+    return ngfMapQ;
+  }
+  else if (rField_is_Zp(src))
+  {
+    return ngfMapP;
+  }
+  else if (rField_is_long_R(src))
+  {
+    return ngfCopy;
+  }
+  return NULL;
 }