-export(
[ of_id/1
- , id_to_bin/1
]).
-type id() ::
-spec of_id(id()) ->
t().
of_id(ID) ->
- WordSize = erlang:system_info(wordsize),
- NumberOfWords = ets:info(ID, memory),
+ WordSize = beam_stats_source:erlang_system_info(wordsize),
+ NumberOfWords = beam_stats_source:ets_info(ID, memory),
NumberOfBytes = NumberOfWords * WordSize,
#?MODULE
{ id = ID
- , name = ets:info(ID, name)
- , size = ets:info(ID, size)
+ , name = beam_stats_source:ets_info(ID, name)
+ , size = beam_stats_source:ets_info(ID, size)
, memory = NumberOfBytes
}.
-
--spec id_to_bin(atom() | ets:tid()) ->
- binary().
-id_to_bin(ID) when is_atom(ID) ->
- atom_to_binary(ID, latin1);
-id_to_bin(ID) when is_integer(ID) ->
- integer_to_binary(ID).