File 4211-Eliminate-warnings-for-underscore-variable... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 4211-Eliminate-warnings-for-underscore-variables-multiply.patch of Package erlang (Revision fab5cf9be99874816e9cecc0e0f8d85e)

Currently displaying revision fab5cf9be99874816e9cecc0e0f8d85e , Show latest

From de24c93770a5321393058b4c5dfea870f5701950 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 18 Feb 2021 12:36:22 +0100
Subject: [PATCH 1/9] Eliminate warnings for underscore variables multiply
 bound

---
 erts/emulator/test/binary_SUITE.erl     |  8 ++++----
 erts/emulator/test/map_SUITE.erl        | 10 +++++-----
 lib/compiler/test/compilation_SUITE.erl |  6 +++---
 lib/debugger/test/int_eval_SUITE.erl    |  4 ++--
 lib/kernel/test/code_SUITE.erl          |  4 ++--
 lib/parsetools/test/yecc_SUITE.erl      | 10 +++++-----
 lib/runtime_tools/test/dbg_SUITE.erl    | 24 ++++++++++++------------
 lib/sasl/test/release_handler_SUITE.erl | 12 ++++++------
 lib/sasl/test/systools_SUITE.erl        |  4 ++--
 lib/stdlib/test/gen_fsm_SUITE.erl       | 12 ++++++------
 lib/stdlib/test/gen_server_SUITE.erl    | 12 +++++++-----
 lib/stdlib/test/gen_statem_SUITE.erl    | 10 +++++-----
 12 files changed, 59 insertions(+), 57 deletions(-)

diff --git a/erts/emulator/test/binary_SUITE.erl b/erts/emulator/test/binary_SUITE.erl
index c2c88d59a6..46434a8c1f 100644
--- a/erts/emulator/test/binary_SUITE.erl
+++ b/erts/emulator/test/binary_SUITE.erl
@@ -377,12 +377,12 @@ t_split_binary(Config) when is_list(Config) ->
 
     %% Sub binary of heap binary.
     split(L, make_sub_binary(B), size(B)),
-    {X,_Y} = split_binary(B, size(B) div 2),
+    {X,Y} = split_binary(B, size(B) div 2),
     split(binary_to_list(X), X, size(X)),
 
     %% Unaligned sub binary of heap binary.
     split(L, make_unaligned_sub_binary(B), size(B)),
-    {X,_Y} = split_binary(B, size(B) div 2),
+    {X,Y} = split_binary(B, size(B) div 2),
     split(binary_to_list(X), X, size(X)),
     
     %% Reference-counted binary.
@@ -392,12 +392,12 @@ t_split_binary(Config) when is_list(Config) ->
 
     %% Sub binary of reference-counted binary.
     split(L2, make_sub_binary(B2), size(B2)),
-    {X2,_Y2} = split_binary(B2, size(B2) div 2),
+    {X2,Y2} = split_binary(B2, size(B2) div 2),
     split(binary_to_list(X2), X2, size(X2)),
 
     %% Unaligned sub binary of reference-counted binary.
     split(L2, make_unaligned_sub_binary(B2), size(B2)),
-    {X2,_Y2} = split_binary(B2, size(B2) div 2),
+    {X2,Y2} = split_binary(B2, size(B2) div 2),
     split(binary_to_list(X2), X2, size(X2)),
 
     ok.
diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl
index dbf6fa58ed..457c84cf11 100644
--- a/erts/emulator/test/map_SUITE.erl
+++ b/erts/emulator/test/map_SUITE.erl
@@ -1702,7 +1702,7 @@ do_compare([Gen1, Gen2]) ->
 
 maps_lessthan(M1, M2) ->
   case {maps:size(M1),maps:size(M2)} of
-      {_S,_S} ->
+      {S,S} ->
 	  {K1,V1} = lists:unzip(term_sort(maps:to_list(M1))),
 	  {K2,V2} = lists:unzip(term_sort(maps:to_list(M2))),
 
@@ -1721,9 +1721,9 @@ term_sort(L) ->
 	       L).
 
 
-cmp(T1, T2, Exact) when is_tuple(T1) and is_tuple(T2) ->
-    case {size(T1),size(T2)} of
-	{_S,_S} -> cmp(tuple_to_list(T1), tuple_to_list(T2), Exact);
+cmp(T1, T2, Exact) when is_tuple(T1), is_tuple(T2) ->
+    case {tuple_size(T1),tuple_size(T2)} of
+	{S,S} -> cmp(tuple_to_list(T1), tuple_to_list(T2), Exact);
 	{S1,S2} when S1 < S2 -> -1;
 	{S1,S2} when S1 > S2 -> 1
     end;
@@ -1741,7 +1741,7 @@ cmp(M1, M2, Exact) ->
 
 cmp_maps(M1, M2, Exact) ->
     case {maps:size(M1),maps:size(M2)} of
-	{_S,_S} ->
+	{S,S} ->
 	    {K1,V1} = lists:unzip(cmp_key_sort(maps:to_list(M1))),
 	    {K2,V2} = lists:unzip(cmp_key_sort(maps:to_list(M2))),
 
diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl
index 8b3846bade..51a9775b76 100644
--- a/lib/compiler/test/compilation_SUITE.erl
+++ b/lib/compiler/test/compilation_SUITE.erl
@@ -178,7 +178,7 @@ try_it(Module, Conf) ->
     CompRc0 = compile:file(Src, [clint0,clint,ssalint,{outdir,Out},report,
 				 bin_opt_info|OtherOpts]),
     io:format("Result: ~p\n",[CompRc0]),
-    {ok,_Mod} = CompRc0,
+    {ok,Mod} = CompRc0,
 
     load_and_call(Out, Module),
 
@@ -189,7 +189,7 @@ try_it(Module, Conf) ->
 			    {outdir,Out},report|OtherOpts]),
 
     io:format("Result: ~p\n",[CompRc1]),
-    {ok,_Mod} = CompRc1,
+    {ok,Mod} = CompRc1,
     load_and_call(Out, Module),
 
     ct:timetrap(Timetrap),
@@ -198,7 +198,7 @@ try_it(Module, Conf) ->
 				 {outdir,Out},report,bin_opt_info,
 				 {inline,1000}|OtherOpts]),
     io:format("Result: ~p\n",[CompRc2]),
-    {ok,_Mod} = CompRc2,
+    {ok,Mod} = CompRc2,
     load_and_call(Out, Module),
 
     ct:timetrap(Timetrap),
diff --git a/lib/debugger/test/int_eval_SUITE.erl b/lib/debugger/test/int_eval_SUITE.erl
index 324a44bad8..456110a399 100644
--- a/lib/debugger/test/int_eval_SUITE.erl
+++ b/lib/debugger/test/int_eval_SUITE.erl
@@ -179,7 +179,7 @@ apply_interpreted_fun(Config) when is_list(Config) ->
 
     %% Called from uninterpreted code, error in fun
     F3 = spawn_eval(fun() -> ?IM:give_me_a_bad_fun() end),
-    {'EXIT',{snape,[{?IM,_FunName,_,_}|_]}} =
+    {'EXIT',{snape,[{?IM,_,_,_}|_]}} =
 	spawn_eval(fun() -> F3(snape) end),
 
     %% Called from within interpreted code
@@ -190,7 +190,7 @@ apply_interpreted_fun(Config) when is_list(Config) ->
 	spawn_eval(fun() -> ?IM:do_apply(F1, snape) end),
 
     %% Called from within interpreted code, error in fun
-    {'EXIT',{snape,[{?IM,_FunName,_,_}|_]}} =
+    {'EXIT',{snape,[{?IM,_,_,_}|_]}} =
 	spawn_eval(fun() -> ?IM:do_apply(F3, snape) end),
 
     %% Try some more complex funs.
diff --git a/lib/kernel/test/code_SUITE.erl b/lib/kernel/test/code_SUITE.erl
index 8ccf6e260e..855a2276ba 100644
--- a/lib/kernel/test/code_SUITE.erl
+++ b/lib/kernel/test/code_SUITE.erl
@@ -531,7 +531,7 @@ all_available_1(Config) ->
     Loaded = [{atom_to_list(M),P,true} || {M,P} <- code:all_loaded()],
     [] = Loaded -- Available,
 
-    {value, {ModStr,_Path,false} = NotLoaded} =
+    {value, {ModStr,_,false} = NotLoaded} =
         lists:search(fun({Name,_,Loaded}) -> not is_atom(Name) end, Available),
     ct:log("Testing with ~p",[NotLoaded]),
 
@@ -543,7 +543,7 @@ all_available_1(Config) ->
     %% Load it
     Mod:module_info(),
 
-    {value, {ModStr,_Path,true}} =
+    {value, {ModStr,_,true}} =
         lists:search(fun({Name,_,_}) -> Name =:= ModStr end, code:all_available()),
 
     ok.
diff --git a/lib/parsetools/test/yecc_SUITE.erl b/lib/parsetools/test/yecc_SUITE.erl
index 8ad95f2b7f..e4747d8513 100644
--- a/lib/parsetools/test/yecc_SUITE.erl
+++ b/lib/parsetools/test/yecc_SUITE.erl
@@ -277,7 +277,7 @@ syntax(Config) when is_list(Config) ->
     ok = file:write_file(Filename, 
          <<"Nonterminals nt. Terminals t. Rootsymbol nt. Endsymbol e.
             a - a.">>),
-    {error,[{_,[{2,yecc,{error,_yeccparser,_}}]}],[]} =
+    {error,[{_,[{2,yecc,{error,_,_}}]}],[]} =
         yecc:file(Filename, Ret),
 
     %% Syntax error: unknown nonterminal.
@@ -2034,7 +2034,7 @@ otp_11286(Config) when is_list(Config) ->
     ok = rpc:call(Node, file, write_file, [Filename, Mini1]),
     {ok,ErlFile,[]} = rpc:call(Node, yecc, file, [Filename, Ret]),
     Opts = [return, warn_unused_vars,{outdir,Dir}],
-    {ok,_,_Warnings} = rpc:call(Node, compile, file, [ErlFile, Opts]),
+    {ok,_,_} = rpc:call(Node, compile, file, [ErlFile, Opts]),
 
     Mini2 = <<"Terminals t.
                Nonterminals nt.
@@ -2043,7 +2043,7 @@ otp_11286(Config) when is_list(Config) ->
     ok = rpc:call(Node, file, write_file, [Filename, Mini2]),
     {ok,ErlFile,[]} = rpc:call(Node, yecc, file, [Filename, Ret]),
     Opts = [return, warn_unused_vars,{outdir,Dir}],
-    {ok,_,_Warnings} = rpc:call(Node, compile, file, [ErlFile, Opts]),
+    {ok,_,_} = rpc:call(Node, compile, file, [ErlFile, Opts]),
 
     Mini3 = <<"%% coding: latin-1
                Terminals t.
@@ -2053,7 +2053,7 @@ otp_11286(Config) when is_list(Config) ->
     ok = rpc:call(Node, file, write_file, [Filename, Mini3]),
     {ok,ErlFile,[]} = rpc:call(Node, yecc, file, [Filename, Ret]),
     Opts = [return, warn_unused_vars,{outdir,Dir}],
-    {ok,_,_Warnings} = rpc:call(Node, compile, file, [ErlFile, Opts]),
+    {ok,_,_} = rpc:call(Node, compile, file, [ErlFile, Opts]),
 
     true = test_server:stop_node(Node),
     ok.
diff --git a/lib/runtime_tools/test/dbg_SUITE.erl b/lib/runtime_tools/test/dbg_SUITE.erl
index 4d319c29c1..f28681ef05 100644
--- a/lib/runtime_tools/test/dbg_SUITE.erl
+++ b/lib/runtime_tools/test/dbg_SUITE.erl
@@ -72,7 +72,7 @@ big(Config) when is_list(Config) ->
         Pid = spawn_link(dbg_test, loop, [Config]),
         true = register(dbg_test_loop, Pid),
         {ok,_} = dbg:tracer(),
-        {ok,[{matched, _node, 1}]} = dbg:p(dbg_test_loop, [m,p,c]),
+        {ok,[{matched, _, 1}]} = dbg:p(dbg_test_loop, [m,p,c]),
         ok = dbg:c(dbg_test, test, [Config]),
         ok = dbg:i(),
         dbg_test_loop ! {dbg_test, stop},
@@ -82,7 +82,7 @@ big(Config) when is_list(Config) ->
         %% run/debug a Pid.
         Pid2=spawn_link(dbg_test,loop,[Config]),
         {ok,_} = dbg:tracer(),
-        {ok,[{matched, _node, 1}]} = dbg:p(Pid2,[s,r,p]),
+        {ok,[{matched, _, 1}]} = dbg:p(Pid2,[s,r,p]),
         ok = dbg:c(dbg_test, test, [Config]),
         ok = dbg:i(),
         Pid2 ! {dbg_test, stop},
@@ -182,7 +182,7 @@ send(Config) when is_list(Config) ->
         send_test(Rcvr, [{[self(),'_'],[],[]}]),
 
         %% Test that self() is not the receiving process
-        {ok, [{matched, _node, 1}, {saved, 2}]} =
+        {ok, [{matched, _, 1}, {saved, 2}]} =
             dbg:tpe(send, [{['$1','_'],[{'==','$1',{self}}],[]}]),
         send_test(Rcvr, make_ref(), false),
 
@@ -197,7 +197,7 @@ send(Config) when is_list(Config) ->
         send_test(Rcvr, 2, make_ref(), false),
 
         %% Test clearing of trace pattern
-        {ok, [{matched, _node, 1}]} = dbg:ctpe(send),
+        {ok, [{matched, _, 1}]} = dbg:ctpe(send),
         send_test(Rcvr, make_ref(), true),
 
         %% Test complex message inspection
@@ -291,7 +291,7 @@ recv(Config) when is_list(Config) ->
         recv_test(Rcvr, [{[node(), self(), '_'],[],[]}]),
 
         %% Test that self() is the not sending process
-        {ok, [{matched, _node, 1}, {saved, 2}]} =
+        {ok, [{matched, _, 1}, {saved, 2}]} =
             dbg:tpe('receive', [{[node(), '$1','_'],[{'==','$1',{self}}],[]}]),
         recv_test(Rcvr, make_ref(), false),
 
@@ -306,7 +306,7 @@ recv(Config) when is_list(Config) ->
         recv_test(Rcvr, 2, make_ref(), false),
 
         %% Test clearing of trace pattern
-        {ok, [{matched, _node, 1}]} = dbg:ctpe('receive'),
+        {ok, [{matched, _, 1}]} = dbg:ctpe('receive'),
         recv_test(Rcvr, make_ref(), true),
 
         %% Test complex message inspection
@@ -433,13 +433,13 @@ local_trace(Config) when is_list(Config) ->
         Z = list_to_integer(LZ),
         XYZ = {X, Y, Z},
         io:format("Self = ~w = ~w~n", [S,XYZ]),
-        {ok, [{matched, _node, 1}]} = dbg:p(S,call),
-        {ok, [{matched, _node, 1}]} = dbg:p(XYZ,call),
+        {ok, [{matched, _, 1}]} = dbg:p(S,call),
+        {ok, [{matched, _, 1}]} = dbg:p(XYZ,call),
         if Z =:= 0 ->
-               {ok, [{matched, _node, 1}]} = dbg:p(Y,call);
+               {ok, [{matched, _, 1}]} = dbg:p(Y,call);
            true -> ok
         end,
-        {ok, [{matched, _node, 1}]} = dbg:p(L,call),
+        {ok, [{matched, _, 1}]} = dbg:p(L,call),
         {ok, _} = dbg:tpl(?MODULE,not_exported,[]),
         4 = not_exported(2),
         [{trace,S,call,{?MODULE,not_exported,[2]}}] = flush(),
@@ -506,8 +506,8 @@ saved_patterns(Config) when is_list(Config) ->
     {ok, _} = start(),
     try
         dbg:rtp(File),
-        {ok,[{matched,_node,1},{saved,1}]} = dbg:tp(dbg,ltp,0,1),
-        {ok, [{matched, _node, 1}]} = dbg:p(self(),call),
+        {ok, [{matched, _, 1},{saved,1}]} = dbg:tp(dbg,ltp,0,1),
+        {ok, [{matched, _, 1}]} = dbg:p(self(),call),
         dbg:ltp(),
         S = self(),
         [{trace,S,call,{dbg,ltp,[]},blahonga}] = flush()
diff --git a/lib/sasl/test/release_handler_SUITE.erl b/lib/sasl/test/release_handler_SUITE.erl
index d1bcc40049..23dc7d5c1d 100644
--- a/lib/sasl/test/release_handler_SUITE.erl
+++ b/lib/sasl/test/release_handler_SUITE.erl
@@ -1043,14 +1043,14 @@ otp_9395_check_and_purge(Conf) when is_list(Conf) ->
 		  [RelVsn2, filename:join(Rel2Dir, "sys.config")]),
 
     %% Do check_install_release, and check that old code still exists
-    {ok, _RelVsn1, []} =
+    {ok, _, []} =
 	rpc:call(Node, release_handler, check_install_release, [RelVsn2]),
     true = rpc:call(Node,erlang,check_old_code,[b_lib]),
     true = rpc:call(Node,erlang,check_old_code,[b_server]),
 
     %% Do check_install_release with option 'purge' and check that old
     %% code is gone
-    {ok, _RelVsn1, []} =
+    {ok, _, []} =
 	rpc:call(Node, release_handler, check_install_release, [RelVsn2,[purge]]),
     false = rpc:call(Node,erlang,check_old_code,[b_lib]),
     false = rpc:call(Node,erlang,check_old_code,[b_server]),
@@ -1130,7 +1130,7 @@ otp_9395_update_many_mods(Conf) when is_list(Conf) ->
     true = rpc:call(Node,erlang,check_old_code,[m10]),
 
     %% Run check_install_release with purge before install this time
-    {_TCheck,{ok, _RelVsn1, []}} =
+    {_TCheck,{ok, _, []}} =
 	timer:tc(rpc,call,[Node, release_handler, check_install_release,
 			   [RelVsn2,[purge]]]),
 %    ct:log("check_install_release with purge: ~.2f",[_TCheck/1000000]),
@@ -1140,7 +1140,7 @@ otp_9395_update_many_mods(Conf) when is_list(Conf) ->
     SWTFlag0 ! die,
     rpc:call(Node,?MODULE,garbage_collect,[]),
     _SWTFlag1 = spawn_link(Node, ?MODULE, scheduler_wall_time, []),
-    {TInst2,{ok, _RelVsn1, []}} =
+    {TInst2,{ok, _, []}} =
 	timer:tc(rpc,call,[Node, release_handler, install_release, [RelVsn2]]),
     SWT2 = rpc:call(Node,erlang,statistics,[scheduler_wall_time]),
 %    ct:log("install_release: ~.2f",[TInst2/1000000]),
@@ -1245,7 +1245,7 @@ otp_9395_rm_many_mods(Conf) when is_list(Conf) ->
     true = rpc:call(Node,erlang,check_old_code,[m10]),
 
     %% Run check_install_release with purge before install this time
-    {_TCheck,{ok, _RelVsn1, []}} =
+    {_TCheck,{ok, _, []}} =
 	timer:tc(rpc,call,[Node, release_handler, check_install_release,
 			   [RelVsn2,[purge]]]),
 %    ct:log("check_install_release with purge: ~.2f",[_TCheck/1000000]),
@@ -1255,7 +1255,7 @@ otp_9395_rm_many_mods(Conf) when is_list(Conf) ->
     SWTFlag0 ! die,
     rpc:call(Node,?MODULE,garbage_collect,[]),
     _SWTFlag1 = spawn_link(Node, ?MODULE, scheduler_wall_time, []),
-    {TInst2,{ok, _RelVsn1, []}} =
+    {TInst2,{ok, _, []}} =
 	timer:tc(rpc,call,[Node, release_handler, install_release, [RelVsn2]]),
     SWT2 = rpc:call(Node,erlang,statistics,[scheduler_wall_time]),
 %    ct:log("install_release: ~.2f",[TInst2/1000000]),
diff --git a/lib/sasl/test/systools_SUITE.erl b/lib/sasl/test/systools_SUITE.erl
index b9d8ff2e02..e934513d52 100644
--- a/lib/sasl/test/systools_SUITE.erl
+++ b/lib/sasl/test/systools_SUITE.erl
@@ -1999,8 +1999,8 @@ replace_app_relup(Config) when is_list(Config) ->
 
 check_start_stop_order(UpOrder, DownOrder) ->
 
-    {ok, [{_V0, [{_V1, [], Up}],
-                [{_V1, [], Down}]
+    {ok, [{_V0, [{V1, [], Up}],
+                [{V1, [], Down}]
             }]} = file:consult(relup),
 
     GetAppStartStop = fun(Instr) ->
diff --git a/lib/stdlib/test/gen_fsm_SUITE.erl b/lib/stdlib/test/gen_fsm_SUITE.erl
index 539dbe3edc..7f7a5d721b 100644
--- a/lib/stdlib/test/gen_fsm_SUITE.erl
+++ b/lib/stdlib/test/gen_fsm_SUITE.erl
@@ -470,7 +470,7 @@ sys1(Config) when is_list(Config) ->
 call_format_status(Config) when is_list(Config) ->
     {ok, Pid} = gen_fsm:start(gen_fsm_SUITE, [], []),
     Status = sys:get_status(Pid),
-    {status, Pid, _Mod, [_PDict, running, _, _, Data]} = Status,
+    {status, Pid, Mod, [_PDict, running, _, _, Data]} = Status,
     [format_status_called | _] = lists:reverse(Data),
     stop_it(Pid),
 
@@ -478,7 +478,7 @@ call_format_status(Config) when is_list(Config) ->
     %% already checked by the previous test)
     {ok, Pid2} = gen_fsm:start({local, gfsm}, gen_fsm_SUITE, [], []),
     Status2 = sys:get_status(gfsm),
-    {status, Pid2, _Mod, [_PDict2, running, _, _, Data2]} = Status2,
+    {status, Pid2, Mod, [_PDict2, running, _, _, Data2]} = Status2,
     [format_status_called | _] = lists:reverse(Data2),
     stop_it(Pid2),
 
@@ -487,13 +487,13 @@ call_format_status(Config) when is_list(Config) ->
     GlobalName1 = {global, "CallFormatStatus"},
     {ok, Pid3} = gen_fsm:start(GlobalName1, gen_fsm_SUITE, [], []),
     Status3 = sys:get_status(GlobalName1),
-    {status, Pid3, _Mod, [_PDict3, running, _, _, Data3]} = Status3,
+    {status, Pid3, Mod, [_PDict3, running, _, _, Data3]} = Status3,
     [format_status_called | _] = lists:reverse(Data3),
     stop_it(Pid3),
     GlobalName2 = {global, {name, "term"}},
     {ok, Pid4} = gen_fsm:start(GlobalName2, gen_fsm_SUITE, [], []),
     Status4 = sys:get_status(GlobalName2),
-    {status, Pid4, _Mod, [_PDict4, running, _, _, Data4]} = Status4,
+    {status, Pid4, Mod, [_PDict4, running, _, _, Data4]} = Status4,
     [format_status_called | _] = lists:reverse(Data4),
     stop_it(Pid4),
 
@@ -503,13 +503,13 @@ call_format_status(Config) when is_list(Config) ->
     ViaName1 = {via, dummy_via, "CallFormatStatus"},
     {ok, Pid5} = gen_fsm:start(ViaName1, gen_fsm_SUITE, [], []),
     Status5 = sys:get_status(ViaName1),
-    {status, Pid5, _Mod, [_PDict5, running, _, _, Data5]} = Status5,
+    {status, Pid5, Mod, [_PDict5, running, _, _, Data5]} = Status5,
     [format_status_called | _] = lists:reverse(Data5),
     stop_it(Pid5),
     ViaName2 = {via, dummy_via, {name, "term"}},
     {ok, Pid6} = gen_fsm:start(ViaName2, gen_fsm_SUITE, [], []),
     Status6 = sys:get_status(ViaName2),
-    {status, Pid6, _Mod, [_PDict6, running, _, _, Data6]} = Status6,
+    {status, Pid6, Mod, [_PDict6, running, _, _, Data6]} = Status6,
     [format_status_called | _] = lists:reverse(Data6),
     stop_it(Pid6).
 
diff --git a/lib/stdlib/test/gen_server_SUITE.erl b/lib/stdlib/test/gen_server_SUITE.erl
index c9ebcef188..d5569586aa 100644
--- a/lib/stdlib/test/gen_server_SUITE.erl
+++ b/lib/stdlib/test/gen_server_SUITE.erl
@@ -1331,20 +1331,22 @@ do_otp_7669_stop() ->
 
 %% Verify that sys:get_status correctly calls our format_status/2 fun.
 call_format_status(Config) when is_list(Config) ->
+    Parent = self(),
+
     {ok, Pid} = gen_server:start_link({local, call_format_status},
 				      ?MODULE, [], []),
     Status1 = sys:get_status(call_format_status),
-    {status, Pid, _Mod, [_PDict, running, _Parent, _, Data1]} = Status1,
+    {status, Pid, Mod, [_Pdict1, running, Parent, _, Data1]} = Status1,
     [format_status_called | _] = lists:reverse(Data1),
     Status2 = sys:get_status(call_format_status, 5000),
-    {status, Pid, _Mod, [_PDict, running, _Parent, _, Data2]} = Status2,
+    {status, Pid, Mod, [_Pdict2, running, Parent, _, Data2]} = Status2,
     [format_status_called | _] = lists:reverse(Data2),
 
     %% check that format_status can handle a name being a pid (atom is
     %% already checked by the previous test)
     {ok, Pid3} = gen_server:start_link(gen_server_SUITE, [], []),
     Status3 = sys:get_status(Pid3),
-    {status, Pid3, _Mod, [_PDict3, running, _Parent, _, Data3]} = Status3,
+    {status, Pid3, Mod, [_PDict3, running, Parent, _, Data3]} = Status3,
     [format_status_called | _] = lists:reverse(Data3),
 
     %% check that format_status can handle a name being a term other than a
@@ -1353,13 +1355,13 @@ call_format_status(Config) when is_list(Config) ->
     {ok, Pid4} = gen_server:start_link(GlobalName1,
 				       gen_server_SUITE, [], []),
     Status4 = sys:get_status(Pid4),
-    {status, Pid4, _Mod, [_PDict4, running, _Parent, _, Data4]} = Status4,
+    {status, Pid4, Mod, [_PDict4, running, Parent, _, Data4]} = Status4,
     [format_status_called | _] = lists:reverse(Data4),
     GlobalName2 = {global, {name, "term"}},
     {ok, Pid5} = gen_server:start_link(GlobalName2,
 				       gen_server_SUITE, [], []),
     Status5 = sys:get_status(GlobalName2),
-    {status, Pid5, _Mod, [_PDict5, running, _Parent, _, Data5]} = Status5,
+    {status, Pid5, Mod, [_PDict5, running, Parent, _, Data5]} = Status5,
     [format_status_called | _] = lists:reverse(Data5),
     ok.
 
diff --git a/lib/stdlib/test/gen_statem_SUITE.erl b/lib/stdlib/test/gen_statem_SUITE.erl
index 4a593458e3..60844ce8ce 100644
--- a/lib/stdlib/test/gen_statem_SUITE.erl
+++ b/lib/stdlib/test/gen_statem_SUITE.erl
@@ -1251,7 +1251,7 @@ call_format_status(Config) ->
 	gen_statem:start(
 	  {local, gstm}, ?MODULE, start_arg(Config, []), []),
     Status2 = sys:get_status(gstm),
-    {status,Pid2,_Mod,[_PDict2,running,_,_,Data2]} = Status2,
+    {status,Pid2,Mod,[_PDict2,running,_,_,Data2]} = Status2,
     [format_status_called|_] = lists:reverse(Data2),
     stop_it(Pid2),
 
@@ -1262,7 +1262,7 @@ call_format_status(Config) ->
 	gen_statem:start(
 	  GlobalName1, ?MODULE, start_arg(Config, []), []),
     Status3 = sys:get_status(GlobalName1),
-    {status,Pid3,_Mod,[_PDict3,running,_,_,Data3]} = Status3,
+    {status,Pid3,Mod,[_PDict3,running,_,_,Data3]} = Status3,
     [format_status_called|_] = lists:reverse(Data3),
     stop_it(Pid3),
     GlobalName2 = {global,{name, "term"}},
@@ -1270,7 +1270,7 @@ call_format_status(Config) ->
 	gen_statem:start(
 	  GlobalName2, ?MODULE, start_arg(Config, []), []),
     Status4 = sys:get_status(GlobalName2),
-    {status,Pid4,_Mod,[_PDict4,running,_,_, Data4]} = Status4,
+    {status,Pid4,Mod,[_PDict4,running,_,_, Data4]} = Status4,
     [format_status_called|_] = lists:reverse(Data4),
     stop_it(Pid4),
 
@@ -1280,7 +1280,7 @@ call_format_status(Config) ->
     ViaName1 = {via,dummy_via,"CallFormatStatus"},
     {ok,Pid5} = gen_statem:start(ViaName1, ?MODULE, start_arg(Config, []), []),
     Status5 = sys:get_status(ViaName1),
-    {status,Pid5,_Mod, [_PDict5,running,_,_, Data5]} = Status5,
+    {status,Pid5,Mod, [_PDict5,running,_,_, Data5]} = Status5,
     [format_status_called|_] = lists:reverse(Data5),
     stop_it(Pid5),
     ViaName2 = {via,dummy_via,{name,"term"}},
@@ -1288,7 +1288,7 @@ call_format_status(Config) ->
 	gen_statem:start(
 	  ViaName2, ?MODULE, start_arg(Config, []), []),
     Status6 = sys:get_status(ViaName2),
-    {status,Pid6,_Mod,[_PDict6,running,_,_,Data6]} = Status6,
+    {status,Pid6,Mod,[_PDict6,running,_,_,Data6]} = Status6,
     [format_status_called|_] = lists:reverse(Data6),
     stop_it(Pid6).
 
-- 
2.26.2

Places

File 4211-Eliminate-warnings-for-underscore-variables-multiply.patch of Package erlang (Revision fab5cf9be99874816e9cecc0e0f8d85e)

Places