diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 12:31:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 12:31:35 +0000 |
| commit | 240887aae5365d5f04cecb616c4053f28701422e (patch) | |
| tree | 9bcd2dc0363cc5444998418b53a4a6358f45d5df /gcc/ada/scans.ads | |
| parent | 1d81d3c9e66fa1790778b365b8b257a38e761dfa (diff) | |
| download | gcc-240887aae5365d5f04cecb616c4053f28701422e.tar.gz | |
2010-09-09 Thomas Quinot <quinot@adacore.com>
* s-strxdr.adb, gnat_rm.texi, s-stratt-xdr.adb, s-stratt.ads: Rename
s-strxdr.adb to s-stratt-xdr.adb
2010-09-09 Robert Dewar <dewar@adacore.com>
* ali-util.adb (Obsolescent_Check): Removed.
* gprep.adb (Obsolescent_Check): Removed.
Remove Obsolescent_Check parameter in Scng instantiation
* prj-err.adb (Obsolescent_Check): Removed.
* prj-err.ads (Obsolescent_Check): Removed.
Remove Obsolescent_Check parameter in Scng instantiation
* scans.ads (Based_Literal_Uses_Colon): New flag
* scn.adb (Obsolscent_Check_Flag): Removed
(Obsolscent_Check): Removed
(Set_Obsolescent_Check): Removed
(Post_Scan): Add handling for obsolescent features
* scn.ads (Obsolscent_Check): Removed
(Set_Obsolescent_Check): Removed
(Post_Scan): Can no longer be inlined
Remove Obsolescent_Check from instantiation of Scng
* scng.adb (Nlit): Set Based_Literal_Uses_Colon
(Nlit): Remove handling of obsolescent check
(Scan, case '%'): Remove handling of obsolescent check
(Scan, case '|'): Call Post_Scan
(Scan, case '!'): Remove handling of obsolescent check, call Post_Scan
* scng.ads Remove Obsolescent_Check argument from Scng generic
(Post_Scan): Now called for Tok_Vertical_Bar
* sinput-l.adb: Remove calls to Set_Obsolescent_Check
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164081 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 770d53bb59b..0532862cced 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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- -- @@ -415,27 +415,34 @@ package Scans is -- We do things this way to minimize the impact on comment scanning. Character_Code : Char_Code; - -- Valid only when Token is Tok_Char_Literal + -- Valid only when Token is Tok_Char_Literal. Contains the value of the + -- scanned literal. Real_Literal_Value : Ureal; - -- Valid only when Token is Tok_Real_Literal + -- Valid only when Token is Tok_Real_Literal, contains the value of the + -- scanned literal. Int_Literal_Value : Uint; - -- Valid only when Token = Tok_Integer_Literal; + -- Valid only when Token = Tok_Integer_Literal, contains the value of the + -- scanned literal. + + Based_Literal_Uses_Colon : Boolean; + -- Valid only when Token = Tok_Integer_Literal or Tok_Real_Literal. Set + -- True only for the case of a based literal using ':' instead of '#'. String_Literal_Id : String_Id; - -- Id for currently scanned string value. -- Valid only when Token = Tok_String_Literal or Tok_Operator_Symbol. + -- Contains the Id for currently scanned string value. Wide_Character_Found : Boolean := False; - -- 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. + -- Valid only when Token = Tok_String_Literal. Set True if wide character + -- found (i.e. a character that does not fit in Character, but fits in + -- Wide_Wide_Character). 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. + -- Valid only when Token = Tok_String_Literal. Set True if wide wide + -- character found (i.e. a character that does not fit in Character or + -- Wide_Character). Special_Character : Character; -- Valid only when Token = Tok_Special. Returns one of the characters |