diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-01-15 23:38:01 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-01-15 23:38:01 +0100 |
| commit | da8309c66df227e2ea4684628d98229dc69acfa2 (patch) | |
| tree | 00642f152a422e8b458e01bdffb649b6068904e4 /gcc/fortran/primary.c | |
| parent | 4b8a70aa26d5b60e100c2a90ecb27877a4e3e9e9 (diff) | |
| download | gcc-da8309c66df227e2ea4684628d98229dc69acfa2.zip gcc-da8309c66df227e2ea4684628d98229dc69acfa2.tar.gz gcc-da8309c66df227e2ea4684628d98229dc69acfa2.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 32c6c36..da2b7c8 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: |