1 files changed, 24 insertions, 14 deletions
diff --git a/lib/diameter/src/info/diameter_dbg.erl b/lib/diameter/src/info/diameter_dbg.erl
index b5b3983afa..b536e5e80b 100644
--- a/lib/diameter/src/info/diameter_dbg.erl
+++ b/lib/diameter/src/info/diameter_dbg.erl
@@ -32,7 +32,8 @@
          compiled/0,
          procs/0,
          latest/0,
-         nl/0]).
+         nl/0,
+         sizes/0]).
 
 -export([diameter_config/0,
          diameter_peer/0,
@@ -69,7 +70,16 @@
 -define(VALUES(Rec), tl(tuple_to_list(Rec))).
 
 %% ----------------------------------------------------------
-%% # table(TableName)
+%% # sizes/0
+%%
+%% Return sizes of named tables.
+%% ----------------------------------------------------------
+
+sizes() ->
+    [{T, ets:info(T, size)} || T <- ?LOCAL, T /= diameter_peer].
+
+%% ----------------------------------------------------------
+%% # table/1
 %%
 %% Pretty-print a diameter table. Returns the number of records
 %% printed, or undefined.
@@ -97,7 +107,7 @@ split([F|Fs], [V|Vs]) ->
     {F, Fs, V, Vs}.
 
 %% ----------------------------------------------------------
-%% # TableName()
+%% # TableName/0
 %% ----------------------------------------------------------
 
 -define(TABLE(Name), Name() -> table(Name)).
@@ -111,7 +121,7 @@ split([F|Fs], [V|Vs]) ->
 ?TABLE(diameter_stats).
 
 %% ----------------------------------------------------------
-%% # tables()
+%% # tables/0
 %%
 %% Pretty-print diameter tables from all nodes. Returns the number of
 %% records printed.
@@ -127,7 +137,7 @@ split(_, Fs, Vs) ->
     split(Fs, Vs).
 
 %% ----------------------------------------------------------
-%% # modules()
+%% # modules/0
 %% ----------------------------------------------------------
 
 modules() ->
@@ -140,49 +150,49 @@ appdir() ->
     [_|_] = code:lib_dir(?APP, ebin).
 
 %% ----------------------------------------------------------
-%% # versions()
+%% # versions/0
 %% ----------------------------------------------------------
 
 versions() ->
     ?I:versions(modules()).
 
 %% ----------------------------------------------------------
-%% # versions()
+%% # version_info/0
 %% ----------------------------------------------------------
 
 version_info() ->
     ?I:version_info(modules()).
 
 %% ----------------------------------------------------------
-%% # compiled()
+%% # compiled/0
 %% ----------------------------------------------------------
 
 compiled() ->
     ?I:compiled(modules()).
 
 %% ----------------------------------------------------------
-%% procs()
+%% # procs/0
 %% ----------------------------------------------------------
 
 procs() ->
     ?I:procs(?APP).
 
 %% ----------------------------------------------------------
-%% # latest()
+%% # latest/0
 %% ----------------------------------------------------------
 
 latest() ->
     ?I:latest(modules()).
 
 %% ----------------------------------------------------------
-%% # nl()
+%% # nl/0
 %% ----------------------------------------------------------
 
 nl() ->
     lists:foreach(fun(M) -> abcast = c:nl(M) end, modules()).
 
 %% ----------------------------------------------------------
-%% # pp(Bin)
+%% # pp/1
 %%
 %% Description: Pretty-print a message binary.
 %% ----------------------------------------------------------
@@ -317,7 +327,7 @@ ppp({Field, Value}) ->
     io:format(": ~-22s : ~p~n", [Field, Value]).
 
 %% ----------------------------------------------------------
-%% # subscriptions()
+%% # subscriptions/0
 %%
 %% Returns a list of {SvcName, Pid}.
 %% ----------------------------------------------------------
@@ -326,7 +336,7 @@ subscriptions() ->
     diameter_service:subscriptions().
 
 %% ----------------------------------------------------------
-%% # children()
+%% # children/0
 %% ----------------------------------------------------------
 
 children() ->