From: Ben Pfaff <blp@gnu.org>
Date: Mon, 25 Jul 2005 01:51:06 +0000 (+0000)
Subject: Allow "1+23" even for F format, for compatibility.
X-Git-Tag: v0.4.0~33
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=682e5ee9e871b66d5227468bfa2ae3bc7b7d14cc;p=pspp-builds.git

Allow "1+23" even for F format, for compatibility.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index f889b723..6eee062a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jul 24 18:49:20 2005  Ben Pfaff  <blp@gnu.org>
+
+	* data-in.c: (parse_numeric) Allow "1+23" even for F format, for
+	compatibility.
+
 Sun Jul 24 18:47:37 2005  Ben Pfaff  <blp@gnu.org>
 
 	* pfm-read.c: (read_version_data) Read and ignore author field.
diff --git a/src/data-in.c b/src/data-in.c
index 3a49fa23..945cafd7 100644
--- a/src/data-in.c
+++ b/src/data-in.c
@@ -212,9 +212,7 @@ parse_numeric (struct data_in *i)
       return false;
     }
   
-  if (have_char (i)
-      && (tolower (*i->s) == 'e' || tolower (*i->s) == 'd'
-	  || (type == FMT_E && (*i->s == '+' || *i->s == '-'))))
+  if (have_char (i) && strchr ("eEdD-+", *i->s))
     {
       /* Get the exponent specified after the `e' or `E'.  */
       long exp;