summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch3.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-08-01 09:38:48 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-08-01 09:38:48 +0000
commite9b26a1def3126e8acf67f5e5485786db77f09fd (patch)
treef82c18553ae17d64cbb6e00de68fc79cfbdbd657 /gcc/ada/exp_ch3.adb
parent26a987308ddcfc00f36313f31eac21e361d957a8 (diff)
downloadgcc-e9b26a1def3126e8acf67f5e5485786db77f09fd.tar.gz
2014-08-01 Vincent Celier <celier@adacore.com>
* make.adb (Await_Compile): Remove loop that was only needed for VMS. 2014-08-01 Robert Dewar <dewar@adacore.com> * a-calcon.ads, a-direct.adb, a-dirval-mingw.adb, a-dirval.adb, a-dirval.ads, a-except-2005.adb, a-excpol-abort.adb, a-numaux-darwin.ads, a-numaux.ads, bindgen.adb, bindusg.adb, einfo.adb, einfo.ads, err_vars.ads, errout.ads, errutil.adb, exp_ch3.adb, exp_ch4.adb, exp_ch7.adb, exp_ch7.ads, fname-uf.adb, fname.adb, fname.ads, freeze.adb, g-debpoo.adb, g-dirope.ads, g-excact.ads, g-expect.ads, g-socket.adb, g-socket.ads, g-sothco.ads, g-traceb.ads, gnat_rm.texi, gnatlink.adb, gnatls.adb, i-cstrea.adb, krunch.adb, krunch.ads, layout.adb, lib-util.adb, make.adb, mlib.adb, osint-b.adb, osint-b.ads, osint-c.adb, osint.adb, osint.ads, output.ads, par.adb, prj-conf.adb, prj-env.adb, prj-makr.adb, prj-nmsc.adb, prj.adb, prj.ads, repinfo.adb, rtsfind.adb, rtsfind.ads, s-excmac-gcc.ads, s-fatgen.adb, s-mastop.ads, s-parame-ae653.ads, s-parame-hpux.ads, s-parame-vxworks.ads, s-parame.ads, s-soflin.ads, s-stoele.adb, s-tasini.adb, s-taspri-dummy.ads, s-taspri-hpux-dce.ads, s-taspri-mingw.ads, s-taspri-posix-noaltstack.ads, s-taspri-posix.ads, s-taspri-solaris.ads, s-taspri-vxworks.ads, s-trasym.ads, sem_ch12.adb, sem_ch4.adb, sem_eval.adb, sem_intr.adb, sem_mech.adb, sem_mech.ads, sem_prag.adb, sem_res.adb, sem_util.adb, sem_util.ads, sinfo.adb, sinfo.ads, sinput-c.adb, symbols.ads, targparm.adb, treepr.adb, types.ads, xr_tabls.adb, xr_tabls.ads: Remove VMS specific code and comments. 2014-08-01 Ed Schonberg <schonberg@adacore.com> * sem_ch5.adb (Analyze_Iterator_Specification): New procedure Check_Reverse_Iteration, to verify the legality of the Reverse indicator on various container types, and to detect illegal reverse iterations on containers that only supoort forward iteration. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213431 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
-rw-r--r--gcc/ada/exp_ch3.adb20
1 files changed, 4 insertions, 16 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 5d5edf3bf78..7774d09f3c2 100644
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -1701,18 +1701,6 @@ package body Exp_Ch3 is
end if;
end if;
- -- When the object is either protected or a task, create static strings
- -- which denote the names of entries and families. Associate the strings
- -- with the concurrent object's Protection_Entries or ATCB. This is a
- -- VMS Debug feature.
-
- if OpenVMS_On_Target
- and then Is_Concurrent_Type (Typ)
- and then Entry_Names_OK
- then
- Build_Entry_Names (Id_Ref, Typ, Res);
- end if;
-
return Res;
exception
@@ -7212,8 +7200,8 @@ package body Exp_Ch3 is
-- All anonymous access-to-controlled types allocate
-- on the global pool.
- Set_Associated_Storage_Pool (Comp_Typ,
- Get_Global_Pool_For_Access_Type (Comp_Typ));
+ Set_Associated_Storage_Pool
+ (Comp_Typ, RTE (RE_Global_Pool_Object));
Build_Finalization_Master
(Typ => Comp_Typ,
@@ -7229,8 +7217,8 @@ package body Exp_Ch3 is
-- All anonymous access-to-controlled types allocate
-- on the global pool.
- Set_Associated_Storage_Pool (Comp_Typ,
- Get_Global_Pool_For_Access_Type (Comp_Typ));
+ Set_Associated_Storage_Pool
+ (Comp_Typ, RTE (RE_Global_Pool_Object));
-- Shared the master among multiple components