From: Danny Smith <dannysmith@users.sourceforge.net>
Date: Tue, 10 Feb 2004 23:05:58 +0000 (+0000)
Subject: re PR c/14088 (Hexfloat constants  with uppercase 0X prefix fail)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=52bac94926a17b604b54fe3ffa9ecb68ef719b0b;p=gcc.git

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 5cfcbfa21cd..1311c647c66 100644
--- 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 474da31df6c..ed671db0e4d 100644
--- 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;