Changeset cb8700 in git for kernel/gnumpfl.cc

Timestamp:

Dec 17, 2007, 7:16:43 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

df1a7e121deb1550a93745377f0fdfc3addcea24

Parents:

d5a95c846fc1517274d3a931d1218317ae501684

Message:

*hannes: 1.6E7


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

File:

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

kernel/gnumpfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpfl.cc,v 1.4 2007-07-04 09:58:40 Singular Exp $ */
+/* $Id: gnumpfl.cc,v 1.5 2007-12-17 18:16:43 Singular Exp $ */
 /*
 * ABSTRACT: computations with GMP floating-point numbers
@@ -394 +394 @@
   // eat the exponent, starts with 'e' followed by '+', '-'
   // and digits, like:
-  //   e-202, e+393
-  if ( (s != start) && (*s == 'e') && ((*(s+1) == '+') || (*(s+1) == '-')) )
-  {
-    s=s+2; // eat e and sign
+  //   e-202, e+393, accept also E7
+  if ( (s != start) && ((*s == 'e')||(*s=='E')))
+  {
+    s++; // skip 'e'/'E'
+    if ((*s == '+') || (*s == '-')) s++;
     while ((*s >= '0' && *s <= '9')) s++;
   }