aboutsummaryrefslogtreecommitdiffstats
path: root/erts/preloaded/src/erts_internal.erl
diff options
context:
space:
mode:
authorRickard Green <[email protected]>2018-03-23 14:12:52 +0100
committerRickard Green <[email protected]>2018-03-23 14:12:52 +0100
commit5c2acbd35150da5e6d3afba1f61bb8bb995bb80f (patch)
tree9250351fba7a64b5b1f9ff11fff7da8563ec3155 /erts/preloaded/src/erts_internal.erl
parentbe2bdf8c8c0bd3d110277fcbe8dc3611163087cc (diff)
parent83a289d4dff156f2c7203843a1437256545f5580 (diff)
downloadotp-5c2acbd35150da5e6d3afba1f61bb8bb995bb80f.tar.gz
otp-5c2acbd35150da5e6d3afba1f61bb8bb995bb80f.tar.bz2
otp-5c2acbd35150da5e6d3afba1f61bb8bb995bb80f.zip
Merge branch 'rickard/signals/OTP-14589'
* rickard/signals/OTP-14589: Fix VM probes compilation Fix lock counting Fix signal order for is_process_alive Fix signal handling priority elevation
Diffstat (limited to 'erts/preloaded/src/erts_internal.erl')
-rw-r--r--erts/preloaded/src/erts_internal.erl21
1 files changed, 21 insertions, 0 deletions
diff --git a/erts/preloaded/src/erts_internal.erl b/erts/preloaded/src/erts_internal.erl
index fb709e7482..da5c9c68ed 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.
+