re PR c/14088 (Hexfloat constants with uppercase 0X prefix fail)

	PR c/14088
	real.c (real_from_string): Look for 'X' as well as 'x' in
	hexfloat strings.

From-SVN: r77619

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5cfcbfa21cdd75c0226689d44c4763b779e85cdd..1311c647c6682565d3504b8c60f3ea471e62055d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2004-02-10  Danny Smith  <dannysmith@users.sourceforge.net>
+
+       PR c/14088
+       real.c (real_from_string): Look for 'X' as well as 'x' in
+       hexfloat strings.
+
 2004-02-10  Kazu Hirata  <kazu@cs.umass.edu>
 
        * config/h8300/h8300.md: Remove an incorrect comment about

diff --git a/gcc/real.c b/gcc/real.c
index 474da31df6c25a6531f5bb94349f0687d92a6821..ed671db0e4d0b93f37ef32eac0607fabb8940df4 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -1769,7 +1769,7 @@ real_from_string (REAL_VALUE_TYPE *r, const char *str)
   else if (*str == '+')
     str++;
 
-  if (str[0] == '0' && str[1] == 'x')
+  if (str[0] == '0' && (str[1] == 'x' || str[1] == 'X'))
     {
       /* Hexadecimal floating point.  */
       int pos = SIGNIFICAND_BITS - 4, d;