2008-08-04 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: Add comments
From-SVN: r138599
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;