[PING] ada: Various patches

[Gary Dismukes]

> On 15/04, Arnaud Charlet wrote:
> 
> | A change is also needed to End_Use_Package to avoid blowing up when
> | processing the names of the use clause. A proper patch is included
> | below (from Gary Dismukes).
> 
> Your patch lets Pack uninitialized and causes ICEs. The following change
> is also necessary:
> 
> diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
> index a879768..3b28bdf 100644
> --- a/gcc/ada/sem_ch8.adb
> +++ b/gcc/ada/sem_ch8.adb
> @@ -3077,6 +3077,8 @@ package body Sem_Ch8 is
>           if Is_Entity_Name (Pack_Name)
>             and then Ekind (Entity (Pack_Name)) = E_Package
>           then
> +            Pack := Entity (Pack_Name);
> +
>              if In_Open_Scopes (Pack) then
>                 null;

Aargh, apologies, I posted the wrong version of my patch, not what I tested,
which indeed included that assignment.

-- Gary