Remove obsolete erlang:dgroup_leader

4 files changed, 1 insertions, 17 deletions

diff --git a/erts/emulator/beam/atom.names b/erts/emulator/beam/atom.names
index d755b5393b..75a70c3716 100644
--- a/erts/emulator/beam/atom.names
+++ b/erts/emulator/beam/atom.names
@@ -200,7 +200,6 @@ atom decimals
 atom default
 atom delay_trap
 atom depth
-atom dgroup_leader
 atom dictionary
 atom dirty_bif_exception
 atom dirty_bif_result
diff --git a/erts/emulator/beam/dist.c b/erts/emulator/beam/dist.c
index e36ea9ba94..cd4125e404 100644
--- a/erts/emulator/beam/dist.c
+++ b/erts/emulator/beam/dist.c
@@ -109,7 +109,6 @@ int erts_dist_buf_busy_limit;
 
 /* distribution trap functions */
 Export* dmonitor_node_trap = NULL;
-Export* dgroup_leader_trap = NULL;
 Export* dmonitor_p_trap = NULL;
 
 /* local variables */
@@ -631,7 +630,6 @@ void init_dist(void)
 
     /* Lookup/Install all references to trap functions */
     dmonitor_node_trap = trap_function(am_dmonitor_node,3);
-    dgroup_leader_trap = trap_function(am_dgroup_leader,2);
     dmonitor_p_trap = trap_function(am_dmonitor_p, 2);
     dist_ctrl_put_data_trap = erts_export_put(am_erts_internal,
                                               am_dist_ctrl_put_data,
@@ -3103,9 +3101,6 @@ int distribution_info(fmtfn_t to, void *arg)	/* Called by break handler */
 /**********************************************************************
  ** Set the node name of current node fail if node already is set.
  ** setnode(name@host, Creation)
- ** loads functions pointer to trap_functions from module erlang.
- **    erlang:dmonitor_node/3
- **    erlang:dgroup_leader/2
  ***********************************************************************/
 
 BIF_RETTYPE setnode_2(BIF_ALIST_2)
@@ -3130,7 +3125,6 @@ BIF_RETTYPE setnode_2(BIF_ALIST_2)
 
     /* Check that all trap functions are defined !! */
     if (dmonitor_node_trap->addressv[0] == NULL ||
-	dgroup_leader_trap->addressv[0] == NULL ||
 	dmonitor_p_trap->addressv[0] == NULL) {
 	goto error;
     }
diff --git a/erts/emulator/beam/dist.h b/erts/emulator/beam/dist.h
index 339e4839ea..49f3eac340 100644
--- a/erts/emulator/beam/dist.h
+++ b/erts/emulator/beam/dist.h
@@ -87,7 +87,6 @@
 
 /* distribution trap functions */
 extern Export* dmonitor_node_trap;
-extern Export* dgroup_leader_trap;
 extern Export* dmonitor_p_trap;
 
 typedef enum {
diff --git a/erts/preloaded/src/erlang.erl b/erts/preloaded/src/erlang.erl
index 80601ab067..0aa8dae3e5 100644
--- a/erts/preloaded/src/erlang.erl
+++ b/erts/preloaded/src/erlang.erl
@@ -31,8 +31,7 @@
 -export([localtime_to_universaltime/1]).
 -export([suspend_process/1]).
 -export([min/2, max/2]).
--export([dgroup_leader/2,
-	 dmonitor_node/3, dmonitor_p/2]).
+-export([dmonitor_node/3, dmonitor_p/2]).
 -export([delay_trap/2]).
 -export([set_cookie/2, get_cookie/0]).
 -export([nodes/0]).
@@ -3296,13 +3295,6 @@ dmonitor_node(Node, Flag, Opts) ->
 	    dmonitor_node(Node,Flag,[])
     end.
 
-dgroup_leader(Leader, Pid) ->
-    case net_kernel:connect(erlang:node(Pid)) of
-	true -> erlang:group_leader(Leader, Pid);
-	false -> true  %% bad arg ?
-    end.
-
-
 -spec erlang:dmonitor_p('process', pid() | {atom(),atom()}) -> reference().
 dmonitor_p(process, ProcSpec) ->
     %% Only called when auto-connect attempt failed early in VM