diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-11-30 14:09:30 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 15:09:30 +0100 |
| commit | fd22cd216b0bb01b882467b4682c7b0f6eee7026 (patch) | |
| tree | 8ed797e2e1caafc148b02dcb9b3b2abceaaa79bd /gcc/ada/scn.adb | |
| parent | d0995fa28092684f4d3a9123682d293f2517d457 (diff) | |
| download | gcc-fd22cd216b0bb01b882467b4682c7b0f6eee7026.zip gcc-fd22cd216b0bb01b882467b4682c7b0f6eee7026.tar.gz gcc-fd22cd216b0bb01b882467b4682c7b0f6eee7026.tar.bz2 | |
scans.ads (Wide_Wide_Character_Found): New flag
2009-11-30 Robert Dewar <dewar@adacore.com>
* scans.ads (Wide_Wide_Character_Found): New flag
* scn.adb (Post_Scan): Set new flag Has_Wide_Wide_Character
* scng.adb (Set_String): Set new flag Wide_Wide_Character_Found
(Set_String): Fix failure to reset Wide_Character_Found
* sinfo.adb (Has_Wide_Wide_Character): New flag in N_String_Literal
* sinfo.ads (Has_Wide_Wide_Character): New flag in N_String_Literal
* a-ngelfu.adb: Minor reformatting & code reorganization.
* usage.adb: Fix typo in -gnatw.W line
From-SVN: r154804
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 81dc49b..9848550 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2009, 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- -- @@ -383,7 +383,10 @@ package body Scn is when Tok_String_Literal => Token_Node := New_Node (N_String_Literal, Token_Ptr); - Set_Has_Wide_Character (Token_Node, Wide_Character_Found); + Set_Has_Wide_Character + (Token_Node, Wide_Character_Found); + Set_Has_Wide_Wide_Character + (Token_Node, Wide_Wide_Character_Found); Set_Strval (Token_Node, String_Literal_Id); when Tok_Operator_Symbol => |