diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/lib.adb | 7 | ||||
| -rw-r--r-- | gcc/ada/par-load.adb | 3 |
2 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 44aa5c6..44a4af0 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -1174,10 +1174,9 @@ package body Lib is procedure Remove_Unit (U : Unit_Number_Type) is begin - if U = Units.Last then - Unit_Names.Set (Unit_Name (U), No_Unit); - Units.Decrement_Last; - end if; + pragma Assert (U = Units.Last); + Unit_Names.Set (Unit_Name (U), No_Unit); + Units.Decrement_Last; end Remove_Unit; ---------------------------------- diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index fe8fede..39c445e 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -234,8 +234,7 @@ begin Error_Msg ("\\found unit $!", Loc); end if; - -- In both cases, remove the unit if it is the last unit (which it - -- normally (always?) will be) so that it is out of the way later. + -- In both cases, remove the unit so that it is out of the way later Remove_Unit (Cur_Unum); end if; |