diff options
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 2c6a682..3fd9540 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -1062,7 +1062,7 @@ package body Lib is ----------------------------- function Increment_Serial_Number return Nat is - TSN : Int renames Units.Table (Current_Sem_Unit).Serial_Number; + TSN : Nat renames Units.Table (Current_Sem_Unit).Serial_Number; begin TSN := TSN + 1; return TSN; @@ -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 -- ----------------- @@ -1232,7 +1223,7 @@ package body Lib is ------------------------------- procedure Synchronize_Serial_Number (SN : Nat) is - TSN : Int renames Units.Table (Current_Sem_Unit).Serial_Number; + TSN : Nat renames Units.Table (Current_Sem_Unit).Serial_Number; begin -- We should not be trying to synchronize downward |