sem_ch12.adb: Add comments

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

	* sem_ch12.adb: Add comments

From-SVN: r138599

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;