summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch7.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2011-08-05 14:03:20 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2011-08-05 14:03:20 +0000
commit8db65300b9d4d660a29d39f9d0b673e3412e005b (patch)
tree59e5eaa3e69c23c804364476e0c94f343e6baebd /gcc/ada/exp_ch7.ads
parent0319323f59608bd67c8afa517c871ca6bab314b2 (diff)
downloadgcc-8db65300b9d4d660a29d39f9d0b673e3412e005b.tar.gz
2011-08-05 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Formal_Package_Declaration): reject a formal package whose name is the same as that of the generic unit, or its ultimate prefix. 2011-08-05 Bob Duff <duff@adacore.com> * a-fihema.adb, a-fihema.ads: Minor comment improvements. * sem_ch3.adb, exp_ch5.adb, exp_ch7.adb, exp_ch7.ads, exp_util.adb: Minor comment fixes. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177438 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.ads')
-rw-r--r--gcc/ada/exp_ch7.ads5
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads
index 4b937d8a7c6..bcc5526897a 100644
--- a/gcc/ada/exp_ch7.ads
+++ b/gcc/ada/exp_ch7.ads
@@ -122,10 +122,11 @@ package Exp_Ch7 is
(Obj_Ref : Node_Id;
Ptr_Typ : Entity_Id) return Node_Id;
-- Create a call to prepend an object to a finalization collection. Obj_Ref
- -- is the object, Ptr_Typ is the access type that owns the collection.
+ -- is the object, Ptr_Typ is the access type that owns the collection. This
+ -- is used only for .NET/JVM, that is, when VM_Target /= No_VM.
-- Generate the following:
--
- -- Ada.Finalization.Heap_Managment.Attach
+ -- Ada.Finalization.Heap_Management.Attach
-- (<Ptr_Typ>FC,
-- System.Finalization_Root.Root_Controlled_Ptr (Obj_Ref));