From: Ed Schonberg <schonberg@adacore.com>
Date: Mon, 4 Aug 2008 10:22:39 +0000 (+0200)
Subject: sem_ch12.adb: Add comments
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d882d0e15ec0aaa63e14ff74d5c5cea488ef84e0;p=platform%2Fupstream%2Fgcc.git

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 282104f..a4abddf 100644
--- 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;