From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 8 Dec 2020 20:28:24 +0000 (+0100)
Subject: [Ada] Replace dubious use of Traverse_Func with Traverse_Proc
X-Git-Tag: upstream/12.2.0~8493
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f358e5c17720c744e227da0c121c1ae168e5c533;p=platform%2Fupstream%2Fgcc.git

[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
--- 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;
 
       ---------------------------