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/src/erts_internal.erl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'erts/preloaded/src/erts_internal.erl')

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