Changeset b39d4d in git for Singular/mpr_numeric.cc

Timestamp:

Dec 18, 2000, 4:44:42 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')

Children:

e3dc1cc75eb8813142d38ad4d5b8638f5748228a

Parents:

6a9b5a892f6ba5ac58be777a540985149140afae

Message:

Dec alpha port


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

File:

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

Singular/mpr_numeric.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpr_numeric.cc,v 1.11 2000-10-05 15:16:58 Singular Exp $ */
+/* $Id: mpr_numeric.cc,v 1.12 2000-12-18 15:44:42 obachman Exp $ */
 
 /*
@@ -597 +597 @@
     abx_g= abs(*x);
 
+// gcc 2.95.2 on the dec alpha chokes on this
+#if defined(__GNUC__)
+#if ! (defined(__alpha) && __GNUC__ == 2 && __GNUC_MINOR__ == 95)
     for ( j= m-1; j >= 0; j-- )
     {
@@ -631 +634 @@
     if ( iter % MT ) *x= x1;
     else *x -= ( dx * frac_g[ iter / MT ] );
+#endif
+#endif
   }
 
   *its= MAXIT+1;
-
   return;
 }