2014-07-31 Robert Dewar <dewar@adacore.com>

	* cstand.adb, einfo.adb, einfo.ads, errout.adb, exp_attr.adb,
	exp_prag.adb, frontend.adb, interfac.ads,
	par-prag.adb, s-auxdec.ads, s-filofl.ads, s-fishfl.ads, s-fvadfl.ads,
	s-fvaffl.ads, s-fvagfl.ads, s-vaflop.ads, sem_attr.adb, sem_attr.ads,
	sem_ch13.adb, sem_ch3.adb, sem_ch8.adb, sem_prag.adb, snames.adb-tmpl,
	snames.ads-tmpl: Remove obsolete VMS-specific code.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213369 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 0 insertions, 64 deletions

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 6bc73b7013b..e2ec15d8a20 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -2255,70 +2255,6 @@ package body Exp_Attr is
          end if;
       end Alignment;
 
-      ---------------
-      -- AST_Entry --
-      ---------------
-
-      when Attribute_AST_Entry => AST_Entry : declare
-         Ttyp : Entity_Id;
-         T_Id : Node_Id;
-         Eent : Entity_Id;
-
-         Entry_Ref : Node_Id;
-         --  The reference to the entry or entry family
-
-         Index : Node_Id;
-         --  The index expression for an entry family reference, or
-         --  the Empty if Entry_Ref references a simple entry.
-
-      begin
-         if Nkind (Pref) = N_Indexed_Component then
-            Entry_Ref := Prefix (Pref);
-            Index := First (Expressions (Pref));
-         else
-            Entry_Ref := Pref;
-            Index := Empty;
-         end if;
-
-         --  Get expression for Task_Id and the entry entity
-
-         if Nkind (Entry_Ref) = N_Selected_Component then
-            T_Id :=
-              Make_Attribute_Reference (Loc,
-                Attribute_Name => Name_Identity,
-                Prefix         => Prefix (Entry_Ref));
-
-            Ttyp := Etype (Prefix (Entry_Ref));
-            Eent := Entity (Selector_Name (Entry_Ref));
-
-         else
-            T_Id :=
-              Make_Function_Call (Loc,
-                Name => New_Occurrence_Of (RTE (RE_Current_Task), Loc));
-
-            Eent  := Entity (Entry_Ref);
-
-            --  We have to find the enclosing task to get the task type
-            --  There must be one, since we already validated this earlier
-
-            Ttyp := Current_Scope;
-            while not Is_Task_Type (Ttyp) loop
-               Ttyp := Scope (Ttyp);
-            end loop;
-         end if;
-
-         --  Now rewrite the attribute with a call to Create_AST_Handler
-
-         Rewrite (N,
-           Make_Function_Call (Loc,
-             Name => New_Occurrence_Of (RTE (RE_Create_AST_Handler), Loc),
-             Parameter_Associations => New_List (
-               T_Id,
-               Entry_Index_Expression (Loc, Eent, Index, Ttyp))));
-
-         Analyze_And_Resolve (N, RTE (RE_AST_Handler));
-      end AST_Entry;
-
       ---------
       -- Bit --
       ---------