Message ID | 20111107162246.GA7683@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_util.adb =================================================================== --- sem_util.adb (revision 181090) +++ sem_util.adb (working copy) @@ -12835,6 +12835,11 @@ U := Corresponding_Spec (P); end if; + when Formal_Kind => + if Present (Spec_Entity (E)) then + U := Spec_Entity (E); + end if; + when others => null; end case;