From da8309c66df227e2ea4684628d98229dc69acfa2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 15 Jan 2005 23:38:01 +0100 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/primary.c | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ba5ae017361e..ba8e5b86846c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-01-15 Tobias Schl"uter * resolve.c (compare_case): Cleanup. diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 32c6c36340cd..da2b7c82b1a6 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: -- 2.47.2