File 7543-stdlib-Add-deprecation-attributes-for-format_status-.patch of Package erlang

From 0a6d12f04d683327d5bf2414f0b144132b24dc92 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Fri, 1 Mar 2024 10:48:22 +0100
Subject: [PATCH 3/6] stdlib: Add deprecation attributes for format_status/2

---
 lib/stdlib/src/gen_event.erl  | 1 +
 lib/stdlib/src/gen_server.erl | 1 +
 lib/stdlib/src/gen_statem.erl | 1 +
 3 files changed, 3 insertions(+)

diff --git a/lib/stdlib/src/gen_event.erl b/lib/stdlib/src/gen_event.erl
index 2eccaf43dc..4b286f132c 100644
--- a/lib/stdlib/src/gen_event.erl
+++ b/lib/stdlib/src/gen_event.erl
@@ -117,6 +117,7 @@
 -callback code_change(OldVsn :: (term() | {down, term()}),
                       State :: term(), Extra :: term()) ->
     {ok, NewState :: term()}.
+-deprecated_callback({format_status, 2, "use format_status/1 instead"}).
 -callback format_status(Opt, StatusData) -> Status when
       Opt :: 'normal' | 'terminate',
       StatusData :: [PDict | State],
diff --git a/lib/stdlib/src/gen_server.erl b/lib/stdlib/src/gen_server.erl
index dcf7da5af9..da68ca573f 100644
--- a/lib/stdlib/src/gen_server.erl
+++ b/lib/stdlib/src/gen_server.erl
@@ -197,6 +197,7 @@
 -callback code_change(OldVsn :: (term() | {down, term()}), State :: term(),
                       Extra :: term()) ->
     {ok, NewState :: term()} | {error, Reason :: term()}.
+-deprecated_callback({format_status, 2, "use format_status/1 instead"}).
 -callback format_status(Opt, StatusData) -> Status when
       Opt :: 'normal' | 'terminate',
       StatusData :: [PDict | State],
diff --git a/lib/stdlib/src/gen_statem.erl b/lib/stdlib/src/gen_statem.erl
index ded1765608..cba491117f 100644
--- a/lib/stdlib/src/gen_statem.erl
+++ b/lib/stdlib/src/gen_statem.erl
@@ -387,6 +387,7 @@
 %% StatusOption =:= 'terminate' it is just FormattedState.
 %%
 %% Deprecated
+-deprecated_callback({format_status, 2, "use format_status/1 instead"}).
 -callback format_status(
 	    StatusOption,
 	    [ [{Key :: term(), Value :: term()}] |
-- 
2.35.3

openSUSE Build Service is sponsored by