diff options
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index a727f48..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; @@ -1223,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 |