From b5c739f9f5969b4803b40467822b0b64e0ecd35e Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 10 Aug 2010 13:50:53 +0000 Subject: a-chahan.ads: Add comments on handling of obsolescent entries. 2010-08-10 Robert Dewar * a-chahan.ads: Add comments on handling of obsolescent entries. * opt.ads: Add Ada_2005 and Ada_2012 renamings for versions. * restrict.adb (Check_Obsolescent_2005_Entity): New procedure. * restrict.ads (Check_Obsolescent_2005_Entity): New procedure. * sem_attr.adb (Analyze_Access_Attribute): Call Check_Obsolescent_2005_Entity to check for access to obsolescent Ada.Characters.Handling subprogram. (Analyze_Attribute, case Class): Applying Class to untagged incomplete type is obsolescent in Ada 2005. (Analyze_Attribute, case Constrained): Better placement of flag when flagged as obsolescent feature. (Analyze_Attribute, case Storage_Size): Use with tasks is obsolescent * sem_ch10.adb (Analyze_With_Clause): With of renamings such as Text_IO is an obsolescent feature. * sem_ch11.adb (Analyze_Raise_Statement): Numeric_Error is obsolescent feature. * sem_ch8.adb (Analyze_Subprogram_Renaming): Call Check_Obsolescent_2005_Entity to check for renaming obsolete Ada.Characters.Handling subprogram. * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings): Check for obsolescent restrictions in Ada 2005. (Analyze_Pragma, case Suppress): Entity arg is obsolescent in Ada 2005 (Analyze_Pragma, case Interface): Interface is obsolescent in Ada 2005 * sem_res.adb (Resolve_Call): Call Check_Obsolescent_2005_Entity to check for obsolescent references to Ada.Characters.Handling subprograms 2010-08-10 Robert Dewar * einfo.adb, einfo.ads: Fix bad -gnatdt output for incomplete type. 2010-08-10 Robert Dewar * errout.ads: Add VMS table entries for 2005, 12, 2012 switches * par-ch4.adb: Change wording of Ada 2012 messages * vms_data.ads: Add VMS entries for /2005, /12, /2012 From-SVN: r163063 --- gcc/ada/errout.ads | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'gcc/ada/errout.ads') diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 8251126f341..4aea9d87d6d 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -376,8 +376,14 @@ package Errout is Gname5 : aliased constant String := "gnat05"; Vname5 : aliased constant String := "05"; - Gname6 : aliased constant String := "gnat12"; - Vname6 : aliased constant String := "12"; + Gname6 : aliased constant String := "gnat2005"; + Vname6 : aliased constant String := "2005"; + + Gname7 : aliased constant String := "gnat12"; + Vname7 : aliased constant String := "12"; + + Gname8 : aliased constant String := "gnat2012"; + Vname8 : aliased constant String := "2012"; type Cstring_Ptr is access constant String; @@ -387,7 +393,9 @@ package Errout is Gname3'Access, Gname4'Access, Gname5'Access, - Gname6'Access); + Gname6'Access, + Gname7'Access, + Gname8'Access); Vnames : array (Nat range <>) of Cstring_Ptr := (Vname1'Access, @@ -395,7 +403,9 @@ package Errout is Vname3'Access, Vname4'Access, Vname5'Access, - Vname6'Access); + Vname6'Access, + Vname7'Access, + Vname8'Access); ----------------------------------------------------- -- Global Values Used for Error Message Insertions -- -- cgit v1.2.1