diff options
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 94cfbdc00ad..58521e9c727 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1600,13 +1600,13 @@ package body Sem is begin if not Done (Get_Cunit_Unit_Number (Withed_Unit)) then if not Nkind_In - (Unit (Withed_Unit), N_Package_Body, - N_Subprogram_Body) + (Unit (Withed_Unit), + N_Generic_Package_Declaration, + N_Package_Body, + N_Subprogram_Body) then Write_Unit_Name - (Unit_Name - (Get_Cunit_Unit_Number - (Withed_Unit))); + (Unit_Name (Get_Cunit_Unit_Number (Withed_Unit))); Write_Str (" not yet walked!"); if Get_Cunit_Unit_Number (Withed_Unit) = Unit_Num then |