diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:51:26 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:51:26 +0100 |
| commit | 0f83b0444cf59c7d73fd870e71f6cac3c69a134e (patch) | |
| tree | 3cd396db2fefb65be70f35f769705e23a6e844cb /gcc/ada/switch-c.adb | |
| parent | 52b70b1bef33b0a6a339c631b084cf030bc501e9 (diff) | |
| download | gcc-0f83b0444cf59c7d73fd870e71f6cac3c69a134e.zip gcc-0f83b0444cf59c7d73fd870e71f6cac3c69a134e.tar.gz gcc-0f83b0444cf59c7d73fd870e71f6cac3c69a134e.tar.bz2 | |
[multiple changes]
2017-01-23 Gary Dismukes <dismukes@adacore.com>
* a-calend.adb, prep.adb, debug.adb, prj.ads, prepcomp.adb,
exp_disp.adb, s-imgrea.adb, g-socket.adb, g-socket.ads, sem_ch13.adb,
prj-tree.ads: Minor spelling change for consistency (behaviour ->
behavior).
2017-01-23 Ed Schonberg <schonberg@adacore.com>
* scng.adb (Scan): Use Ada version Ada_2020 to flag use of
Target_Name.
* par-ch4.adb (P_Primary): Ditto.
* opt.ads: Add Ada_2020 (optimistically) to enumeration list of
Ada_Version_Type.
* switch-c.adb (Scan_Front_End_Switches): Recognize -gnat2020 for
new Ada version Ada_2020.
2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
* exp_attr.adb (Expand_Loop_Entry_Attribute): Force the generation
of a nominal type for the constant which captures the value of
the attribute prefix. Various clean ups.
* sem_attr.adb (Analyze_Attribute): Clean up the processing of
'Loop_Entry.
2017-01-23 Yannick Moy <moy@adacore.com>
* sem_util.adb (Has_Enabled_Property): Treat
protected objects and variables differently from other variables.
From-SVN: r244787
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 4aac847..176dbe4 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -1502,6 +1502,9 @@ package body Switch.C is elsif Switch_Chars (Ptr .. Ptr + 3) = "2012" then Ada_Version := Ada_2012; + elsif Switch_Chars (Ptr .. Ptr + 3) = "2020" then + Ada_Version := Ada_2020; + else Bad_Switch ("-gnat" & Switch_Chars (Ptr .. Ptr + 3)); end if; |