diff options
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 124ca39552d..e726c2d760f 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -945,6 +945,16 @@ package body Lib is (Option => S, Unit => Current_Sem_Unit); end Store_Linker_Option_String; + ------------------------------- + -- Synchronize_Serial_Number -- + ------------------------------- + + procedure Synchronize_Serial_Number is + TSN : Int renames Units.Table (Current_Sem_Unit).Serial_Number; + begin + TSN := TSN + 1; + end Synchronize_Serial_Number; + --------------- -- Tree_Read -- --------------- |