[Ada] Replace dubious use of Traverse_Func with Traverse_Proc

gcc/ada/

	* inline.adb (Do_Reset_Calls): Now an instance of Traverse_Proc.

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index bb4d97c..f373e89 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -3578,17 +3578,10 @@ package body Inline is
             return OK;
          end Do_Reset;
 
-         function Do_Reset_Calls is new Traverse_Func (Do_Reset);
-
-         --  Local variables
-
-         Dummy : constant Traverse_Result := Do_Reset_Calls (N);
-         pragma Unreferenced (Dummy);
-
-         --  Start of processing for Reset_Dispatching_Calls
+         procedure Do_Reset_Calls is new Traverse_Proc (Do_Reset);
 
       begin
-         null;
+         Do_Reset_Calls (N);
       end Reset_Dispatching_Calls;
 
       ---------------------------