From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sat, 15 Jan 2005 22:38:01 +0000 (+0100)
Subject: primary.c (check_digit): Call 'ISXDIGIT' instead of assuming ASCII-like character... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=da8309c66df227e2ea4684628d98229dc69acfa2;p=gcc.git

primary.c (check_digit): Call 'ISXDIGIT' instead of assuming ASCII-like character encoding.

* primary.c (check_digit): Call 'ISXDIGIT' instead of assuming
ASCII-like character encoding.

From-SVN: r93713
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ba5ae017361..ba8e5b86846 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-15  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de
+
+	* primary.c (check_digit): Call 'ISXDIGIT' instead of assuming
+	ASCII-like character encoding.
+
 2005-01-14  Steven G. Kargl  <kargls@comcast.net>
 
 	* resolve.c (compare_case): Cleanup.
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 32c6c36340c..da2b7c82b1a 100644
--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -1,5 +1,6 @@
 /* Primary expression subroutines
-   Copyright (C) 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
+   Copyright (C) 2000, 2001, 2002, 2004, 2005 Free Software Foundation,
+   Inc.
    Contributed by Andy Vaught
 
 This file is part of GCC.
@@ -114,7 +115,7 @@ check_digit (int c, int radix)
       break;
 
     case 16:
-      r = ('0' <= c && c <= '9') || ('a' <= c && c <= 'f');
+      r = ISXDIGIT (c);
       break;
 
     default: