diff options
| author | Rickard Green <[email protected]> | 2018-03-21 16:33:35 +0100 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2018-03-22 16:18:31 +0100 |
| commit | f78ed9b50effd3007aafef2979ae5921ffedf75b (patch) | |
| tree | f2a7ac598f4217be8789f0890a3c41fc96ae6385 /erts/preloaded/src/erts_internal.erl | |
| parent | 2dc14df8ce5d56df3974aa57a61b3c1a0bfd3149 (diff) | |
| download | otp-f78ed9b50effd3007aafef2979ae5921ffedf75b.tar.gz otp-f78ed9b50effd3007aafef2979ae5921ffedf75b.tar.bz2 otp-f78ed9b50effd3007aafef2979ae5921ffedf75b.zip | |
Fix signal order for is_process_alive
Diffstat (limited to 'erts/preloaded/src/erts_internal.erl')
| -rw-r--r-- | erts/preloaded/src/erts_internal.erl | 21 |
1 files changed, 21 insertions, 0 deletions
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. + |