diff options
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 2c6a682..a727f48 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -1129,15 +1129,6 @@ package body Lib is Units.Locked := True; end Lock; - --------------- - -- Num_Units -- - --------------- - - function Num_Units return Nat is - begin - return Int (Units.Last) - Int (Main_Unit) + 1; - end Num_Units; - ----------------- -- Remove_Unit -- ----------------- |