diff options
| author | Tristan Gingold <gingold@adacore.com> | 2017-01-06 11:50:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:50:15 +0100 |
| commit | dbf2a2d34ad8a708e01869e30da252a9aff8ef6b (patch) | |
| tree | 32c1aa81aefd345059f603496191820a28210721 /gcc/ada/exp_ch9.ads | |
| parent | 0789ef6f84d73facdf01b056748e7b43abf3ed17 (diff) | |
| download | gcc-dbf2a2d34ad8a708e01869e30da252a9aff8ef6b.zip gcc-dbf2a2d34ad8a708e01869e30da252a9aff8ef6b.tar.gz gcc-dbf2a2d34ad8a708e01869e30da252a9aff8ef6b.tar.bz2 | |
exp_ch9.ads, [...] (Build_Entry_Names): Remove (unused).
2017-01-06 Tristan Gingold <gingold@adacore.com>
* exp_ch9.ads, exp_ch9.adb (Build_Entry_Names): Remove (unused).
* rtsfind.ads (RE_Task_Entry_Names_Array, RO_ST_Set_Entry_Names)
(RE_Protected_Entry_Names_Array, RO_PE_Set_Entry_Names): Remove
(unused).
* s-taskin.ads, s-taskin.adb (Set_Entry_Names,
Task_Entry_Names_Array, Task_Entry_Names_Access): Remove.
* s-tpoben.ads, s-tpoben.adb (Set_Entry_Names,
Protected_Entry_Names_Array, Protected_Entry_Names_Access): Remove.
From-SVN: r244142
Diffstat (limited to 'gcc/ada/exp_ch9.ads')
| -rw-r--r-- | gcc/ada/exp_ch9.ads | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index d49201b..a677324 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, 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- -- @@ -55,16 +55,6 @@ package Exp_Ch9 is -- interface, ensure that the designated type has a _master and generate -- a renaming of the said master to service the access type. - procedure Build_Entry_Names - (Obj_Ref : Node_Id; - Obj_Typ : Entity_Id; - Stmts : List_Id); - -- Given a concurrent object, create static string names for all entries - -- and entry families. Associate each name with the Protection_Entries or - -- ATCB field of the object. Obj_Ref is a reference to the concurrent - -- object. Obj_Typ is the type of the object. Stmts is the list where all - -- generated code is attached. - procedure Build_Master_Entity (Obj_Or_Typ : Entity_Id); -- Given the name of an object or a type which is either a task, contains -- tasks or designates tasks, create a _master in the appropriate scope |