diff options
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 21d299ebb85..5e909307264 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -870,6 +870,17 @@ package body Lib is return Int (Units.Last) - Int (Main_Unit) + 1; end Num_Units; + ----------------- + -- Remove_Unit -- + ----------------- + + procedure Remove_Unit (U : Unit_Number_Type) is + begin + if U = Units.Last then + Units.Decrement_Last; + end if; + end Remove_Unit; + ---------------------------------- -- Replace_Linker_Option_String -- ---------------------------------- |