diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-12-08 21:28:24 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-04-28 05:38:14 -0400 |
| commit | f358e5c17720c744e227da0c121c1ae168e5c533 (patch) | |
| tree | 33973f3c030ddf5566b58e3d00a2b195ca87ec58 | |
| parent | 88fd22e721c32580610d1756701cef892e713ad8 (diff) | |
| download | gcc-f358e5c17720c744e227da0c121c1ae168e5c533.zip gcc-f358e5c17720c744e227da0c121c1ae168e5c533.tar.gz gcc-f358e5c17720c744e227da0c121c1ae168e5c533.tar.bz2 | |
[Ada] Replace dubious use of Traverse_Func with Traverse_Proc
gcc/ada/
* inline.adb (Do_Reset_Calls): Now an instance of Traverse_Proc.
| -rw-r--r-- | gcc/ada/inline.adb | 11 |
1 files changed, 2 insertions, 9 deletions
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; --------------------------- |