Message ID | 20100909093046.GA13913@adacore.com |
---|---|
State | New |
Headers | show |
Index: exp_ch9.adb =================================================================== --- exp_ch9.adb (revision 164000) +++ exp_ch9.adb (working copy) @@ -829,10 +829,12 @@ package body Exp_Ch9 is begin -- Loop to find enclosing construct containing activation chain variable + -- The construct is a body, a block, or an extended return. P := Parent (N); while not Nkind_In (P, N_Subprogram_Body, + N_Entry_Body, N_Package_Declaration, N_Package_Body, N_Block_Statement,