sem_ch12.adb: Add comments

2008-08-04  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.adb: Add comments

From-SVN: r138599

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 282104fdd9a5088f60e214f95db59d22f3e3fcc9..a4abddf2b2aac0d6f25336b3285b454a76e85761 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -8716,8 +8716,9 @@ package body Sem_Ch12 is
    begin
       Gen_Body_Id := Corresponding_Body (Gen_Decl);
 
-      --  Subprogram body may have been created already because of
-      --  an inline pragma.
+      --  Subprogram body may have been created already because of an inline
+      --  pragma, or because of multiple elaborations of the enclosing package
+      --  when several instances of the subprogram appear in the main unit.
 
       if Present (Corresponding_Body (Act_Decl)) then
          return;