diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:09:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:09:30 +0000 |
| commit | ca366fe1c8687651080955ef5d90e23a45ccca9e (patch) | |
| tree | 8ed797e2e1caafc148b02dcb9b3b2abceaaa79bd /gcc/ada/scans.ads | |
| parent | d5c7669cdb54f778be48197d4c0345b8e5ae63bb (diff) | |
| download | ppe42-gcc-ca366fe1c8687651080955ef5d90e23a45ccca9e.tar.gz ppe42-gcc-ca366fe1c8687651080955ef5d90e23a45ccca9e.zip | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154804 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 4fe0700a4e4..770d53bb59b 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -428,7 +428,13 @@ package Scans is -- Valid only when Token = Tok_String_Literal or Tok_Operator_Symbol. Wide_Character_Found : Boolean := False; - -- Set True if wide character found. + -- Set True if wide character found (i.e. a character that does not fit + -- in Character, but fits in Wide_Wide_Character). + -- Valid only when Token = Tok_String_Literal. + + Wide_Wide_Character_Found : Boolean := False; + -- Set True if wide wide character found (i.e. a character that does + -- not fit in Character or Wide_Character). -- Valid only when Token = Tok_String_Literal. Special_Character : Character; |
