From f78ed9b50effd3007aafef2979ae5921ffedf75b Mon Sep 17 00:00:00 2001
From: Rickard Green <rickard@erlang.org>
Date: Wed, 21 Mar 2018 16:33:35 +0100
Subject: Fix signal order for is_process_alive

---
 erts/preloaded/ebin/erlang.beam        | Bin 103248 -> 102724 bytes
 erts/preloaded/ebin/erts_internal.beam | Bin 14712 -> 15104 bytes
 erts/preloaded/src/erlang.erl          |  28 ----------------------------
 erts/preloaded/src/erts_internal.erl   |  21 +++++++++++++++++++++
 4 files changed, 21 insertions(+), 28 deletions(-)

(limited to 'erts/preloaded')

diff --git a/erts/preloaded/ebin/erlang.beam b/erts/preloaded/ebin/erlang.beam
index 4d1691d71a..e93f053e01 100644
Binary files a/erts/preloaded/ebin/erlang.beam and b/erts/preloaded/ebin/erlang.beam differ
diff --git a/erts/preloaded/ebin/erts_internal.beam b/erts/preloaded/ebin/erts_internal.beam
index 799c3e17fb..f5967780ad 100644
Binary files a/erts/preloaded/ebin/erts_internal.beam and b/erts/preloaded/ebin/erts_internal.beam differ
diff --git a/erts/preloaded/src/erlang.erl b/erts/preloaded/src/erlang.erl
index 6cfca68a56..c55c91f2d6 100644
--- a/erts/preloaded/src/erlang.erl
+++ b/erts/preloaded/src/erlang.erl
@@ -39,7 +39,6 @@
 -export([integer_to_list/2]).
 -export([integer_to_binary/2]).
 -export([set_cpu_topology/1, format_cpu_topology/1]).
--export([await_proc_exit/3]).
 -export([memory/0, memory/1]).
 -export([alloc_info/1, alloc_sizes/1]).
 
@@ -3530,33 +3529,6 @@ rvrs(Xs) -> rvrs(Xs, []).
 rvrs([],Ys) -> Ys;
 rvrs([X|Xs],Ys) -> rvrs(Xs, [X|Ys]).
 
-%% erlang:await_proc_exit/3 is for internal use only!
-%%
-%% BIFs that need to await a specific process exit before
-%% returning traps to erlang:await_proc_exit/3.
-%%
-%% NOTE: This function is tightly coupled to
-%%       the implementation of the
-%%       erts_bif_prep_await_proc_exit_*()
-%%       functions in bif.c. Do not make
-%%       any changes to it without reading
-%%       the comment about them in bif.c!
--spec erlang:await_proc_exit(dst(), 'apply' | 'data' | 'reason', term()) -> term().
-await_proc_exit(Proc, Op, Data) ->
-    Mon = erlang:monitor(process, Proc),
-    receive
-	{'DOWN', Mon, process, _Proc, Reason} ->
-	    case Op of
-		apply ->
-		    {M, F, A} = Data,
-		    erlang:apply(M, F, A);
-		data ->
-		    Data;
-		reason ->
-		    Reason
-	    end
-    end.
-
 -spec min(Term1, Term2) -> Minimum when
       Term1 :: term(),
       Term2 :: term(),
diff --git a/erts/preloaded/src/erts_internal.erl b/erts/preloaded/src/erts_internal.erl
index 21f228395e..04396719da 100644
--- a/erts/preloaded/src/erts_internal.erl
+++ b/erts/preloaded/src/erts_internal.erl
@@ -78,6 +78,8 @@
 %% Auto import name clash
 -export([check_process_code/1]).
 
+-export([is_process_alive/1, is_process_alive/2]).
+
 %%
 %% Await result of send to port
 %%
@@ -600,3 +602,22 @@ group_leader(_GL, _Pid) ->
 
 group_leader(_GL, _Pid, _Ref) ->
     erlang:nif_error(undefined).
+
+-spec erts_internal:is_process_alive(Pid, Ref) -> 'ok' when
+      Pid :: pid(),
+      Ref :: reference().
+
+is_process_alive(_Pid, _Ref) ->
+    erlang:nif_error(undefined).    
+
+-spec erts_internal:is_process_alive(Pid) -> boolean() when
+      Pid :: pid().
+
+is_process_alive(Pid) ->
+    Ref = make_ref(),
+    erts_internal:is_process_alive(Pid, Ref),
+    receive
+        {Ref, Res} ->
+            Res
+    end.
+
-- 
cgit v1.2.3