diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 14:14:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 14:14:06 +0200 |
| commit | 6367dd30236275f012c58eff2f3098f4b55a50a9 (patch) | |
| tree | 10ec105d84ccb141fe1d95def01ab424d615b6a5 /gcc/ada/rtsfind.ads | |
| parent | cd8bfe35548ebe03b6c628d2ae6fdd5ab960ed74 (diff) | |
| download | gcc-6367dd30236275f012c58eff2f3098f4b55a50a9.zip gcc-6367dd30236275f012c58eff2f3098f4b55a50a9.tar.gz gcc-6367dd30236275f012c58eff2f3098f4b55a50a9.tar.bz2 | |
[multiple changes]
2011-08-04 Emmanuel Briot <briot@adacore.com>
* make.adb, makeutl.adb, makeutl.ads (Make): major refactoring.
Create several new subprograms to move code out of Make. This makes the
code more readable, removes code duplication, and is a preparation work
for adding support for aggregate projects.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* s-po32gl.ads, s-po32gl.adb: New files.
* exp_ch7.ads (Get_Global_Pool_For_Access_Type): New function.
* exp_ch7.adb (Get_Global_Pool_For_Access_Type): New function.
(Build_Finalization_Collection): Use it.
* exp_ch4.adb (Complete_Controlled_Allocation): Ditto.
* rtsfind.ads: System_Pool_32_Global, Re_Global_Pool_32_Object: New
literals.
* gcc-interface/Makefile.in: Use s-po32gl.o on VMS.
* gcc-interface/Make-lang.in: Update dependencies.
From-SVN: r177364
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 985022c..9ccb5d3 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -324,6 +324,7 @@ package Rtsfind is System_Pack_63, System_Parameters, System_Partition_Interface, + System_Pool_32_Global, System_Pool_Global, System_Pool_Empty, System_Pool_Local, @@ -1154,6 +1155,8 @@ package Rtsfind is RE_Global_Pool_Object, -- System.Pool_Global + RE_Global_Pool_32_Object, -- System.Pool_32_Global + RE_Stack_Bounded_Pool, -- System.Pool_Size RE_Do_Apc, -- System.RPC @@ -2452,6 +2455,8 @@ package Rtsfind is RE_Global_Pool_Object => System_Pool_Global, + RE_Global_Pool_32_Object => System_Pool_32_Global, + RE_Stack_Bounded_Pool => System_Pool_Size, RE_Do_Apc => System_RPC, |