File 5171-erts-Let-erlang-is_alive-0-return-true-for... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 5171-erts-Let-erlang-is_alive-0-return-true-for-dynamic-n.patch of Package erlang

From c4d92b48e27aa8ed550d02e3511e2bc288847579 Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Fri, 17 Dec 2021 21:12:59 +0100
Subject: [PATCH 1/2] erts: Let erlang:is_alive/0 return true for dynamic node
 names

---
 erts/emulator/beam/bif.tab      |   1 -
 erts/emulator/beam/dist.c       |   9 ---------
 erts/preloaded/ebin/erlang.beam | Bin 131260 -> 131440 bytes
 erts/preloaded/src/erlang.erl   |   2 +-
 lib/kernel/src/net_kernel.erl   |   5 +++++
 5 files changed, 6 insertions(+), 11 deletions(-)

diff --git a/erts/emulator/beam/bif.tab b/erts/emulator/beam/bif.tab
index cb3fb560ff..b6f8579ab4 100644
--- a/erts/emulator/beam/bif.tab
+++ b/erts/emulator/beam/bif.tab
@@ -83,7 +83,6 @@ bif erlang:phash2/1
 bif erlang:phash2/2
 ubif erlang:hd/1
 bif erlang:integer_to_list/1
-bif erlang:is_alive/0
 ubif erlang:length/1
 bif erlang:link/1
 bif erlang:list_to_atom/1
diff --git a/erts/emulator/beam/dist.c b/erts/emulator/beam/dist.c
index 1ab7a671a0..cab8c4b9eb 100644
--- a/erts/emulator/beam/dist.c
+++ b/erts/emulator/beam/dist.c
@@ -5920,15 +5920,6 @@ error:
     BIF_ERROR(BIF_P,BADARG);
 }
 
-/**********************************************************************/
-/* is_alive() -> Bool */
-
-BIF_RETTYPE is_alive_0(BIF_ALIST_0)
-{
-    Eterm res = erts_is_alive ? am_true : am_false;
-    BIF_RET(res);
-}
-
 /**********************************************************************/
 /* erlang:monitor_node(Node, Bool, Options) -> Bool */
 
diff --git a/erts/preloaded/src/erlang.erl b/erts/preloaded/src/erlang.erl
index 03b06ce2a3..af6f1e1946 100644
--- a/erts/preloaded/src/erlang.erl
+++ b/erts/preloaded/src/erlang.erl
@@ -1276,7 +1276,7 @@ iolist_to_iovec(_IoListOrBinary) ->
 %% is_alive/0
 -spec is_alive() -> boolean().
 is_alive() ->
-    erlang:nif_error(undefined).
+    net_kernel:is_alive().
 
 %% is_builtin/3
 -spec erlang:is_builtin(Module, Function, Arity) -> boolean() when
diff --git a/lib/kernel/src/net_kernel.erl b/lib/kernel/src/net_kernel.erl
index cc1856b771..f7839b07a6 100644
--- a/lib/kernel/src/net_kernel.erl
+++ b/lib/kernel/src/net_kernel.erl
@@ -70,6 +70,7 @@
          nodename/0,
 	 protocol_childspecs/0,
 	 epmd_module/0,
+         is_alive/0,
          dist_listen/0]).
 
 -export([disconnect/1, async_disconnect/1, passive_cnct/1]).
@@ -190,6 +191,10 @@ longnames() ->                 request(longnames).
 
 nodename() ->                  request(nodename).
 
+is_alive() ->
+    whereis(net_kernel) =/= undefined.
+
+
 -spec stop() -> ok | {error, Reason} when
       Reason :: not_allowed | not_found.
 stop() ->
-- 
2.34.1

Places

File 5171-erts-Let-erlang-is_alive-0-return-true-for-dynamic-n.patch of Package erlang

Places