diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:14:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:14:06 +0000 |
| commit | a348965a3b3ebe0e9538c63b0cfce952bfe69644 (patch) | |
| tree | 10ec105d84ccb141fe1d95def01ab424d615b6a5 /gcc/ada/exp_ch7.ads | |
| parent | b0712ab369df6c96989b3a07d5cc3f4dfcd37d83 (diff) | |
| download | ppe42-gcc-a348965a3b3ebe0e9538c63b0cfce952bfe69644.tar.gz ppe42-gcc-a348965a3b3ebe0e9538c63b0cfce952bfe69644.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177364 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.ads')
| -rw-r--r-- | gcc/ada/exp_ch7.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads index 08c3734fdd7..7a7f8746701 100644 --- a/gcc/ada/exp_ch7.ads +++ b/gcc/ada/exp_ch7.ads @@ -98,6 +98,11 @@ package Exp_Ch7 is -- applies, in which case we know that class-wide objects do not contain -- controlled parts. + function Get_Global_Pool_For_Access_Type (T : Entity_Id) return Entity_Id; + -- Return the pool id for access type T. This is generally the node + -- corresponding to System.Global_Pool.Global_Pool_Object except on + -- VMS if the access size is 32. + function Has_New_Controlled_Component (E : Entity_Id) return Boolean; -- E is a type entity. Give the same result as Has_Controlled_Component -- except for tagged extensions where the result is True only if the |
