mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-19 12:21:15 +08:00
scng.adb (Scan_Identifier): Handle case of identifier starting with wide character using UTF-8 encoding.
2008-04-08 Robert Dewar <dewar@adacore.com> * scng.adb (Scan_Identifier): Handle case of identifier starting with wide character using UTF-8 encoding. From-SVN: r134047
This commit is contained in:
parent
141e448f5e
commit
7f2401a678
@ -6,7 +6,7 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||
@ -2189,8 +2189,10 @@ package body Scng is
|
||||
-- is active, so if we find an ESC character we know that we have a
|
||||
-- wide character.
|
||||
|
||||
if Identifier_Char (Source (Scan_Ptr)) then
|
||||
|
||||
if Identifier_Char (Source (Scan_Ptr))
|
||||
or else (Source (Scan_Ptr) in Upper_Half_Character
|
||||
and then Upper_Half_Encoding)
|
||||
then
|
||||
-- Case of underline
|
||||
|
||||
if Source (Scan_Ptr) = '_' then
|
||||
|
Loading…
x
Reference in New Issue
Block a user