diff options
Diffstat (limited to 'gcc/ada/ali-util.adb')
| -rw-r--r-- | gcc/ada/ali-util.adb | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 1358ed0..1bf114a 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -53,7 +53,9 @@ package body ALI.Util is procedure Error_Msg_SP (Msg : String); - -- Instantiation of Styleg, needed to instantiate Scng + procedure Obsolescent_Check (S : Source_Ptr); + + -- Instantiation of Styleg, needed to instantiate Scng package Style is new Styleg (Error_Msg, Error_Msg_S, Error_Msg_SC, Error_Msg_SP); @@ -62,7 +64,8 @@ package body ALI.Util is -- Get_File_Checksum). package Scanner is new Scng - (Post_Scan, Error_Msg, Error_Msg_S, Error_Msg_SC, Error_Msg_SP, Style); + (Post_Scan, Error_Msg, Error_Msg_S, Error_Msg_SC, Error_Msg_SP, + Obsolescent_Check, Style); type Header_Num is range 0 .. 1_000; @@ -200,6 +203,16 @@ package body ALI.Util is Interfaces.Reset; end Initialize_ALI_Source; + ----------------------- + -- Obsolescent_Check -- + ----------------------- + + procedure Obsolescent_Check (S : Source_Ptr) is + pragma Warnings (Off, S); + begin + null; + end Obsolescent_Check; + --------------- -- Post_Scan -- --------------- |